AccessTr.neT

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.

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

(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.