xmnotepadmaster.frm

简单记事本

ChildForms(frm).Text1.SelText = ""
End Sub

Private Sub mnuEncryptBinary_Click()
Dim EncStr As String
Dim EncKey As String, TempEncKey As String
Dim EncLen As Integer
Dim EncPos As Integer
Dim EncKeyPos As Integer
Dim tempChar As String
Dim TA As Integer, TB As Integer, TC As Integer

UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True

TempEncKey = InputBox("Enter the encryption key.  This key will be vital for decrypting this text later.", "Encrypt")
If TempEncKey = "" Then Exit Sub
EncStr = ""
EncPos = 1
EncKeyPos = 1

For x = 1 To Len(TempEncKey)
EncKey = EncKey & Asc(Mid$(TempEncKey, x, 1))
Next

EncLen = Len(EncKey)

For x = 1 To Len(ChildForms(frm).Text1.Text)
TB = Asc(Mid$(EncKey, EncKeyPos, 1))
EncKeyPos = EncKeyPos + 1
If EncKeyPos > EncLen Then EncKeyPos = 1
TA = Asc(Mid$(ChildForms(frm).Text1.Text, x, 1))
TC = TB Xor TA
tempChar = GetBinary(TC)
EncStr = EncStr & tempChar
Next
ChildForms(frm).Text1.Text = EncStr
End Sub

Private Sub mnuEncryptHex_Click()
Dim EncStr As String
Dim EncKey As String, TempEncKey As String
Dim EncLen As Integer
Dim EncPos As Integer
Dim EncKeyPos As Integer
Dim tempChar As String
Dim TA As Integer, TB As Integer, TC As Integer

UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True

TempEncKey = InputBox("Enter the encryption key.  This key will be vital for decrypting this text later.", "Encrypt")
If TempEncKey = "" Then Exit Sub
EncStr = ""
EncPos = 1
EncKeyPos = 1

For x = 1 To Len(TempEncKey)
EncKey = EncKey & Asc(Mid$(TempEncKey, x, 1))
Next

EncLen = Len(EncKey)

For x = 1 To Len(ChildForms(frm).Text1.Text)
TB = Asc(Mid$(EncKey, EncKeyPos, 1))
EncKeyPos = EncKeyPos + 1
If EncKeyPos > EncLen Then EncKeyPos = 1
TA = Asc(Mid$(ChildForms(frm).Text1.Text, x, 1))
TC = TB Xor TA
tempChar = Hex$(TC)
If Len(tempChar) < 2 Then tempChar = "0" & tempChar
EncStr = EncStr & tempChar
Next
ChildForms(frm).Text1.Text = EncStr
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuFind_Click()
Form3.Show
End Sub

Private Sub mnuFindNext_Click()
If MatchCase = True Then
Pos = InStr(Pos + 1, ChildForms(frm).Text1.Text, SearchStr)
Else
Pos = InStr(Pos + 1, ChildForms(frm).Text1.Text, SearchStr, vbTextCompare)
End If
If Pos <> 0 Then
ChildForms(frm).Text1.SelStart = Pos - 1
ChildForms(frm).Text1.SelLength = Len(SearchStr)
Exit Sub
Else
MsgBox "Cannot Find " & Chr$(34) & SearchStr & Chr$(34)
End If
End Sub

Private Sub mnuFont_Click()
Form2.Show 1
End Sub

Private Sub mnuInsertDateLong_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Date$, "Long Date")
End Sub

Private Sub mnuInsertDateMedium_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Date$, "Medium Date")
End Sub

Private Sub mnuInsertDateShort_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Date$, "Short Date")
End Sub

Private Sub mnuInsertFileName_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = File(frm)
End Sub

Private Sub mnuInsertPathAndFile_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = PFile(frm)
End Sub

Private Sub mnuInsertTimeLong_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Time$, "Long Time")
End Sub

Private Sub mnuInsertTimeMedium_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Time$, "Medium Time")
End Sub

Private Sub mnuInsertTimeShort_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Format(Time$, "Short Time")
End Sub

Private Sub mnuMinimizeAll_Click()
For x = 1 To 30
If UnAvail(x) = True Then
 ChildForms(x).WindowState = 1
End If
Next
End Sub

Private Sub mnuNew_Click()
Dim ret As Integer
DocTemp = FirstAvail
If DocTemp <> -1 Then
 Set ChildForms(DocTemp) = New Form1
 ChildForms(DocTemp).Caption = "Document " & DocTemp
 ChildForms(DocTemp).Tag = DocTemp
 File(frm) = ""
 PFile(frm) = ""
Else
 MsgBox "You are only allowed 30 documents opened at one time."
End If
End Sub

Private Sub mnuNextDoc_Click()
Dim Current As Integer
Current = frm
For x = Current + 1 To 30
  If UnAvail(x) = True Then
    ChildForms(x).SetFocus
    Exit Sub
  End If
Next
For x = 1 To Current - 1
  If UnAvail(x) = True Then
    ChildForms(x).SetFocus
    Exit Sub
  End If
Next
End Sub

Private Sub mnuOpen_Click()
Dim FileStr As String, FileN As String
Dim TempStr As String, DotPos As Integer

UndoText(frm) = ChildForms(frm).Text1.Text

JustChanged = True
On Error GoTo OpenCanceled

CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then Exit Sub
Open CommonDialog1.filename For Input As #1
FileStr = ""
Do Until EOF(1)
 Line Input #1, TempStr
 FileStr = FileStr & TempStr & Chr$(13) & Chr$(10)
Loop
ChildForms(frm).Caption = CommonDialog1.FileTitle
Opened = True
ChildForms(frm).Text1.Text = ""
Opened = True
ChildForms(frm).Text1.Text = FileStr
File(frm) = CommonDialog1.FileTitle
PFile(frm) = CommonDialog1.filename
Close #1
OpenCanceled:
End Sub

Private Sub mnuPaste_Click()
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
ChildForms(frm).Text1.SelText = Clipboard.GetText
End Sub

Private Sub mnuPreviousDoc_Click()
Dim Current As Integer
Current = frm
For x = Current - 1 To 1 Step -1
  If UnAvail(x) = True Then
    ChildForms(x).SetFocus
    Exit Sub
  End If
Next
For x = 30 To Current + 1 Step -1
  If UnAvail(x) = True Then
    ChildForms(x).SetFocus
    Exit Sub
  End If
Next
End Sub

Private Sub mnuPrint_Click()
On Error GoTo PrintCanceled:

CommonDialog1.Flags = DefaultFlags
CommonDialog1.ShowPrinter
Printer.Copies = CommonDialog1.Copies

If Text1.SelText = "" Then
  Printer.Print ChildForms(frm).Text1.Text
Else
  Printer.Print ChildForms(frm).Text1.SelText
End If

PrintCanceled:
End Sub

Private Sub mnuSave_Click()
If CommonDialog1.filename = "" Then
 mnuSaveAs_Click
Else
 Open CommonDialog1.filename For Output As #1
  Print #1, ChildForms(frm).Text1.Text
 Close #1
 If NeedSaved(frm) = True Then
   NeedSaved(frm) = False
   ChildForms(frm).Caption = Right$(ChildForms(frm).Caption, Len(ChildForms(frm).Caption) - 1)
 End If
End If
End Sub

Private Sub mnuSaveAs_Click()
On Error GoTo SaveCancelled

CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If CommonDialog1.filename = "" Then Exit Sub
Open CommonDialog1.filename For Output As #1
Print #1, ChildForms(frm).Text1.Text
Close #1
 If NeedSaved(frm) = True Then
   NeedSaved(frm) = False
   ChildForms(frm).Caption = Right$(ChildForms(frm).Caption, Len(ChildForms(frm).Caption) - 1)
 End If
 ChildForms(frm).Caption = CommonDialog1.FileTitle
File(frm) = CommonDialog1.FileTitle
PFile(frm) = CommonDialog1.filename
SaveCancelled:
End Sub

Private Sub mnuSelectAll_Click()
ChildForms(frm).Text1.SelStart = 0
ChildForms(frm).Text1.SelLength = Len(ChildForms(frm).Text1.Text)
End Sub

Private Sub mnuUndo_Click()
Debug.Print UndoText(frm)
If UndoText(frm) = "" Then
retval = SendMessage(ChildForms(frm).Text1.hwnd, EM_UNDO, 0&, 0&)
Else
ChildForms(frm).Text1.Text = UndoText(frm)
End If
End Sub

Private Sub mnuUnWebPagify_Click()
Dim FPos As Integer
Dim TextStr As String
UndoText(frm) = ChildForms(frm).Text1.Text
JustChanged = True
Pos = 1: FPos = 0: TextStr = ""
Do Until Pos = 0 Or Pos >= Len(ChildForms(frm).Text1.Text)
 Pos = InStr(FPos + 1, ChildForms(frm).Text1.Text, Chr$(13))
 If Pos > 0 Then
   ChildForms(frm).Text1.SelStart = FPos
   ChildForms(frm).Text1.SelLength = Pos - FPos
   TextStr = TextStr & LTrim$(ChildForms(frm).Text1.SelText) & Chr$(10)
   FPos = InStr(FPos + 1, ChildForms(frm).Text1.Text, Chr$(10))
 End If
Loop
   ChildForms(frm).Text1.SelStart = FPos
   Pos = Len(ChildForms(frm).Text1.Text)
   ChildForms(frm).Text1.SelLength = Pos - FPos
   TextStr = TextStr & LTrim$(ChildForms(frm).Text1.SelText)
ChildForms(frm).Text1.Text = TextStr

End Sub