home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
WLIB10.ZIP
/
WINGLIB.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1994-01-23
|
9KB
|
465 lines
MainForm
WingLib v1.0
Form1%
Drive1
ButtonExit
E&xit
LabelKB
LabelSpace2
MS Sans Serif
LabelSpace
FreeSpace:
Label7
!Internet: alvin@freenet.tlh.fl.us
MS Sans Serif
Label6
AOL: M Taylor
MS Sans Serif
Label5
CIS: 70254,613
MS Sans Serif
Label4
904-668-8530
MS Sans Serif
Label3
Tallahassee, FL 32302
MS Sans Serif
Label2
PO Box 383
MS Sans Serif
LabelSpace1
MS Sans Serif
Label1
Silverwing Systems
Form_Load
LabelDate
Caption
LoadFileT
Today
List1
ListCount
ListIndex
DateInG
EventIn
FixDate
DateOut^
ListLine
OldMonth
ButtonAdd_Click
WDateAdd
TextDate:
TextEventm
NewDate
NewIndex
ListDate
NewEvent
ButtonSave
EnabledL
Default
ButtonClose_Click
ButtonDelete_Click
SaveIndex
SaveCount&
ButtonSave_Click
BkpFileH
SaveFile
ButtonClose
ListEvent'
ButtonUpdate_Click1
OldIndexC
WDateUpd'
Form_Click
WingMsg
List1_DblClick
List1_KeyDown
KeyCode
Shiftn
Key_Insert
Key_Delete
SetDateLineU
ElseIfMidq
ButtonAdd_DragDrop
Sourcel
Control
ButtonAdd_DragOver
State[
ButtonAdd_GotFocus
ButtonAdd_KeyDown
ButtonAdd_KeyPress}
KeyAscii
ButtonAdd_KeyUp
ButtonAdd_LostFocus
ButtonClose_DragDrope
ButtonClose_DragOver
ButtonClose_GotFocus
ButtonClose_KeyDown3
ButtonClose_KeyPressL
ButtonClose_KeyUp~
ButtonClose_LostFocus
ButtonUpdate_DragDrop
ButtonUpdate_DragOver
ButtonUpdate_GotFocus`
ButtonUpdate_KeyDown
ButtonUpdate_KeyPress
ButtonUpdate_KeyUp
ButtonUpdate_LostFocus
Form_LinkOpen=
CancelN
Form_LinkExecute
CmdStr
Form_LinkError^
LinkErr
Form_LinkClose
Form_KeyUp
Form_KeyPress
Form_KeyDown
Form_GotFocusW
Form_DragOver
Form_DragDrop
Form_Deactivate
Form_DblClick%
Form_Activate
Form_LostFocusc
Form_MouseDown7
Buttonw
Form_MouseMove
Form_MouseUp
Form_Paint
Form_QueryUnload
UnloadMode:
Form_Resize1
Form_Unload
LabelAddr1_Click
LabelAddr1_DblClick
LabelAddr1_DragDrop
LabelAddr1_DragOver
LabelAddr2_Click
LabelAddr3_Click*
LabelAddr4_Click
LabelDate_Click
List1_ClickJ
List1_DragDrop
List1_DragOver
List1_GotFocus
AddForm
UpdateForm/
MsgForm
ButtonPrint_Click?
HWidth'
HHeightc
ErrorHandler
Printer*
CurrentX
ScaleWidthv
CurrentY
ScaleHeight
Onerrorx
LineNbr
ScaleMode
WingDate
Event
Events!
LoadCal
ThisMonth
Grid1
FixedAlignmentV
DayCol
NextMonthM
DaysB
DateTextk
ColAlignment
Grid0&
Grid106
Grid210
Grid3
Grid2R
Grid20F
ColWidthm
gridwid`
Width
RowHeight6
HeightV
DayText
FontSizeY
Grid1_Click
SelStartCol
SelEndCol
SelStartRow
SelEndRow
Month1:
Month0f
Month2
DayCol1M
DayCol0D
DayCol2W
NextMonth1.
Days1
NextMonth0
NextMonth2
Days2
Days0
Month3y
DayCol3
NextMonth3
Days3
DayCol32
Grid01&
LabelMonth0@
LabelMonth2"
LabelMonth1
ATTR_DIRECTORY
ListSubDirs
Count
DirName
FileNamei
FileDate
FileNbr
FName^
PathSpec$
LabelWing_Click`
curpathx
List1Item
ListItem
File6
fListItem
fistItem
filstItem_
filem
TimeStamp
FLen?
Dir1_ChangeQ
Drive1_Change
ChangeDrv
changedirO
ChgDrive
Drive1!
Curdir]
Curdrive
Drive}
LoadFilesC
curdur
MousePointer
ATTR_READONLYl
ATTR_HIDDEN
ATTR_SYSTEM
ATTR_ARCHIVE
File1a
ATTR_ARCHHIVE
Result2
ATTR_SYSTEMIfi
Dir2_Changet
Path2
Dir2{
Path18
Drive2_Changem
Drive2
FName1
FName2I
AttrCodev
Attr1c
Attr1List1
Attr2
File2
File21
File1Array
File2Array
LoadFileArrayo
DirPath
FileAttr1
FileArray1
FileArray2P
Ffilearray1
ATTR_R
ATTR_H
ATTR_S
ATTR_AD
ATTR_RIfs
ATTR_SIf
LoadArray2
LoadArray1^
LoadListBox
FileSize
Fileib
ListNameo
ListSize
FileAttrib$
FileName1
FileLineV
File_Name
File_Size/
File_Date
File_Attrib
File_Line*
File_Attr
File_
[File_Name As String * 12~
z_File_Name
Z_FileName
Z_File_Size
Z_File_Date
Z_File_Attr
Z_FileLineM
Z_FileAttr
Z_FileDate}
Z_FileSizeN
FileAtrb
zFileName
zFileSize1
zFileDate>
zFileAtrb/
zFileLine(
zFileAttrib
Line2$
Line1n
Array1
SwapSwm
Swappedk
HoldLine
FileArray
FileSizeN
interger}
ReadArray1
IncrArray1
IncrArray2
ListLoop9
ListAdd
AddToListE
wdir091a
MainFormc
Screen
ButtonCopy_ClickU
DestFile
ErrHandler
DirPath2
ButtonExit_Click4
ButtonMove_Click
ErroHandler
ErrorCopy
ErrorDelete
ErrorMove
HoldIndexp
ElseifIf1
AddToList2I
SetupList
DateTime1
DateTime2
ThenSep
HoldFile
DriveErrorT
CopyError
Drive1_DragDrop
Drive1_DragOver
Drive1_GotFocus
Drive1_KeyDown
Drive1_KeyPress
Drive1_KeyUp
Drive1_LostFocus
MoveError
DeleteError
Drive1Error,
Drive2Error7
ButtonSwap_Clickw
HoldPath
HoldArray,
Array2
ifend
PathError
FreeSpace:
GetDiskFreeSpace
FindFreeSpace
HoldDrivek
LabelSpace1
LabelSpace2
FreeSpace1#
FreeSpace2
HoldSizey
Pat1h2
FileSize1
FileSize2
CommandLine
FNameFileDate
ErrCntt
DirFile
DirFileFName
SortArrayJ
SArray
HArray
SArray1
ArrayLineSwapped
ThenPath1~
FileFileK
ErrMsg
SwapError
HoldPath1
HoldPath2n
HoldFileName8
LabelSource_ClickM
LabelSpace1_Clickb
LabelSpace2_Click
LabelTarget_Clickc
LoadListAll
LoadListSame
LoadListDiffent
LoadListDifferent
ListAllLoop
AddToListAll=
ListDiffLoop
LoadDiffList
LoadAllListW
LoadListDiff-
AddToDiffListM
AddToAllList
ListSameLoop
AddToSameList
ButtonAll
ButtonSame_Click
ButtonSame
Enables6
ButtonDiff
ButtonAll_Clickt
ButtonDiff_Click
CheckSameArray
CheckSameArrayAddToSameList
CheckDiffArrayAddToDiffList
CheckDiffArray
FalseCall
ThenCall
ElseCall[
endEnd
ButtonSw
LoadListMainForm
LoadList
CheckArrayLimits
Selected
CopyMoveDelete
ActionError
Action
ActionSw
sting
FilterSwb
FilterSwap_Click
ActionLit
SelectedSw
GetFreeSpace
DiskFreeSpace
DriveNbr
Label1
LabelWing
ErrorMsg
LabelSpace
FreeSpaceKB\
WINGLIB.DLL
ButtonExit_Click
Drive1_Change
Change Drive Letter to Numbere
Call "WINGLIB.DLL"
Compute KB
###,###,##0
###,###,##0
Form_Load
Change Drive Letter To Numbere
Call "WINGLIB.DLL"
Compute KB
###,###,##0
###,###,##0