Programming Tool Box/SIMS_2.iso/vb_code1/inotepad/inotepad.frm

Visual Basic Form | 1992-06-15 | 15KB | 394 lines

form1
INOTEPAD
pwwwwwwwww
pwwwwwwwww
pwwwwwwwww
pwwwwwwwww
pwwwwwwwww
pww    YYYYYYYYY
pwpYYYYYYYYYP
pw    YYYYYYYYY
ppYYYYYYYYYP
p    YYYYYYYYY
Form1-
Text1
    searchbut
filemenu
&File
newfilemenu
openfilemenu
&Open
savefilemenu
&Save
saveasfilemenu
Save &As
choosefontmenu
&Choose Font
printfilemenu
&Print
exitmenu
E&xit
editmenu
&Edit
undoeditmenu
&Undo
cuteditmenu
copyeditmenu
&Copy
pasteeditmenu
Pas&te
deleditmenu
selectalleditmenu
Select &All
stripcrlfmenu
&Strip CrLf
    macromenu
Edit &Macros
searchmenu
&Search
findsearchmenu
&Find
findnextsearchmenu
Find &Next
macroexecutemenu
&Macros
spacer1

helpmenu
&Help
helpmenu_ClickI
Form_Click*
logfilename
EditFile
GetFocus4
SendMessage
hWndT
wMsgi
wParam
WM_USER
EM_LIMITTEXT
Notes
cbhWnd0
    TextLimit
retValR
Text1
copyeditmenu_Click}
    ClipBoardH
SelText
cuteditmenu_Click_
deleditmenu_Click
pasteeditmenu_Click
selectalleditmenu_Click
TextPrintWidthH
PrtFontSizep
exitmenu_click
savebutton_clickZ
printfilemenu_ClickS
MaxLines
Curpos
Totalprint
Segment
TestChar
Ptext
    PrintText
FirstPageHead
Testposg
BreakPos
PrtPos
Lines
Printproblem
Screen
Mousepointer
Printbutton{
enabled
False
OldPrtfont9
Printer<
FontName_
OldPrtfontsize
FontSizeW
PrtFontName
ModeB
Listrec
    selection
Titlefield
Filebox
fileboxselectionH
caption
Listpadtextl
visible
    exitlabelS
    cmdialog1
Flags\
PD_HIDEPRINTTOFILE
PD_NOPAGENUMS*
PD_USEDEVMODECOPIES
PD_ALLPAGES
CancelError
Action
Checkl
FontBold=
CurrentX
CurrentY
EditFileName
Form1
helpfile
Winhelp)
Help_Index9
newfilemenu_Clicki
openfilemenu_Click
saveasfilemenu_click
Filter
FilterIndexR
InitDir
DefdataDir/
DLG_File_Open
filetemp{
    FileTitle
executetemp
FileName
Filerec
Filenamefield
fileboxframe[
Fileboxpath
executefield
Save_fileboxfile
Savefilelabel
FiletroubleH
Fileboxtextfile
savefilemenu_click
CannotreadD
troubleu
fileopentrouble*
filelength
TextfileJ
Filesavetrouble
Text1_Change
Changed
Form_Unload
Cancel
savemenu_click|
Form_Resize!
width
height6    @    Form_Load
Version
MhWinVersion
MajorK
Minorp
GetFileType\
MhGetFileType
FileFilterType
MhFileFilterType
PrintDlgType
MhPrintDlgType
batJ
FilesJ
Description
MaskZ
DefaultExtension
HowManyFilters
MhGetOpenFileNAme
MhECode/
MhGetFileTitleN
InitFileName
MhGetSaveFileNAmea
Result
MhPrintDlg
PDType
PD_SELECTION
stripcrlfmenu_Click
Crlfo
Spacera
MhReplaceStrb
Count
findnextsearchmenu_Clickp
findsearchmenu_Click
searchmenu_Click
undoeditmenu_ClickB
wordwrapeditmenu_ClickD
WordWrapeditmenu)
ScrollBars}
MhFindText$
    MyKeyCode
MhCtrlHwnd
FR_WHOLEWORD
MyHWnd
Text1_KeyDownu
Keycode
Shift6
FindText
MhGetTextDialog
Replacei
MhKillDialog
FR_DOWN
FR_NOMATCHCASE
DlgFlags
Startz
MhFwdInstNS
Spotr
SelStartT
MhFwdInstrNS
    SelLength
StartPos
choosefontmenu_Click
ChooseFontType
MhChooseFontType
LogFontTypeO
MhLogFontType
    FontFlags
PrinterHdc
    pointSize5
CF_APPLY_
CF_ANSIONLY
CF_BOTH
CF_LIMITSIZE
CF_SCALABLEONLY
CF_WYSIWYG
MinSizeH
MaxSize
FontType"
Printer_Font
MhChooseFont
FontHeight>
FontFaceName1
    MhSetFont
    FontWidthA
262168
ReadytoPrint
TestPpos7
MhFwdInstrChar
MhBkwdInstrChar
TestPrintWidth
ScaleWidth
ScaleHeight_
savefileasmenu_click
searchlabel_Click
searchbut_Change
    Searchbut
searchbut_KeyDown
FR_NOWHOLEWORD
FR_NOUPDOWNC
FR_DOWNFR_NOWHOLEWORDf
MhFwdInstrSv
FR_MATCHCASE
EM_GETLINECOUNT
COMMDLG
MhFileExists
EditFileTemp
macromenu_Click
Form2
    Ctrl_MAsk
KeyText
Macros
Text1_KeypressM
keyAsciih
Crtldown
ctrldown(
SaveIniData3
Fileiniproblem
IniFile
EM_UNDO
PrtFonjtNAme
MakePuMenus
Text1_Keyup
    MhPUTrack
PuHandle
Form_MouseDown
Button
    PuExecute
ThenGoTo
macroexecutemenu_Click
Title
WindowsDir
    MhWindDir
MhWinDir
WindowState
copyeditmenu_Click
cuteditmenu_Click
deleditmenu_Click
pasteeditmenu_Click
selectalleditmenu_Click
exitmenu_click
Do You need to save the file?  (Select Cancel to return to the Program.)
File Warning
printfilemenu_Click
Error #
 in printing
No Text has been selected to print
Print Alert"
 - Page <
 - Page <
Print error: "
helpmenu_Click
C:\windows\inotepad.hlp"
newfilemenu_Click
Do You need to save the file?"
File Warning
INOTEPAD - <New File>"
openfilemenu_Click
Do You need to save the file?"
File Warning
Text Files (*.txt)
*.txt"
All Files(*.*)
INI Files(*.ini)
*.ini"
System Files(*.sys)"
*.sys"
Doc Files(*.doc;*.txt;*.bak"
*.doc;*.txt;*.bak"
Error #
 Opening file"
INOTEPAD - "
File is too long to edit
INOTEPAD - "
Unable to open file!!"
File Error
saveasfilemenu_click
Text FIles (*.txt)
*.txt"
All Files(*.*)
INI Files(*.ini)
*.ini"
System Files(*.sys)"
*.sys"
Doc Files(*.doc;*.txt;*.bak"
*.doc;*.txt;*.bak"
Error #
 Opening file"
File already exists.  Replace?
File Warning
INOTEPAD - "
Could Not Save the File"
savefilemenu_click
Could Not Save the File"
Form_Unload
Do You need to save the file?"
File Warning
Form_Resize
Form_Load
\inotepad.ini"
Arial"
File is too long to edit
INOTEPAD - "
stripcrlfmenu_Click
findnextsearchmenu_Click
 reached the end of the document
findsearchmenu_Click
Find Routine Failed"
undoeditmenu_Click
MsgBox "NotYet Implemented"S
choosefontmenu_Click
Error #
in selecting font"
searchbut_KeyDown
Find Operation Failed"
 k = InStr(StartPos, TextFile(0), FindText)i
macromenu_Click
Text1_Change
Text1_Keyup
Pop up Menu Execute Error"
Form_MouseDown
Pop up Menu Execute Error"
macroexecutemenu_Click