一个有难度的问题treeview与listview结合

Question

是说左右连动吗？
供你参考：
左边tvw，右边lvw，中间空140单位的分隔，有工具栏、状态栏。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If X > lvw.Left - 140 And X < lvw.Left Then
      Me.MousePointer = ccSizeEW
   End If
   If Button = vbLeftButton And X > 300 And X < Me.Width - 600 Then
      tvw.Width = X
      lvw.Left = X + 140
      lvw.Width = me.Width - X - 140
   End If
End SubPrivate Sub Form_Resize()
Dim tH As Integer
   tH = Me.ScaleHeight - Toolbar1.Height - StatusBar1.Height
   If tH > 0 Then
      tvw.Move 0, Toolbar1.Height, Me.ScaleWidth / 7 * 3 - 70, tH
      lvw.Move Me.ScaleWidth / 7 * 3 + 70, Toolbar1.Height, _
                     Me.ScaleWidth / 7 * 4 - 70, tH
   End If
End Sub

Answer 1

使用MoveWindow(...) API函数，再用Form?.?来传递坐标参数。