WORD中如何用VBA实现自动图文集的橡皮筋技术

WORD中如何用VBA实现自动图文集的橡皮筋技术

[ 本帖最后由 chuhaiou 于 2011-4-11 11:12 编辑 ]

Dim mx As Single, my As Single, flag As Integer

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      mx = X
      my = Y
      flag = 1
      Form1.MousePointer = 2
    End Sub

    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If flag = 1 Then
    Form1.Cls
    Line (mx, my)-(X, Y)
    End If
    End Sub

    Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    flag = 0
    Form1.MousePointer = 0
    End Sub

[ 本帖最后由 chuhaiou 于 2011-4-11 11:26 编辑 ]