xmnotepad2.bas

简单记事本

Attribute VB_Name = "Module1"
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

Global Secret As Integer, SecStr As String
Global DefaultTitle As String, JustChanged As Boolean

Const WM_USER = &H400
Const EM_UNDO = WM_USER + 23
Global Docs As Integer
Global ChildForms(1 To 30) As Form1
Global UnAvail(1 To 30) As Boolean
Global Pos As Integer
Global SearchStr As String
Global MatchCase As Boolean
Global DefaultFontName As String
Global DefaultFontSize As Integer
Global DefaultFontColor As Long
Global DefaultFontBold As Boolean
Global DefaultFontItalic As Boolean
Global DefaultFontUnderline As Boolean
Global DefaultFontStrikethru As Boolean
Global UndoText(1 To 30) As String, Opened As Boolean
Global DocTemp As Integer, NeedSaved(30) As Boolean
Global File(1 To 30) As String, PFile(1 To 30) As String

Function GetBinary(Number As Integer) As String
Dim binstr As String
binstr = ""
Number = Number + 1
For x = 7 To 0 Step -1
If Number > 2 ^ x Then
Number = Number - 2 ^ x
binstr = binstr & "1"
Else
binstr = binstr & "0"
End If
Next
GetBinary = binstr
End Function

Function BintoDec(binstr As String) As Integer
Dim Number As Integer
For x = 0 To 7
If Mid$(binstr, x + 1, 1) = "1" Then
Number = Number + (2 ^ (7 - x))
End If
Next
BintoDec = Number
End Function

Function frm() As Integer
On Error GoTo CreateNew
frm = Val(MDIForm1.ActiveForm.Tag)
Exit Function
CreateNew:
Dim ret As Integer
DocTemp = FirstAvail
If DocTemp <> -1 Then
 Set ChildForms(DocTemp) = New Form1
 ChildForms(DocTemp).Caption = "Document " & DocTemp
 ChildForms(DocTemp).Tag = DocTemp
Else
 MsgBox "You are only allowed 30 documents opened at one time."
End If
frm = Val(MDIForm1.ActiveForm.Tag)
End Function

Function FirstAvail() As Integer
For x = 1 To 30
  If UnAvail(x) = False Then
    UnAvail(x) = True
    FirstAvail = x
    Exit Function
  End If
Next
FirstAvail = -1
End Function