
Sıra açılan kutuya gelince açılan kutunun otomatik açılması için ne yapmalıyım. Teşekkür ederim.
Acilankutu_adi.Dropdown
şeklinde kod eklemeniz gerekli.
***********************
Option Compare Database
Option Explicit
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Function GetX() As Long
Dim n As POINTAPI
GetCursorPos n
GetX = n.X
End Function
Public Function GetY() As Long
Dim n As POINTAPI
GetCursorPos n
GetY = n.Y
End Function
******************************************
Then, this in the form's code:
******************************************
Private Sub ImageFrame_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtMouseX = GetX()
Me.txtMouseY = GetY()
End Sub
Private Sub ImageFrame_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtMouseX2 = GetX()
Me.txtMouseY2 = GetY()
End Sub
(02/01/2020, 10:03)ozanakkaya yazdı: Açılan kutunun girildiğinde olayına,bu kadar kolay mıydı
şeklinde kod eklemeniz gerekli.Acilankutu_adi.Dropdown