Private declare function htmlhelp lib _ "hhctrl.ocx" alias "htmlhelpa" _ (Byval Hwndcaller as stay, _byval pszfile as string, Byval _UCommand as long, Byval Dwdata as long) As long
DIM Changed as Boolean
Dim Button As INTEGERPRIVATE TYPE RECT AS Long Top As Long Right As Long Bottom As LONGEND TYPE
Private Type Pointapi X As Long Y As Longend Type
Private Type PageSetupDlg lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long FLAGS As Long ptPaperSize As POINTAPI rtMinMargin As Rect rtMargin As Rect hInstance As Long lCustData As Long lpfnPageSetupHook As Long lpfnPagePaintHook As Long lpPageSetupTemplateName As String hPageSetupTemplate As LongEnd Type
Private Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" _ (pPagesetupdlg As PageSetupDlg) As LongDim PageSetup As PageSetupDlgDim Pflag As LongDim Pmode As LongDim Psize As POINTAPI
PRIVATE SUB FORM_LOAD () Form1.caption = "notitled-notepad"
Mnuundo.caption = "Undo (& U)" CHR (9) "Ctrl Z" MNUJian.caption = "Cut (& T) CHR (9) " Ctrl X "Mnucopy.caption =" copy ( & C) " CHR (9) " Ctrl C "mnupaste.caption =" Paste (& P) CHR (9) "Ctrl V" mnujian.enabled = falseMnuundo.Nabled = falsemnucopy.enabled = false
Mnudelete.enabled = falseif clipboard.getText () <> "" "" the mnupaste.enabled = trueelse mnupaste.enabled = falsement = nullchanged = false
End Sub
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer) If Changed = True Then Button = MsgBox (Form1.Caption "file has changed," Chr (13) "do you save?", VbYesNoCancel vbExclamation) If Button = Vbyes damaVe_click end elseif button = vbno dam = true else endend iFend Sub
Private sub form_resize () text1.top = scaletoptext1.left = schelalefttext1.width = scalewidthtext1.height = scaleheight
End Sub
Private sub mnuabout_click () form4.shownd SUB
Private sub mnuall_click () text1.selstart = 0text1.sellength = len (text1.text) End Sub
Private sub mnucline_click ()
Mnucline.checked = not mnuCline.checked = true kilse text1.rightmargin = 2500nd ifend subrgin = 2500nd ifend subrgin = 2500nd ifend
Private sub mnucopy_click ()
SendKeys "^ {INSERT}"
End Sub
Private sub mnudate_click () DString = formatdatetime (now, 4) Space (2) formatdatetime (now, 2) SendKeys DSTRINGEND SUB
Private sub mnudelete_click () text1.seltext = "" "" End Sub
Private sub mnuexit_click ()
If Changed = True Then Button = MsgBox (Form1.Caption "file has changed," Chr (13) "do you save?", VbYesNoCancel vbExclamation) If Button = vbYes Then mnuSave_Click ElseIf Button = vbNo Then End End If Else Endend IF
End Sub
Private sub mnufind_click () Form2.Shownd Sub
Private Sub mnuFont_Click () CommonDialog1.FontName = Text1.SelFontNameCommonDialog1.FLAGS = FontsConstants.cdlCFScreenFontsCommonDialog1.FontStrikethru = Text1.SelStrikeThruCommonDialog1.FontBold = Text1.SelBoldCommonDialog1.FontItalic = Text1.SelItalicCommonDialog1.FontUnderline = Text1.SelUnderlineCommonDialog1.FontSize = Text1.SelFontSizeCommonDialog1.FontStrikethru = Text1.SelStrikeThruCommonDialog1.Color = Text1.SelColorCommonDialog1.ShowFont'Text1.SelFontName = CommonDialog1.FontName'Text1.SelStrikeThru = CommonDialog1.FontStrikethru'Text1.SelBold = CommonDialog1.FontBold'Text1.SelColor = CommonDialog1.Color'Text1.SelItalic = CommonDialog1 .FontItalic'Text1.SelUnderline = CommonDialog1.FontUnderline'Text1.SelFontSize = CommonDialog1.FontSize'Text1.SelStrikeThru = CommonDialog1.FontStrikethruText1.Font.Bold = CommonDialog1.FontBoldText1.Font.Italic = CommonDialog1.FontItalicText1.Font.Name = CommonDialog1.FontNameText1 .FONT.SIZE = CommonDialog1.fontsize
End Sub
Private sub mnugoto_click () form3.show'FORM3.SETFOCUS = FORM3.TEXT1.TEXTEND SUB
Private sub mnuhelptopic_click ()
'App.helpfile = "E: /NOTEPAD/note.chm"' sendKeys "{f1}" 'yeah = shellexecute (form1.hwnd, "open", "e: / notepad/note.chm", null, null, SW_SHOWNORMAL) 'Shell "E: /NOTEPAD/Note.chm", VBNORMALFOCUS'SHELL "HH" app.path "/note.chm", VBNORMALFOCUS'SHELL "E: /NOTEPAD/note.chm", VBNORMALFOCUSHTMLHELP HWND, "D: / Notepad/note.chm", 0, 0nd Sub
Private sub mnujian_click ()
SendKeys " {DEL}"
End Sub
Private sub mnuline7_click (index as integer) Dim i as integercommondialog1.showundenend Sub
Private Sub mnuNew_Click () If Changed = True Then Button = MsgBox (Form1.Caption "file has changed," Chr (13) "do you save?", VbYesNoCancel vbExclamation) If Button = vbYes Then mnuSave_Click End IfEnd IfText1 .Text = "" Form1.caption = "notitled-notepad" Changed = false
Private sub mnunext_click ()
IF gstring <> ""1 Form2.visible = false form2.command1_clickelse form2.visible = truendiff
End Sub
Private Sub mnuOpen_Click () If Changed = True Then Button = MsgBox (Form1.Caption "file has changed," Chr (13) "do you save?", VbYesNoCancel vbExclamation) If Button = vbYes Then mnuSave_Click End IfEnd IfCommonDialog1 .Showopenfile = commondialog1.filename
If File <> "" "c) file for input as # 1 if not eof (file) TEXT1.TEXT = INPUT (Lof (1), # 1) Close # 1changed = falseEnd IFEND SUB
Private sub mnupage_click ()
With PageSetup .lStructSize = Len (PageSetup) .hwndOwner = hwnd PageSetupDlg PageSetup Pflag = .FLAGS Psize = .ptPaperSize Pmode = .hDevMode End With 'Pflag = PageSetupDlg (PageSetup)' Text1.SetFocusEnd Sub
Private sub mnupaste_click () sendKeys " {insert}" end SUB
Private Sub mnuPrint_Click () CommonDialog1.FLAGS = Pmode'If Text1.SelLength = 0 Then 'CommonDialog1.FLAGS = cdlPDReturnDC cdlPDAllPages'Else' CommonDialog1.FLAGS = cdlPDReturnDC cdlPDSelection'End IfCommonDialog1.ShowPrinterOn Error GoTo tripPrinter.Print "" If CommonDialog1 .hdc> 0 THEN TEXT1.PRINT Commondialog1.hdcprinter.Enddoc
Trip: End Sub
Private sub mnureplace_click () frmReplace.shownd Sub
Private sub mnusave_click () if Form1.caption = "notitled-notepad" then
Commondialog1.dialogtitle = "save" Commondialog1.showsavefile = comMMondialog1.FileName if File <> "" ""1 Form1.caption = file open file for output as # 1 print # 1, text1.text close # 1 Endix
Else file = form1.caption open file for output as # 1 print # 1, text1.text close # 1END IFEND SUB
Private Sub mnuSaveAs_Click () CommonDialog1.DialogTitle = "save as" CommonDialog1.ShowSavefile = CommonDialog1.FileNameIf file <> "" Then Form1.Caption = file Open file For Output As # 1 Print # 1, Text1.Text Close # 1End IfEnd Sub
Private sub mnuundo_click () sendkeys "^ {z}" end sub
Private sub text1_change () Changed = truemnuundo.enabled = TRUE
End Sub
Private Sub Text1_SelChange () If Text1.SelLength <> 0 Then mnuJian.Enabled = True mnuCopy.Enabled = True mnuDelete.Enabled = True Else mnuJian.Enabled = False mnuCopy.Enabled = False mnuDelete.Enabled = FalseEnd IfEnd Sub