Private Sub Option 1Click y YearNow Label 1
单击各个单选按钮的事件过程代码如下: Private Sub Option 1_Click() y$ = Year(Now) Label 1. Caption = "今年是" + y$ + "年" End Sub Private Sub Option 2_Click() m$ = Month(Now) Label 1. Caption = "这月是" + m$ + "月份" End Sub Private Sub Option 3_Click() w$ = Weekday(Now) Label 1. Caption = "今天是星期" + w$ End Sub Private Sub Option 4_Click() d$ = Day(Now) Label 1. Caption = "今天是" + d$ + "号" End Sub 退出程序,单击“结束”命令按钮事件过程代码如下: Private Sub command 1_Click() End Sub
第五章 Visual Basic常用控件 (2)单击各个复选框按钮的事件过程代码如下: Private Sub Check 1_Click() ‘设置字体为黑体 If Check 1. Value = 1 Then Text 1. Font. Name = "黑体" Else Text 1. Font. Name = "宋体" End If End Sub Private Sub Check 2_Click() ‘设置字号为 16 If Check 2. Value = 1 Then Text 1. Font. Size = 16 Else Text 1. Font. Size = 8 End If End Sub Private Sub Check 3_Click() ‘设置字颜色为紫色 If Check 3. Value = 1 Then Text 1. Fore. Color = QBColor(13) Else Text 1. Fore. Color = QBColor(0) End If End Sub Private Sub Check 4_Click() ‘设置字样式为粗体 If Check 4. Value = 1 Then Text 1. Font. Bold = True Else Text 1. Font. Bold = False End If End Sub
第五章 Visual Basic常用控件 (2)单击各个复选框按钮的事件过程代码如下: Private Sub Check 5_Click() ‘设置字样式为斜体 If Check 5. Value = 1 Then Text 1. Font. Italic = -1 Else Text 1. Font. Italic = 0 End If End Sub Private Sub Check 6_Click() ‘设置字样式为下划线 If Check 6. Value = 1 Then Text 1. Font. Underline = True Else Text 1. Font. Underline = False End If End Sub
第五章 Visual Basic常用控件 Private Sub Form_load ( ) List 1. Add. Item “心中的花” List 1. Add. Item “爱的翅膀” List 1. Add. Item “茉莉花开” List 1. Add. Item “荷塘月色” List 1. Add. Item “天长地久” List 1. Add. Item “玩转世界” List 1. Add. Item “北京欢迎你” End Sub
第五章 Visual Basic常用控件 单击选择Command 1命令按钮,将左侧List 1列表框中选择 的项目移动到右侧List 2列表框中。 Private Sub Command 1_Click() If List 1. Text <> "" Then List 2. Add. Item List 1. Text End Sub n 单击删除Command 2命令按钮,删除在右侧List 2列表框中 选择的某项目。 Private Sub Command 2_Click() If List 2. Text <> "" Then List 2. Remove. Item List 2. List. Index End Sub n 单击重点Command 3命令按钮,删除在右侧List 2列表框中 所有的列表项目。 n
第五章 Visual Basic常用控件 Private Sub Command 3_Click() List 2. Clear End Sub 双击左侧List 1列表框中的某项目将选择项的内容添加到右 侧List 2列表框末尾。 Private Sub List 1_Dbl. Click() List 2. Add. Item List 1. Text End Sub n双击右侧List 2列表框中的某项目,删除在右侧List 2列表 框中选择的某项目。 Private Sub List 2_Dbl. Click() List 2. Remove. Item List 2. List. Index End Sub n
第五章 Visual Basic常用控件 选择组合框Combo 1中字体(F)的单击事件过程代码如下: Private Sub Combo 1_Click() Label 4. Font. Name = Combo 1. Text End Sub 选择组合框Combo 2中字体大小(S)的单击事件过程代码如下: Private Sub Combo 2_Click() Label 4. Font. Size = Val(Combo 2. Text) End Sub 选择列表框List 1中字体字形(Y)的单击事件过程代码如下: Private Sub List 1_Click() If List 1. Text = "常规" Then Label 4. Font. Bold = False Label 4. Font. Italic = False End If If List 1. Text = "斜体" Then Label 4. Font. Italic = True Label 4. Font. Bold = False End If
第五章 Visual Basic常用控件 If List 1. Text = "斜体" Then Label 4. Font. Italic = True Label 4. Font. Bold = False End If If List 1. Text = "粗体" Then Label 4. Font. Bold = True Label 4. Font. Italic = False End If If List 1. Text = "粗斜体" Then Label 4. Font. Bold = True Label 4. Font. Italic = True End If End Sub
第五章 Visual Basic常用控件 窗体Form_Load()启动事件过程代码如下: Private Sub Form_Load() Dim i As Integer For i = 0 To Screen. Font. Count – 1 ‘加载屏幕字体组合框 Combo 1. Add. Item Screen. Fonts(i) Next i For i = 10 To 30 Step 2 ‘初始化字体大小(S)组合框 Combo 2. Add. Item Str(i) Next i
第五章 Visual Basic常用控件 Label 4. Font. Name = "宋体" Label 4. Font. Size = 10 Label 4. Font. Bold = False Label 4. Font. Italic = False Combo 1. Text = "宋体" Combo 2. Text = Str(18) List 1. Add. Item "常规" List 1. Add. Item "粗体" List 1. Add. Item "斜体" List 1. Add. Item "粗斜体" End Sub ‘初始化设置标签框Label 4 ‘初始化设置和组合框Combo 1和 ‘向列表框List 1添加字形风格列表项目
第五章 Visual Basic常用控件 选择效果框架Frame 1中“删除线”复选按钮的单击事件过 程代码如下: Private Sub Check 1_Click() If Check 1. Value = vb. Checked Then Label 4. Font. Strikethru = True Else Label 4. Font. Strikethru = False End If End Sub
第五章 Visual Basic常用控件 选择效果框架Frame 1中“下划线”复选按钮的单击事件过 程代码如下: Private Sub Check 2_Click() If Check 2. Value = vb. Checked Then Label 4. Font. Underline = True Else Label 4. Font. Underline = False End If End Sub
综合代码 Private Sub Combo 1_Click() Label 1. Font. Name = Combo 1. Text End Sub Private Sub Combo 2_Click() Label 1. Font. Size = Val(Combo 2. Text) End Sub Private Sub List 1_Click() If List 1. Text = "常规" Then Label 1. Font. Bold = False Label 1. Font. Italic = False End If If List 1. Text = "斜体" Then Label 1. Font. Italic = True Label 1. Font. Bold = False End If If List 1. Text = "粗体" Then Label 1. Font. Bold = True Label 1. Font. Italic = False End If If List 1. Text = "粗斜体" Then Label 1. Font. Bold = True Label 1. Font. Italic = True End If End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 30 Combo 1. Add. Item Screen. Fonts(i) Next i For i = 10 To 30 Step 2 '初始化字体大小(S)组合框Combo 2. Add. Item Str(i) Next i Label 1. Font. Name = "宋体" '初始化设置标签框Label 4 Label 1. Font. Size = 10 Label 1. Font. Bold = False Label 1. Font. Italic = False Combo 1. Text = "宋体" '始化设置和组合框Combo 1和Combo 2. Text = Str(18) List 1. Add. Item "常规" '向列表框List 1添加字形风格列表项目 List 1. Add. Item "粗体" List 1. Add. Item "斜体"
第五章 Visual Basic常用控件 (2)单击滚动条两端的箭头或滚动条内拖动滚动块时,触 发Change事件过程代码如下: Private Sub HScroll 1_Change() Label 3. Caption = Str$(HScroll 1. Value) Label 4. Caption = Str$(VScroll 1. Value) a = HScroll 1. Value b = VScroll 1. Value c = a * b Label 6. Caption = Str$(c) End Sub Private Sub Command 1_Click() End Sub
第五章 Visual Basic常用控件 单击“变宽”命令按钮,事件过程代码如下: Private Sub Command 1_Click() Image 1. Left = Image 1. Left - Image 1. Width / 2 Image 1. Width = Image 1. Width * 2 End Sub n 单击“还原”命令按钮,事件过程代码如下: Private Sub Command 2_Click() Image 1. Left = 1440 Image 1. Top = 240 Image 1. Height = 1395 Image 1. Width = 1930 End Sub n
第五章 Visual Basic常用控件 单击“放大”命令按钮,事件过程代码如下: Private Sub Command 3_Click() Image 1. Left = Image 1. Left - Image 1. Width / 2 Image 1. Height = Image 1. Height * 1. 5 Image 1. Width = Image 1. Width * 1. 5 End Sub n
第五章 Visual Basic常用控件 单击“左移”命令按钮,事件过程代码如下: Private Sub Command 4_Click() Image 1. Left = Image 1. Left - Image 1. Width / 5 End Sub n 单击“退出”命令按钮,事件过程代码如下: Private Sub Command 5_Click() End Sub n 加载窗体给图像框装载一个图形文件事件过程代码如下: Private Sub Form_Load() Image 1. Picture = Load. Picture("D: l 5. 10. bmp") ‘括号内为图形文件名称 End Sub n
运行界面如图所示。 程序代� 如下: Private Sub Command 1_Click() '�� 按� 开始� 示� 画文字 Timer 1. Enabled = True End Sub Private Sub Timer 1_Timer() '移��� If (Form 1. Width - Label 1. Left) > 100 Then '当超� 窗体屏幕� Label 1. Move Label 1. Left + 100 Else Label 1. Move 0 End If End Sub
- Slides: 64