應用Marc軟體進行分析后得到影像,想參考影像,并從中取出各點坐標
uj5u.com熱心網友回復:
Picture 屬性示例
這個例子從 Visual Basic 的圖示庫中將圖示加載到三個 PictureBox 控制元件中的兩個之中。在單擊表單時,第三個 PictureBox 用來切換圖示。可以使用任意兩個圖示。請將代碼粘貼到包含三個小的 PictureBox 控制元件的表單的宣告部分(對于 Picture3,設定 Visible = False)。按 F5 鍵運行該程式,然后單擊表單。
Private Sub Form_Load ()
' 加載圖示。
Picture1.Picture = LoadPicture("ICONS\COMPUTER\TRASH02A.ICO")
Picture2.Picture = LoadPicture("ICONS\COMPUTER\TRASH02B.ICO")
End Sub
Private Sub Form_Click ()
' 切換圖示。
Picture3.Picture = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Picture3.Picture
' 清除第三張圖片(如果圖片不可見則不需要清除)。
Picture3.Picture = LoadPicture()
End Sub
這個例子將剪貼板上的一張位圖粘貼到 PictureBox 控制元件中。為了查找(以 vbCF 開始的)剪貼板格式常數的值,請參閱物件瀏覽器中的 Visual Basic (VB) 物件庫。要嘗試這個例子,請將代碼粘貼到包含一個 PictureBox 控制元件的表單的宣告部分。按 F5 鍵,然后在另一個應用程式中把一個圖示復制到剪貼板上,切換到 Visual Basic 并單擊表單。
Private Sub Form_Click ()
Picture1.Picture = Clipboard.GetData(vbCFDIB)
End Sub
Point 方法
按照長整數,回傳在 Form 或 PictureBox 上所指定磅的紅-綠-藍 (RGB) 顏色。不支持命名引數。
語法
object.Point(x, y)
Point 方法的語法包含下列部分:
部分 描述
object 可選的。一個物件運算式,其值為“應用于”串列中的一個物件。如果省略 object,帶有焦點的 Form 象預設為 object.
x, y 必需的。均為單精度值,指示 Form 或 PictureBox 的 ScaleMode 屬性中該點的水平(x-軸)和垂直(y-軸)坐標。必須用括號包括這些值。
說明
如果由 x 和 y 坐標所參考的點位于 object 之外,Point 方法將回傳 -1。
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/55826.html
標籤:VBA
