1.2 常用标准控件(二).docVIP

1.2 常用标准控件（二） 实验2.1 选项按钮的使用 2.属性设置（请将表格补充完整） 表1.2.1 对象属性 对 象 属性名称 属性值 Text1 Text 计算机等级考试 Frame1 Caption 对齐方式 Frame2 Caption 字体 Option1 Caption 左对齐 Option2 Caption 居中 Option3 Caption 右对齐 Option4 Caption 宋体 Option5 Caption 黑体 3.完善程序代码 Private Sub Option1_Click() Text1.Alignment = 0 End Sub Private Sub Option2_Click() Text1.Alignment = 2 End Sub Private Sub Option3_Click() Text1.Alignment = 1 End Sub Private Sub Option4_Click() Text1.FontName = “宋体” End Sub Private Sub Option5_Click() Text1.FontName = “黑体” End Sub 实验2.2 复选框的使用 2.属性设置（请将表格补充完整） 表1.2.2 对象属性 对 象 属性名称 属性值 Form1 Caption 选课 Check1 Name CH1 Caption 数学 Value 0 Check2 Name CH2 Caption 语文 Value 1 Check3 Name CH3 Caption 外语 Value 0 Check4 Name CH4 Caption 计算机 Value 1 实验2.3 图像的使用 2.属性设置（请将表格补充完整） 表1.2.3 对象属性 对 象 属性名称 属性值 Image1 Height 2000 Width 3000 Stretch false CommandButton1 Name Cmd1 Caption 显示图片 CommandButton2 Name Cmd2 Caption 隐藏图片 3.完善程序代码 Private Sub Cmd1_Click() Image1.Picture = loadpicture(“C:\VB\Sy02\图片1.jpg”) End Sub Private Sub Cmd2_Click() Image1.Picture = loadpicture() End Sub 实验2.4 图片框和滚动条的使用 2.属性设置（请将表格补充完整） 表1.2.4 对象属性 对 象 属性名称 属性值 Pciture1 AutoSize false Picture C:\VB\Sy02\图片2.jpg CommandButton1 Caption 设置属性 3.完善程序代码 Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub Private Sub VScroll1_Scroll() picture1.height=VScroll1.value End Sub 实验2.5 滚动条的使用 2.属性设置（请将表格补充完整） 表1.2.5 对象属性 对 象 属性名称 属性值 HScroll1 Min 1 Max 100 Text1 Text 1 3.完善程序代码 Private Sub Form_Activate() HScroll1.setfoucs End Sub Private Sub HScroll1_Change() Text1.text=HScroll1.value End Sub 实验2.6 图形的使用(一) 表1.2.6 对象属性 对 象 属性名称 属性值 Form1 Captio