請教各位一下,要怎麼模擬像檔案總管那樣的東西
當TreeView裡的物件開始被拖曳,並且超過界線的時後
旁邊的ScrollBar 也會開始跟者移動?
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • K.Louis
  • Private Sub Command1_Click()
    Dim NodX As Node
     Dim i As Integer

    With TreeView1.Nodes
      Set NodX = .Add(, , "r", "Root")
      For i = 1 To 60
       Set NodX = .Add("r", tvwChild, , "Visual Basic " & CStr(i))
       NodX.EnsureVisible
      Next

    End With

    Set NodX = Nothing
    End Sub