How to Move a Control Across a Form at Run Time

MORE INFORMATION

Example Showing How to Move Text Box Across Form at Run Time

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a Text box (Text1) and Command button (Command1) to the form.
3. Place the following code in the (general) (declarations) section of Form1:

      Dim moving_flag%   'moving flag to toggle moving ability
   						

4. Place the following code in the Command1 Click event procedure of Form1:

      Sub Command1_Click ()
         moving_flag% = 1   'start the text box moving with the mouse
      End Sub
   						

5. Place the following code in the Form Load event procedure of Form1:

      Sub Form_Load ()
         moving_flag% = 0   ' Initially set the flag to turn off the moving.
         Command1.Caption = "Turn moving on"
      End Sub
   						

6. Place the following code in the Form MouseMove event procedure of Form1:

      ' Enter the following two lines as one, single line:
      Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single,
         y As Single)
         If moving_flag% = 1 Then   ' Condition to call the moving procedure.
            Text1.Move x, y
         End If
      End Sub
   						

7. Place the following code in the Text1 Click event:

      Sub Text1_Click ()
         moving_flag% = 0
      End Sub
   						

8. From the Run menu, choose Start (ALT, R, S), or press the F5 key to run the program. Click the Command1 button. Then click within the Text1 box to stop the moving.