با درود - اینم با در نظر گرفتن مبدا مختصات از گوشه چپ و پایین فرم (نقطه صفر و صفر ) - b و d هم الان اظافین ولی خوب میشود با کمک اونها هم نوشت که اگر این راه که من نوشتم مد نظرت بود میخوام با کمک اون دو تا شما برام بنویسی . حتمانا
کد:
Private Sub CommandButton1_Click()
a = Image1.Left
'b = Image1.Top
c = Me.InsideHeight - (Image1.Top + Image1.Height)
'd = Me.InsideWidth - (Image1.Left + Image1.Width)
MsgBox "left and down=" & "(" & a & "," & c & ")" & " " & "Right and down=" & "(" & a + Image1.Width & "," & c & ")" & " " & "Left and Up=" & "(" & a & "," & c + Image1.Height & ")" & " " & "Right and Up=" & "(" & a + Image1.Width & "," & c + Image1.Height & ")" & " " & "Center=" & "(" & a + (Image1.Width / 2) & "," & c + (Image1.Height / 2) & ")"
End Sub
علاقه مندی ها (Bookmarks)