想有记事本如何做？

Question

具体就是编程序、有的高手帮下忙交下 谢谢··！！

Answer 1

用VB编吧：Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)Private Sub Form_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'close all sub forms
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "新建"
'应做:添加 '新建' 按钮代码。
MsgBox "添加 '新建' 按钮代码。"
Case "打开"
mnuFileOpen_Click
Case "保存"
mnuFileSave_Click
Case "打印"
mnuFilePrint_Click
Case "剪切"
mnuEditCut_Click
Case "复制"
mnuEditCopy_Click
Case "粘贴"
mnuEditPaste_Click
Case "粗体"
'应做:添加 '粗体' 按钮代码。
MsgBox "添加 '粗体' 按钮代码。"
Case "斜体"
'应做:添加 '斜体' 按钮代码。
MsgBox "添加 '斜体' 按钮代码。"
Case "下划线"
'应做:添加 '下划线' 按钮代码。
MsgBox "添加 '下划线' 按钮代码。"
Case "左对齐"
'应做:添加 '左对齐' 按钮代码。
MsgBox "添加 '左对齐' 按钮代码。"
Case "置中"
'应做:添加 '置中' 按钮代码。
MsgBox "添加 '置中' 按钮代码。"
Case "右对齐"
'应做:添加 '右对齐' 按钮代码。
MsgBox "添加 '右对齐' 按钮代码。"
End Select
End SubPrivate Sub mnuHelpAbout_Click()
MsgBox "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End SubPrivate Sub mnuHelpSearchForHelpOn_Click()
Dim nRet As Integer
'如果这个工程没有帮助文件，显示消息给用户
'可以在“工程属性”对话框中为应用程序设置帮助文件
If Len(App.HelpFile) = 0 Then
MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
ElseOn Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End IfEnd SubPrivate Sub mnuHelpContents_Click()
Dim nRet As Integer
'如果这个工程没有帮助文件，显示消息给用户
'可以在“工程属性”对话框中为应用程序设置帮助文件
If Len(App.HelpFile) = 0 Then
MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End IfEnd Sub
Private Sub mnuViewWebBrowser_Click()
'应做:添加 'mnuViewWebBrowser_Click' 代码。
MsgBox "添加 'mnuViewWebBrowser_Click' 代码。"
End SubPrivate Sub mnuViewOptions_Click()
'应做:添加 'mnuViewOptions_Click' 代码。
MsgBox "添加 'mnuViewOptions_Click' 代码。"
End SubPrivate Sub mnuViewRefresh_Click()
'应做:添加 'mnuViewRefresh_Click' 代码。
MsgBox "添加 'mnuViewRefresh_Click' 代码。"
End SubPrivate Sub mnuViewStatusBar_Click()
mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
sbStatusBar.Visible = mnuViewStatusBar.Checked
End SubPrivate Sub mnuViewToolbar_Click()
mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
tbToolBar.Visible = mnuViewToolbar.Checked
End SubPrivate Sub mnuEditPasteSpecial_Click()
'应做:添加 'mnuEditPasteSpecial_Click' 代码。
MsgBox "添加 'mnuEditPasteSpecial_Click' 代码。"
End SubPrivate Sub mnuEditPaste_Click()
'应做:添加 'mnuEditPaste_Click' 代码。
MsgBox "添加 'mnuEditPaste_Click' 代码。"
End SubPrivate Sub mnuEditCopy_Click()
'应做:添加 'mnuEditCopy_Click' 代码。
MsgBox "添加 'mnuEditCopy_Click' 代码。"
End SubPrivate Sub mnuEditCut_Click()
'应做:添加 'mnuEditCut_Click' 代码。
MsgBox "添加 'mnuEditCut_Click' 代码。"
End SubPrivate Sub mnuEditUndo_Click()
'应做:添加 'mnuEditUndo_Click' 代码。
MsgBox "添加 'mnuEditUndo_Click' 代码。"
End SubPrivate Sub mnuFileExit_Click()
'卸载窗体
Unload MeEnd SubPrivate Sub mnuFileSend_Click()
'应做:添加 'mnuFileSend_Click' 代码。
MsgBox "添加 'mnuFileSend_Click' 代码。"
End SubPrivate Sub mnuFilePrint_Click()
'应做:添加 'mnuFilePrint_Click' 代码。
MsgBox "添加 'mnuFilePrint_Click' 代码。"
End SubPrivate Sub mnuFilePrintPreview_Click()
'应做:添加 'mnuFilePrintPreview_Click' 代码。
MsgBox "添加 'mnuFilePrintPreview_Click' 代码。"
End SubPrivate Sub mnuFilePageSetup_Click()
On Error Resume Next
With dlgCommonDialog
.DialogTitle = "页面设置"
.CancelError = True
.ShowPrinter
End WithEnd SubPrivate Sub mnuFileProperties_Click()
'应做:添加 'mnuFileProperties_Click' 代码。
MsgBox "添加 'mnuFileProperties_Click' 代码。"
End SubPrivate Sub mnuFileSaveAll_Click()
'应做:添加 'mnuFileSaveAll_Click' 代码。
MsgBox "添加 'mnuFileSaveAll_Click' 代码。"
End SubPrivate Sub mnuFileSaveAs_Click()
'应做:添加 'mnuFileSaveAs_Click' 代码。
MsgBox "添加 'mnuFileSaveAs_Click' 代码。"
End SubPrivate Sub mnuFileSave_Click()
'应做:添加 'mnuFileSave_Click' 代码。
MsgBox "添加 'mnuFileSave_Click' 代码。"
End SubPrivate Sub mnuFileClose_Click()
'应做:添加 'mnuFileClose_Click' 代码。
MsgBox "添加 'mnuFileClose_Click' 代码。"
End SubPrivate Sub mnuFileOpen_Click()
Dim sFile As String
With dlgCommonDialog
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
'ToDo: 添加处理打开的文件的代码End SubPrivate Sub mnuFileNew_Click()
'应做:添加 'mnuFileNew_Click' 代码。
MsgBox "添加 'mnuFileNew_Click' 代码。"
End Sub

Answer 2

去网上搜索“记事本下载”就行啦

Answer 3

楼上说的对~可以去搜索下载个~呵呵鄙视复制别人答案的~~