Online Reference

Home

LoadPicture Function

Access Function, ฟังก์ชัน LoadPicture ใช้โหลดภาพ (Graphic) เข้าไปใน ActiveX control

ไวยากรณ์

LoadPicture(stringexpress )

อากิวเมนต์ stringexpress เป็นอากิวเมนต์บังคับ โดยเป็นชื่อของไฟล์รูปภาพที่ต้องการโหลด โดยไฟล์รูปภาพสามารถเป็นไฟล์ bitmap (.bmp), icon (.ico), run-length encoded (.rle) หรือ metafile (.wmf)

ลักษณะการประยุกต์

การกำหนดค่าส่งออกของฟังก์ชัน LoadPicture ที่คุณสมบัติ Picture ของตัว control แบบ ActiveX เพื่อการ load ภาพอย่างพลวัตรเข้าไปในตัว control ตัวอย่างต่อไปเป็นการ load ไฟล์ bitmap เข้าไปในตัว control ชื่อ OLECustomControl บนฟอร์มชื่อ Orders

Set Forms!Orders!OLECustomerControl.Picture = LoadPicture(“Stars.bmp”)

ฟังก์ชัน LoadPicture ส่งออกอ๊อบเจคประเภท Picture การกำหนดค่าให้ตัวแปรอ๊อบเจคประเภท Picture ให้ใช้คำสั่ง Set

อ๊อบเจค Picture ไม่ใช่อ๊อบเจคของ Microsoft Access แต่มีให้ใน procedure ของ Microsoft Access

หมายเหตุ ไม่สามารถใช้ฟังก์ชัน LoadPicture เพื่อตั้งค่าคุณสมบัติ Picture ของตัว control แบบ image ฟังก์ชันนี้ทำงานกับตัว control แบบ ActiveX โดยเฉพาะ สำหรับการตั้งค่าคุณสมบัติ Picture ของตัว control แบบ image ให้กำหนดเป็นข้อความที่ระบุชื่อไฟล์และพาร์ท

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน LoadPicture ในการโหลด matafile เข้าไปใน ActiveX control บนฟอร์ม Employees

Sub DisplayGraphic()

  Const strConPathToBitmaps = "C:\Program Files\Microsoft Office\Office\Bitmaps\Styes\"

  ' ประกาศตัวแปรอ๊อบเจคของประเภท Picture และตัว control
  Dim objPicture As Object, ctl As Control

  ' ตั้งค่าตัวแปรตัว control เพื่ออ้างถึงตัว control แบบ ActiveX บนฟอร์ม
  Set ctl = Forms!Employees!SomeCustomControl

  ' กำหนดค่าส่งออกของฟังก์ชัน LoadPicture ให้อ๊อบเจค Picture
  Set objPicture = LoadPicture(strConPathToBitmaps & "Globe.wmf")

  ' กำหนดคุณสมบัติ Picture ของตัว control แบบ ActiveX
  Set ctl.Picture = objPicture

End Sub