The Mother of All Windows Books

home *** CD-ROM | disk | FTP | other *** search

/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / utility / clocketc / att / alltheti.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-08-28 | 29KB | 337 lines

AllTheTime AllTheTime MS Sans Serif zwwwgxxxv wwwwgggg wwwwgvt wwwwgHXXG zzwwvt{ vfqqvfzvwG jgwvO jjgvvO jzzwwO wwv||dDD vvwgwwwwwwwwww gwwwvwww{{{{{w vvvvwwww HHGgvww{y vwwwwwqwww Ggww{{q{{w |vwwqq Form2. Text1 MoonSun PictureClip Frame3D1 SSFrame Option3D1 SSOption &3 - Bottom right Option3D1 SSOption &5 - Elsewhere Option3D1 SSOption &1 - Upper left Option3D1 SSOption &2 - Upper right Option3D1 SSOption &4 - Bottom left Delta StopWatch PrtStatus PrtInactive PrtActive Picture1 MoonPic SeasonPic GroupFauxCompilerDirective Form_Activate AllTheTime Leftb Screen Width Form_ClickM SoundABorted CFlag Form_DblClick DblCFlagk Form_GotFocus| Form_KeyDownS KeyCode ShiftB Alt_R gOption3D1m PositionATTR Alt_T Form_KeyPress KeyAscii FinalProcessing Form_Load hSubMenus SeasonDescArrE MoonDescArrZ TODDescArr Text1 LinkModeo LinkTopic LinkItem hGroupMenu7 CreatePopUpMenu/ AppendMenu) hMainMenu MF_SEPARATOR IDM_ITEMS Groups OneGroup hSubMenu$ Progs FirstOneW OneProg PName MF_STRING5 MF_POPUP PrtActive Picture MoonSunC GraphicCell1 PrtInActive PrtStatusb Form_MouseDownR Button MStartX MStartYD StartLefty StartTop AllowFormToMove Moved Form_MouseMove Form_MouseUp PosLeft PosTop Form_Paint Form_QueryUnload Cancel> UnloadModen Form_ResizeT Resizing WindowStateO SetTime SetSize MoonPic_DblClick MoonPic_MouseDown Form13 Label1 AutoSize Caption MoonDesc SavedDaty Height MoonPic wOn_Top SetWindowPos hWnd; wFlags MoonPic_MouseMoveK MoonPic_MouseUp Option3D1_Click Indexd Value gPositioning Picture1_DblClick PictureMenuMouseDownR Picture1_MouseDown PrtActive_Click PrtActive_DblClick@ PrtActive_MouseDownY PrtActive_MouseMover PrtActive_MouseUp( PrtInactive_Clickg PrtInactive_DblClick( PrtInactive_MouseDown' PrtInactive_MouseMove PrtInactive_MouseUp SeasonPic_Clickg SeasonPic_DblClick SeasonPic_MouseDown SeasonDesc TODDesc SeasonPic SeasonPic_MouseMoveT SeasonPic_MouseUp StopWatch StopWatch_Click StopWatch_MouseMoveH StopWatch_MouseUp~ StopWatch_MouseDown MoonPic_Click gTimerRunningT gTime StopWatch_DblClick PrtStatus_Click gTimeRunning gStoppedTimeI LastTime Delta_Click gDeltaRunning; Delta, gResUser gResGDI gTotMem gBlkMem$ gStoppedResUser gStoppedResGDI gStoppedTotMem gStoppedBlkMem Delta_DblClick Delta_MouseDown Delta_MouseMove Delta_MouseUp GetTotalMem GetBlockMem` GetFreeSystemResources gStoppedRes gDeltaPicm gStopPic MoonList gStopTime StopWatch_DragDrop Source Control StopWatch_DragOver State FontChangedNotYetSized Running MoonSub Exact gMoonExact gWaxDesc& DefInt A-Z Delta_Click Delta_DblClick DblCFlag% = True Delta_MouseDown Delta.Picture = MoonSun.GraphicCell(46) Left button start timer FontChangedNotYetSized = True stop timer Delta_MouseMove Delta_MouseUp Form_Activate MsgBox ("Activate...") Form_Click Form_DblClick Form_GotFocus Settings.SetFocus Form_KeyDown Rotate Turn off KeyCode = 0 Shift = 0 AllTheTime.Visible = Not AllTheTime.Visible Form_KeyPress DeleteMenus Programu Form_Load Loading twice... Winter Spring Summer Full moon Waning, full moon Third quarter Waning, third quarter New moon Waxing, new moon First quarter Waxing, first quarter morning afternoon evening night Progman|Progman Groups popup Groups... Form_MouseDown AutoRedraw = False '1/15 Form_MouseMove Form_MouseUp AutoRedraw = True '1/15 Form_Paint Form_QueryUnload DeleteMenus Programu Form_Resize SavedVis = Visible Visible = Falseb Visible = SavedVis MoonPic_DblClick MoonPic_MouseDown Call Form_MouseDown(Button, Shift, X, Y) Form1.Label1.FontName = AllTheTime.FontNameb Form1.Label1.ForeColor = AllTheTime.ForeColor If Form1.Label1.ForeColor = Form1.Label1.BackColor Then Form1.Label1.BackColor = AllTheTime.BackColor End If Form1.Label1.FontSize = AllTheTime.FontSizeC Form1.Label1.FontBold = AllTheTime.FontBoldC Form1.Label1.FontItalic = AllTheTime.FontItalicr Form1.ZOrder 0 MoonPic_MouseMove MoonPic_MouseUp Call Form_MouseUp(Button, Shift, X, Y) Option3D1_Click Picture1_DblClick DblCFlag% = True Picture1_MouseDown PrtActive_Click PrtActive_DblClick On Local Error Resume Next PRINTMAN AppActivate "Print Manager" hActive% = GetActiveWindow() ' pickup it's hWnd handle Call SwitchToThisWindow(hActive%, True) On Local Error GoTo 0o PrtActive_MouseDown PrtActive_MouseMove PrtActive_MouseUp PrtInactive_Click PrtInactive_DblClick PRINTMAN PrtInactive_MouseDown PrtInactive_MouseMove PrtInactive_MouseUp SeasonPic_Click SeasonPic_DblClick DblCFlag% = True SeasonPic_MouseDown Call Form_MouseDown(Button, Shift, x, Y) Form1.Label1.FontName = AllTheTime.FontNames Form1.Label1.ForeColor = AllTheTime.ForeColor If Form1.Label1.ForeColor = Form1.Label1.BackColor Thene Form1.Label1.BackColor = AllTheTime.BackColor End If Form1.Label1.FontSize = AllTheTime.FontSizeC Form1.Label1.FontBold = AllTheTime.FontBoldC Form1.Label1.FontItalic = AllTheTime.FontItalicr Form1.ZOrder 0 SeasonPic_MouseMove SeasonPic_MouseUp Call Form_MouseUp(Button, Shift, x, Y) StopWatch_Click StopWatch_DblClick DblCFlag% = True StopWatch_MouseDown Left button start timer FontChangedNotYetSized = True stop timer was 0 StopWatch_MouseMove StopWatch_MouseUp