VB基础操作代码.docVIP

VB基础操作代码 1. 窗体的显示与隐藏 要求：1）在窗体上添加两个命令按钮，Command1的标题为“显示窗体”，Command2的标题为“隐藏窗体”。2）在工程资源管理器窗口添加新窗体Form2。3）填写适当的代码，控制Form2的显示和隐藏。4）保存工程为Jc01.Vbp窗体分别为Jc011.Frm、Jc012.Frm。 Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Form2.Hide End Sub 2. .测试鼠标按键值 要求：1）在窗体上添加名称为Text1的文本框并将内容清空。2）设置Text1的鼠标指针属性为15。3）在窗体的Mousedown事件中填写适当的代码，程序运行时在Text1中返回鼠标左键、右键按键的返回值。4）保存工程为Jc02.Vbp窗体为Jc02.Frm。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = Button End Sub 3. 窗体文本的显示与清除要求：1）在窗体上添加两个命令按钮，Command1的标题为“输出文本”，Command2的标题为“清除文本”。3）填写适当的代码，程序运行时单击Command1在窗体上显示“内蒙古财经学院”，单击Command2清除“内蒙古财经学院”。4）保存工程为Jc03.Vbp窗体为Jc03.Frm。 Private Sub Command1_Click() Print 内蒙古财经学院 End Sub Private Sub Command2_Click() Form1.Cls End Sub 4. 要求：1）设置窗体的背景为红色。2）更改窗体图标为1.ico。3）设置窗体的最大化最小化按钮不可用。4）在窗体上添加名称为Command1的命令按钮更改标题为“窗体标题”，编写适当的代码，程序运行时单击“窗体标题”按钮，窗体标题更改为“内蒙古财经学院”。5）保存工程为Jc04.Vbp窗体为Jc04.Frm。 Private Sub Command1_Click() Form1.Caption = 内蒙古财经学院 End Sub 5. 要求：1）设置窗体不显示控制菜单。2）设置窗体的背景为1.bmp。3）在窗体上添加名称为Command1的命令按钮更改标题为“关闭”，编写适当的代码，程序运行时单击“关闭”按钮关闭窗体。5）保存工程为Jc05.Vbp窗体为Jc05.Frm。 Private Sub Command1_Click() End End Sub 6. 要求：1）设置窗体外观属性为4。2）设置窗体启动时距离显示器左边距和上边距为0。3）在窗体上添加名称为Command1的命令按钮，编写适当的代码，程序运行时单击窗体隐藏命令按钮。4）保存工程为Jc06.Vbp窗体为Jc06.Frm。 Private Sub Form_Click() Command1.Visible = False End Sub 7. 要求：1）通过菜单编辑器制作如图所示的菜单。2）在资源管理器窗口中添加Form2。3）编写适当的代码，程序运行时单击打开菜单打开Form2，单击关闭菜单关闭Form2，单击退出菜单退出程序。3）保存工程为Jc07.Vbp窗体为Jc71.Frm、Jc72.Frm。 Private Sub DK_Click() Form2.Show End Sub Private Sub GB_Click() Form2.Hide End Sub Private Sub TC_Click() End End Sub 8. 要求：1）在资源管理器窗口中添加MDI窗体，通过菜单编辑器制作如图所示的菜单。2）设置Form1的属性将Form1设为MDI窗体的子窗体。3）编写适当的代码，程序运行时单击背景菜单的下拉菜单更改Form1的背景颜色。3）保存工程为Jc08.Vbp窗体为MDIform1.Frm、Jc08.Frm。 Private Sub H_Click() Form1.BackColor = RGB(255, 0, 0) End Sub Private Sub L_Click() Form1.BackColor = RGB(0, 255, 0) End Sub Private Sub U_Click() Form1.BackColor = RGB(0, 0, 255) End Sub 9. 要求：1）通过菜单编辑器制作如图所示的弹出菜单。2）编写适当的代码，右键单击窗体时显