VB记事本问题

Question

我自己写咯一个VB的记事本！
但是保存文件的时候我点取消它也提示保存成功！
该怎么写代码啊~~

Answer 1

加入一个RichTextBox,一个commondialog,其他菜单见程序.

Option Explicit
Public sFind As String

Private Sub Form_Resize()
'如果窗体不处于最小化RichTextBox1状态，改变RichTextBox1大小以适应窗体大小变化
If Form1.WindowState <> 1 Then
RichTextBox1.Width = Form1.Width - 135
If Form1.Height < 1200 Then
Form1.Height = 1200
End If
RichTextBox1.Height = Form1.Height - 675
End If
End Sub

'当“退出”菜单项被点击时
Private Sub mnuExit_Click()
Unload Me
End Sub

'当“查找”菜单项被点击时
Private Sub mnuFind_Click()
sFind = InputBox("Find what?", , sFind)
RichTextBox1.Find sFind
End Sub

'当“字体”菜单项被点击时
Private Sub mnuFont_Click()
CmdOpen.Flags = cdlCFBoth + cdlCFEffects
CmdOpen.ShowFont
'将RichTextBox1的属性根据“字体”对话框的变化作相应设置
'----------------------------------------
'要改变 RichTextBox 控件中的字体特性，可以使用
'SelFontName、SelFontSize 和 SelFontColor 属性。
'----------------------------------------
With RichTextBox1
.SelFontName = CmdOpen.FontName
.SelFontSize = CmdOpen.FontSize
.SelBold = CmdOpen.FontBold
.SelItalic = CmdOpen.FontItalic
.SelStrikeThru = CmdOpen.FontStrikethru
.SelUnderline = CmdOpen.FontUnderline
End With
End Sub

'当“新建”菜单项被点击时，设置为空
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
End Sub

'当“查找下一个”菜单项被点击时
Private Sub mnuNext_Click()
' SelStart属性－返回或设置所选择的文本的起始点；
' 如果没有文本被选中，则指出插入点的位置。
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub

'当“打开”菜单项被点击时
Private Sub mnuOpen_Click()
CmdOpen.ShowOpen
RichTextBox1.LoadFile (CmdOpen.FileName)
End Sub

'当“打印”菜单项被点击时
Private Sub mnuPrint_Click()
CmdOpen.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CmdOpen.Flags = CmdOpen.Flags + cdlPDAllPages
Else
CmdOpen.Flags = CmdOpen.Flags + cdlPDSelection
End If
CmdOpen.ShowPrinter
'将 RichTextBox 控件中格式化文本发送给设备进行打印。
RichTextBox1.SelPrint CmdOpen.hDC
End Sub

'当“保存”菜单项被点击时
Private Sub mnuSave_Click()
CmdOpen.ShowSave
'RichTextBox的SaveFile方法，保存文本
RichTextBox1.SaveFile (CmdOpen.FileName)
End Sub