VB 记事本源码 谢谢！！

Question

怎样用Vb写一个Windows一样的记事本   帮帮我   不胜感激！！！！！

Answer 1

'当“保存”菜单项被点击时
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 SubPrivate 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 SubPrivate Sub aaa_Click() '粘贴
RichTextBox1.SelText = Clipboard.GetText()
End SubPrivate Sub bbbb_Click() '全选
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
End SubPrivate Sub cccc_Click() '剪切
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.Text = ""
End SubPrivate Sub copy_Click() '复制
Clipboard.SetText RichTextBox1.SelText
End SubPrivate Sub dddd_Click() '字体
RichTextBox1.SelFontSize = 33
End SubPrivate Sub DEL_Click()
RichTextBox1.SelText = ""
End Sub

Answer 2

以前写的了，就界面来说还是很像的http://vip.nnzx.cn/kmlxk/xnotepad.rar (80kb)

Answer 3

CommonDialog3.Flags 
程序中Flags是什么意义？做什么用？

Answer 4

CommonDialog3.Flags 
程序中Flags是什么意义？做什么用？
-------------------------------------------------
返回或设置“字体”对话框的选项。设置值:cdlCFANSIOnly &H400 它指定对话框只允许选择 Windows 字符集的字体。如果该标志被设置，就不能选择仅含符号的字体。 
cdlCFApply &H200 它使对话框中的“应用”按钮有效。 
cdlCFBoth &H3 使对话框列出可用的打印机和屏幕字体。hDC 属性标识与打印机相关的设备描述体。 
cdlCFEffects &H100 它指定对话框允许删除线，下划线，以及颜色效果。  
cdlCFFixedPitchOnly &H4000 它指定对话框只能选择固定间距的字体。 
cdlCFForceFontExist &H10000 它指定如果用户试图选择一个并不存在的字体或样式，显示错误信息框。 
cdlCFHelpButton &H4 使对话框显示帮助按钮。  
cdlCF例mitSize &H2000 它指定对话框只能在由 Min 和 Max 属性规定的范围内选择字体大小。 
cdlCFNoFaceSel &H80000 没有选择字体名称。 
cdlCFNoSimulations &H1000 它指定对话框不允许图形设备接口 (GDI) 字体模拟。 
cdlCFNoSizeSel &H200000 没有选择字体大小。 
cdlCFNoStyleSel &H100000 没有选择样式。 
cdlCFNoVectorFonts &H800 它指定对话框不允许矢量字体选择。 
cdlCFPrinterFonts &H2 使对话框只列出由 hDC 属性指定的打印机支持的字体。 
cdlCFScalableOnly &H20000 它指定对话框只允许选择可缩放的字体。 
cdlCFScreenFonts &H1 使对话框只列出系统支持的屏幕字体。 
cdlCFTTOnly &H40000 它指定对话框只允许选择 TrueType 型字体。 
cdlCFWYSIWYG &H8000 它指定对话框只允许选择在打印机和屏幕上均可用的字体。如果该标志被设置，则 cdlCFBoth 和 cdlCFScalableOnly 标志也应该设置。