Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / RESOCD / RES_MAIN.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-17 | 8.8 KB | 298 lines

Form1 Resource Bar MS Sans Serif Form1% Panel1 SSPanel Arial Timer1 Label1 +--------- I N I T I A L I Z I N G --------- MS Sans Serif Command3D1_Click Form1$ border{ BorderStyle5 Form_Clickl Panel1C fontnameX timesb @ Form_Load Panel1_DragDrop Source Text1_Change Text1_GotFocus R_main- Text1_KeyDown KeyCode ShiftY Label1_Click Label1_DblClick Label1_MouseUp Button Label1_MouseDown$ GetFreeSpace wFlags GetFreeSystemResourcesg fuSysResource GFSR_SYSTEMRESOURCES GFSR_GDIRESOURCES5 GFSR_USERRESOURCES CurrentTimeg CurrentTimer CaptionX Lable1{ Label1 ayNum DayNum Today Timer1_Timer Text1 Text{ Text2 Text3 Text4 SysRes GdiRes UseResv TotReso MemoryC MemFree SetWindowPosV hWndy hWndInsertAfterW AsInteger On_Topr Normal GetVersion WinVer DosVer WinVersion! DosVersion CurrentVersion title KEY_ESCAPE_ Answer: Form_KeyPress KeyAsciic KEY_UPS KEY_RIGHT. KEY_DOWN6 KEY_LEFT[ KEY_NUMPAD8" SWP_NOMOVE' SWP_NOSIZE FLAGS HWND_TOPMOST` HWND_NOTOPMOST TOPMOST success Form_KeyDownP Escape@ Escape_Nowp Move_UpG DOWNU Move_Down RightArrow, LeftArrow, UpArrow| DownArrow Move_Right# Move_Left OnTop NotOnTop sgBoxv lowbyte highbyte ScreenHeightz ScaleHeight ScreenWidth ScaleWidtha Height$ Width Screen Form_GotFocus BlackF GREENj YELLOWS MAGENTA White ForeColorC FontColorL BackColor Form_LostFocus GetActiveWindowj FOCUS TRUE7 False Lost_Focusv handle Help_Me KEY_F1 First Mess1 Mess2 Mess3 Mess47 Mess5 Mess6 Mess7 Mess8! Form_DblClick0 Mess9W Mess10 PageDown PageUp CTRL_MASKC Key_F2 ShiftDown6 CtrlDownd AltDown) rseres SndPlaySound WavFilen The_Hour result FileName clock ValLeft snd_async result2 result1K result3 AllowFormMove MStartX] MStartY Label1_MouseMove@ AllowFormToMove IfAllowFormToMove POINTAPI GetCursorPos6 lpPoint ScreenToClient Left_Button CurPos MyPosX MyPosY timmyY SHIFT_MASK Key_Tab ThenForm1 GetPrivateProfileInt lpAppName lpKeyName nDefault lpFileName GetPrivateProfileString lpDefault} lpReturnedString nSize WritePrivateProfileString lpString lplFileName ReadIniB AppName KeyNamec DefaultStr ReturnStrM Numeric IniFileName RetStr lenRetString Writeini SaveInio NewVal ResultCode version strings Constant GetStr DefltStr TopOfHour LngthOfRetStr LnghtOf BottOfHour Form2% Form_DragDrop NewPosX NewPosY Form_MouseDown Form_MouseMove Calljunk Show1 Control Escape_Now Take away the ON TOP feature in case user hass positioned "bar" in front of message box then put the question to them. Then either exit or reinstate the ON TOP feature. Terminate Resource Bar? Resource Bar Form_DragDrop Move form with mouse Form_KeyDown bring up the help or escape forms if asked Move form around with arrow keys Form_Load carrage return for message boxes -- Extract the Major and Minor revisions and build the version strings (this won't run in Win 3.0) lowbyte is derived by masking off high byte highbyte is derived by masking off low byte and shiftingr assign windows version to text property This Program Must Have Windows Version 3.1 Or Higher Resource Bar Position in lower right corner Stay on Top0 read .ini file Does user want BigBen,DING, or nothing at top of hour" RESOURCE BAR TOPOFHOUR BIGBEN RESOURCE.INI Does user want DING or nothing at bottom of hour RESOURCE BAR BOTTOFHOUR RESOURCE.INI Form_LostFocus Label1_Click Label1_DblClick Label1_MouseDown Move form with mouse Label1_MouseMove Move form with mouse Call origionally I put junk% = SaveIni Update INI file Error updating INI file! ERROR! Timer1_Timer Gather info for barr ##### Putting today's date and current time on the lable 1st, then the day, then the date, then the Kb, then the % Freee h:mm:ss AM/PM m/d/yy % Free DING on the hour Check for top of hour If user didn't select "no sound" then continuef BIGBEN bigben h:mm:ss 00:00 h:mm am/pm allow for the "windup chime" vs "reg. chime" DING on 1/2 hr If user didn't select "noe sound" then continue check for the bott. of hourr hh:mm:ss 30:00 ding.wav Watch when form loses focusm Compare the handle of the currently active Window 0 with the handle of the Form1 window:a Do form's lost-focus routines here.y