Skip to main content

AccessTr.neT


Açılan Kutunun Otomatik Açılması.

Açılan Kutunun Otomatik Açılması.

Çözüldü #1
Sıra açılan kutuya gelince açılan kutunun otomatik açılması için ne yapmalıyım. Teşekkür ederim.
Cevapla
#2
Açılan kutunun girildiğinde olayına,

Visual Basic Code
Acilankutu_adi.Dropdown
 şeklinde kod eklemeniz gerekli.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
iyi yıllar
öncelikle olan ile yetinmeyip daha fonksiyonel olan bir çözüm aradığınız için teşekkür ederim zira yeni şeyler bu şekilde bulunuyor
ben olsam bir liste koyar sıra açılan kutuya gelince listeyi görünür yapar listeden seçileni açılan kutuya güncellerdim güncelleme sonrası listeyi tekrar gizlerdim
ama açılan kutuyu sıra ona gelince açılsın istiyorsanız event ları gözden geçirip sıra açılan kutuya geldiğini dinleyen olayı bulmak lazım
mesela girildi, geçerli olma, odaklanma gibi veya ondan önceki nesneden çıkılma olayı vs.
sonra hangi olay açılan kutu listesini görünür yapıyor onu bulmak lazım
hiç olmadı formun ilgili noktasının tıklanma olayını simüle ederdim mesela şu kod gibi
alıntıdır denemedim

Visual Basic Code
***********************
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


***********************
umarım başarılı olursunuz sonucu paylaşırsınız bizde kullanıp size teşekkür ederiz
@benbendedeilem
Cevapla
#4
(02/01/2020 10:03)ozanakkaya Adlı Kullanıcıdan Alıntı: Açılan kutunun girildiğinde olayına,

Visual Basic Code
Acilankutu_adi.Dropdown
 şeklinde kod eklemeniz gerekli.
 bu kadar kolay mıydı  +rep
@benbendedeilem
Cevapla
#5
eğer açılan kutu formun ilk nesnesi ise yani sekme dizini 0 ise bu girildi olayı geçerli olmuyor o zaman ne yapmak lazım
@benbendedeilem
Cevapla
#6
(02/01/2020 10:11)accessman Adlı Kullanıcıdan Alıntı: eğer açılan kutu formun ilk nesnesi ise yani sekme dizini 0 ise bu girildi olayı geçerli olmuyor o zaman ne yapmak lazım


Forma, Sekme Dizini değeri 0 ve Denetim Kaynağı boş olan metin kutusu ekle, metin kutusunun genişlik, ve yükseklik değerlerini 0 yap.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task