个人教学实践精华程序,VB6.0案例教学-文本编辑器(含代码).doc

n 加粗按钮：Private Sub Check1_Click() If Check1.Value = vbChecked Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd Subn 斜体按钮：Private Sub Check2_Click() If Check2.Value = vbChecked Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Subn 下划线按钮：Private Sub Check3_Click() If Check3.Value = vbChecked Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Subn 分行显示按钮Private Sub Command1_Click() Text1.Text = 静夜思 & vbCrLf & 床前明月光， & vbCrLf & 疑是地上霜。 & vbCrLf & 举头望明月， & vbCrLf & 低头思故乡。 End Subn 清除按钮Private Sub Command2_Click() Text1.Text = End Subn 退出按钮Private Sub Command3_Click() Dim a As Integer a = MsgBox(请问您确实要退出程序吗？, vbYesNo + vbQuestion, 作者温馨提示：) If a = vbYes Then End End If End Subn 字体颜色设置Private Sub Option1_Click() Text1.ForeColor = vbRedEnd SubPrivate Sub Option10_Click() Text1.BackColor = vbRedEnd SubPrivate Sub Option11_Click() Text1.BackColor = vbWhiteEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbBlueEnd SubPrivate Sub Option3_Click() Text1.ForeColor = vbGreenEnd SubPrivate Sub Option4_Click() Text1.ForeColor = vbBlackEnd Subn 字号大小设置Private Sub Option5_Click() Text1.FontSize = 12End SubPrivate Sub Option6_Click() Text1.FontSize = 18End SubPrivate Sub Option7_Click() Text1.FontSize = 20End Subn 背景颜色设置Private Sub Option8_Click() Text1.BackColor = vbYell