Treeview'ın Enabled Özelliği

Treeview'ın Enabled Özelliği - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Treeview'ın Enabled Özelliği (/konu-treeview-in-enabled-ozelligi.html)

Treeview'ın Enabled Özelliği - sss024 - 07/01/2019

Arkadaşlar, Treeview nesnesinin Enabled özelliğini True veya False yaptığımda form üzerindeki yeri ekranın üst köşesine yerleşiyor. Bu sorunu nasıl aşabiliriz. Dosyayı ekte bulabilirsiniz.

Cvp: Treeview'ın Enabled Özelliği - berduş - 07/01/2019

buton yordamlarını aşağıdaki kodlarla değiştirip dener misiniz

Private Sub Komut8_Click()

Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = True

    TreeView0.Left = y

    TreeView0.Top = x

End Sub

Private Sub Komut9_Click()

    Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = False

    TreeView0.Left = y

    TreeView0.Top = x

End Sub

Cvp: Treeview'ın Enabled Özelliği - sss024 - 07/01/2019

(07/01/2019, 20:05)haliliyas yazdı: buton yordamlarını aşağıdaki kodlarla değiştirip dener misiniz

Private Sub Komut8_Click()

Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = True

    TreeView0.Left = y

    TreeView0.Top = x

End Sub

Private Sub Komut9_Click()

    Dim x, y As Long

x = Me.TreeView0.Top

y = Me.TreeView0.Left

    TreeView0.Enabled = False

    TreeView0.Left = y

    TreeView0.Top = x

End Sub

Yanıtın için teşekkür ederim. Bu çözümü ben de düşünmüştüm. Ancak anlamadığım kısım: Neden sanki ikinci bir nesne gibi gösteriyor. Yani ikinci bir yükleme gibi. Tabii tam öyle mi oluyor? Onu da bilmiyorum.