如何在窗体上添加控件

在窗体上添加控件的步骤如下：

工具：联想威6、win10 20H2、visual studio 2010。

1、这是一个新建好的空白窗体，接着我们开始添加控件。

2、点击菜单栏上的“视图”菜单，然后点击“工具箱”。

3、点击之后，左边就会出现有一个“工具箱”选项卡，里面有许多控件。

4、然后找到我们需要添加的控件，然后双击，控件就会出现在右边的窗体上了。也可以直接按住鼠标左键，把窗体拖拽到窗体上。

5、接着，来到窗体这里，在控件上单击鼠标右键，选择“属性”。

6、然后在右边就会出现一个属性设置框，这里可以设置控件的名称。

7、之前的label控件名称已经变成了“用户名”。到此，怎样添加控件以及一些基本 *** 作已经结束了。

1、首先打开VB6.0，选择“标准EXE”。

2、然后按下键盘上的“Ctrl+T”来选择部件。

3、在其中找到“Microsoft Multimedia Control 6.0”选项。

4、点击左侧的小框框来选中。

5、点击对话框下部的确定按钮来完成添加。

6、此时，工具箱内就会出现小部件。

7、点击小部件，然后在窗体中画出小部件。

8、画完后，展现效果图。

9、关于MMcontrol的设置可以在右侧进行。

10、就这样，MMcontrol添加成功，可以为它书写代码了。

窗体上放入一个图片框PictureBox控件，一个矩形Shape控件，然后添加以下代码：

Dim SX As Single

Dim SY As Single

Private Sub Form_Load()

Me.AutoRedraw = True

Picture1.Visible = False

Picture1.Picture = LoadPicture("e:\tmp\cd1.gif")

Shape1.Visible = False

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

SX = X

SY = Y

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Shape1.Move SX, SY, X - SX, Y - SY

Shape1.Visible = True

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Shape1.Visible = False

Me.PaintPicture Picture1.Picture, SX, SY, X - SX, Y - SY

End If

End Sub

---