最近自己写了一个简单的记事本程序,自己第一次完整写的程序.程序中有很多Bug,程序代码沉余很大.写了很多重复的代码. 但是基本的记事本功能实现了.准备重新更新代码,希望至少在代码结构上能有所提高.
Private Sub about_Click()
mb = MsgBox("作者:城市灯火 E-Mail:xgd.csdh@yahoo.com.cn", vbOKOnly, "记事本")
End Sub
Private Sub all_Click()
If RichTextBox1.Visible = True Then
With RichTextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
With RichTextBox2
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Private Sub copy_Click()
Clipboard.Clear
If RichTextBox1.Visible = True Then
Clipboard.SetText RichTextBox1.SelText
Else
Clipboard.SetText RichTextBox2.SelText
End If
End Sub
Private Sub datatime_Click()
If RichTextBox1.Visible = True Then
RichTextBox1.SelText = Now()
Else
RichTextBox2.SelText = Now()
End If
End Sub
Private Sub del_Click()
If RichTextBox1.Visible = True Then
RichTextBox1.SelText = ""
Else
RichTextBox2.SelText = ""
End If
End Sub
Private Sub font_Click()
CommonDialog1.Flags = 1
CommonDialog1.ShowFont
With RichTextBox1
.font.Name = CommonDialog1.FontName
.font.Size = CommonDialog1.FontSize
.font.Bold = CommonDialog1.FontBold
.SelColor = CommonDialog1.Color
.font.Italic = CommonDialog1.FontItalic
.font.Underline = CommonDialog1.FontUnderline
.font.Strikethrough = CommonDialog1.FontStrikethru
End With
With RichTextBox2
.font.Name = CommonDialog1.FontName
.font.Size = CommonDialog1.FontSize
.SelColor = CommonDialog1.Color
.font.Bold = CommonDialog1.FontBold
.font.Italic = CommonDialog1.FontItalic
.font.Underline = CommonDialog1.FontUnderline
.font.Strikethrough = CommonDialog1.FontStrikethru
End With
End Sub
Private Sub Form_Load()
Tyuedu.Checked = False
zhuangtai