VB 记事本源码 谢谢!!
怎样用Vb写一个Windows一样的记事本 帮帮我 不胜感激!!!!!
[解决办法]
'当“保存”菜单项被点击时
Private Sub mnuSave_Click()
CmdOpen.ShowSave
'RichTextBox的SaveFile方法,保存文本
RichTextBox1.SaveFile (CmdOpen.FileName)
End Sub
'当“查找”菜单项被点击时
Private Sub mnuFind_Click()
'InputBox( "弹出的输入框的标题 ",[默认值], [返回的值])
'语法:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
sFind = InputBox( "Find what? ", , sFind)
'RichTextBox1.Find 是一个方法,根据给定的字符串,在 RichTextBox 控件中搜索文本
RichTextBox1.Find sFind
End Sub
'当“打开”菜单项被点击时
Private Sub mnuOpen_Click()
'参看上面CommonDialog方法
CmdOpen.ShowOpen
'RichTextBox的LoadFile方法
RichTextBox1.LoadFile (CmdOpen.FileName)
End Sub
Private Sub Command4_Click() 'print
'CommonDialog 控件的名称是“dlgPrint”。
CommonDialog3.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog3.Flags = CommonDialog3.Flags + cdlPDAllPages
Else
CommonDialog3.Flags = CommonDialog3.Flags + cdlPDSelection
End If
CommonDialog3.ShowPrinter
RichTextBox1.SelPrint CommonDialog3.hDC
End Sub
Private Sub aaa_Click() '粘贴
RichTextBox1.SelText = Clipboard.GetText()
End Sub
Private Sub bbbb_Click() '全选
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
End Sub
Private Sub cccc_Click() '剪切
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.Text = " "
End Sub
Private Sub copy_Click() '复制
Clipboard.SetText RichTextBox1.SelText
End Sub
Private Sub dddd_Click() '字体
RichTextBox1.SelFontSize = 33
End Sub
Private Sub DEL_Click()
RichTextBox1.SelText = " "
End Sub