Как можно сделать так, чтобы в PictureBox, можно было работать по экранным координатам(т.е. по пикселям)? - VB

Формулировка задачи:

Как можно сделать так, чтобы в PictureBox, можно было работать по экранным координатам(т.е. по пикселям)?? Там ведь все в твипах определяется..А мне нужно в пикселях... Если это возможно, то помогите пожалуйста)

Решение задачи: «Как можно сделать так, чтобы в PictureBox, можно было работать по экранным координатам(т.е. по пикселям)?»

textual
                            Листинг программы 
                        
                            Private XX As Single
Private YY As Single
 
Private Sub Form_Load()
 
        Me.Picture1.Line (5, 5)-(20, 20), QBColor(10), BF
 
End Sub
 
Private Sub Picture1_Click()
 
        Me.Label1.Caption = "X=" & CStr(XX) & " Y=" & CStr(YY) & " Цвет=&&H" & Hex$(Me.Picture1.Point(XX, YY))
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   XX = X
   YY = Y
 
End Sub

Оцени полезность:

6 голосов , оценка 4.167 из 5

Похожие ответы