VB用户面设计课件.pptVIP

用户界面设计;常用控件 ;例：单选按钮示例 Private Sub Option1_Click() Label1.Caption = 教师 End Sub Private Sub Option2_Click() Label1.Caption = 学生 End Sub Private Sub Option3_Click() Label1.Caption = 其他 End Sub;Value属性值为整型，表示复选框的状态： 0 —— vbUnchecked 未选定 1 —— vbChecked 被选定 2 —— vbGrayed 灰色并显示一个选中标记。 ; Private Sub Command1_Click() Text1.Font.Name = IIf(Option1, 宋体, 黑体) Text1.Font.Bold = IIf(Check1 = 1, True, False) Text1.Font.Italic = IIf(Check2 = 1, True, False) Text1.Font.Strikethrough = IIf(Check3 = 1, True, False) Text1.Font.Underline = IIf(Check4 = 1, True, False) End Sub ;3、框架 (Frame) ;例2：摆出如下效果即可，具体代码实现在下一页。;Private Sub Check1_Click() Combo1.Enabled = Not Combo1.Enabled Text1.Enabled = Not Text1.Enabled End Sub Private Sub Check2_Click() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.Enabled End Sub;二、滚动条和进度条 ;1、滚动条属性;例1:计算0~18之间某个数阶乘，数据由滚动条获得。;例2：设计一个调色板应用程序，使用三个滚动条 作为三种基本颜色的输入工具。 ;Dim Red, Green, Blue As Long ‘通用中写 Private Sub Command1_Click() Text2.BackColor = text1.BackColor End Sub Private Sub Command2_Click() Text2.ForeColor = text1.BackColor End Sub Private Sub HScroll1_Change() Red = HScroll1.Value Green = HScroll2.Value Blue = HScroll3.Value text1.BackColor = rgb(red,green,blue) End Sub Private Sub HScroll2_Change() Red = HScroll1.Value Green = HScroll2.Value Blue = HScroll3.Value text1.BackColor = rgb(red,green,blue) End Sub Private Sub HScroll3_Change() Red = HScroll1.Value Green = HScroll2.Value Blue = HScroll3.Value text1.BackColor = rgb(red,green,blue) End Sub;3、ProgressBar控件 ; Dim Counter As Integer Dim Workarea(25000) As String ProgressBar1.Min = LBound(Workarea) ProgressBar1.Max = UBound(Workarea) ProgressBar1.Visible = True ProgressBar1.Value = ProgressBar1.Min 设置进度的值为Min 在整个数组中循