Visual_Basic_程序設计教程_曹青邱李华等编著_机械工业答案.docVIP

家电维修社团整理 2 - 更多精彩，静待家电维修 P37#2-4 Private Sub cmdBegin_Click() Timer1.Enabled = True 激活定时器 cmdBegin.Enabled = False cmdEnd.Enabled = True End Sub Private Sub cmdEnd_Click() Timer1.Enabled = False 关闭定时器 Label1.Left = 0 标签归位到窗体左侧 cmdBegin.Enabled = True cmdEnd.Enabled = False End Sub Private Sub Form_Load() Label1.Left = 0 初始将标签归位到窗体左侧 End Sub Private Sub Timer1_Timer() Label1.Move Label1.Left + 20 每隔0.1秒标签向右移动20缇 End Sub 2-5 Dim tmp Private Sub Command1_Click() “复制”按钮 Text1.SetFocus 焦点定位在文本框Text1 tmp = Text1.SelText 将选中的内容存放在变量tmp中 End Sub Private Sub Command2_Click() “剪切”按钮 tmp = Text1.SelText 将选中的内容存放在变量tmp中 Text1.SelText = 将选中的内容置为空串 Text1.SetFocus 焦点定位在文本框Text1 End Sub Private Sub Command3_Click() “粘贴”按钮 Text1.SelText = tmp 将变量tmp的值赋给文本框选中的内容 Text1.SetFocus 焦点定位在文本框Text1 End Sub Private Sub Command4_Click() “下划线”按钮 Text1.FontUnderline = Not Text1.FontUnderline 设置或取消下划线 End Sub Private Sub Command5_Click() “删除线”按钮 Text1.FontStrikethru = Not Text1.FontStrikethru 设置或取消删除线 End Sub Private Sub Command6_Click() “加粗”按钮 Text1.FontBold = Not Text1.FontBold 设置或取消加粗线 End Sub Private Sub Command7_Click() “倾斜”按钮 Text1.FontItalic = Not Text1.FontItalic 设置或取消倾斜 End Sub Private Sub Command8_Click() “放大”按钮 Text1.FontSize = Text1.FontSize + 5 字体放大5磅 End Sub Private Sub Command9_Click() “缩小”按钮 Text1.FontSize = Text1.FontSize - 5 字体缩小5磅 End Sub P38#2-8 Private Sub Form_Load() 在开始运行时设置各文本框的文字大小和字体 Text2.FontName = 隶书 Text2.FontSize = 16 Text3.FontName = 楷体_GB2312 Text3.FontSize = 18 End Sub Private Sub Text1_Change() 在Text1中改变内容时改变Text2和Text3的内容 Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub Private Sub Command1_Click() 清除按钮 Text1.Text = End Sub Private