新Visual Basic程序设计教程 教学课件 邱李华 郭全 vb第08章.pptVIP

第7章 常用控件 8.1 框 架 8.2 图 片 框 要使图片框控件能够自动调整大小以显示整幅图像，可以将其AutoSize属性设置为True。 8.3 图 像 框 图像框控件的Stretch属性 8.4 选 项 按 钮 1．属性 （1）Value： True——选中；False——没选中 （2）Alignment： 0（或vbLeftJustify）——文本左对齐； 1（或vbRightJustify）——文本右对齐。 （3）Style： 0（或vbButtonStandard）——旁边带有文本的圆形按钮； 1（或vbButtonGraphical）——与命令按钮相同的形状，还可以为其设置颜色或添加图形。 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 8.5 复 选 框 2．事件 复选框常用的事件为Click事件。运行时单击复选框，或在代码中改变复选框的Value属性值时，产生Click事件。 【例8-2】在例8-1的基础上，添加一组工具栏按钮，用于设置文本框文字的样式与效果，包括粗体、斜体、下划线和删除线。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End Sub Private Sub Check4_Click() If Check4.Value = 1 Then Text1. FontStrikethru = True Else Text1.Font Strikethru = False End Sub 8.6 列 表 框 （2）Style属性：返回或设置列表框的显示样式 （3）Columns属性：返回或设置列表框是按单列显示（垂直滚动）还是按多列显示（水平滚动）。 （4）Text属性：返回列表框中被选择的项目文本。Text属性为只读属性。 （5）ListIndex属性：返回或设置列表框中当前选择项目的索引，在设计时不可用。列表框的索引从0开始，如果没有在列表框中选择项目，则ListIndex的值为-1。 （6）ListCount属性：返回列表框中列表部分项目的总个数。 （7）Sorted属性：指定列表项目是否自动按字母表顺序排序。 True——按字母表顺序排序； False（缺省值）——不按字母表顺序排序。 （8）Selected属性：返回或设置在列表中的某项的选择状态。该属性在设计时不可用。 （9）MultiSelect属性：返回或设置一个值，该值指示是否能够同时选择列表框中的多个项（复选），以及如何进行复选。该属性在运行时是只读的。 0（缺省）——不允许复选； 1——单击鼠标或按空格键可在列表中选择或取消选择列表项； 2——Shift键与鼠标或箭头键配合进行多选；Ctrl键与鼠标配合进行多选。 8.7 组 合 框 （2）Style属性：用于指定组合框的显示形式，可以取以下几种值。 0（缺省）——下拉组合框，包括一个文本框和一个下拉式列表。 1——简单组合框。该形式同样包括一个文本框和一个列表框，但不能将列表折叠起来。 2——下拉列表框。这种样式仅允许从下拉列表中选择，不能在文本框中输入文本，列表可以折叠起来。 Private Sub Combo2_Click() ‘Combo2中选择某种颜色 Select Case Combo2.Text Case 黑色 Text1.BackColor = vbBlack Case 白色 Text1.BackColor = vbWhite Case 红色 Text1.BackColor = vbR