home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_2_94
/
vbwin
/
vbx
/
main.frm
< prev
next >
Wrap
Text File
|
1995-02-27
|
1KB
|
55 lines
VERSION 2.00
Begin Form BaseForm
BackColor = &H0000FFFF&
Caption = "Example Program"
ClientHeight = 1245
ClientLeft = 1395
ClientTop = 6405
ClientWidth = 5895
Height = 1965
Left = 1320
LinkTopic = "Form2"
ScaleHeight = 1245
ScaleWidth = 5895
Top = 5760
Width = 6045
Begin stormBkColor BkColor
Height = 420
IncludeInSysMenu= -1 'True
Left = 360
Top = 360
WantCallback = -1 'True
Width = 420
End
Begin Menu File
Caption = "&Datei"
Begin Menu FileExit
Caption = "&Ende"
End
End
Begin Menu About
Caption = "&▄ber"
End
End
Option Explicit
Sub About_Click ()
AboutForm.Show (1)
End Sub
Sub BkColor_ColorBackground ()
ParaDlg.Show (1)
End Sub
Sub BkColor_WndProc (wMsg As Integer, wParam As Integer, lParam As Long, bPreDefault As Integer, lResult As Long, Done As Integer)
Beep
If wMsg >= WM_USER Then
Debug.Print "Message="; wMsg, "bPreDefault=", bPreDefault
End If
End Sub
Sub FileExit_Click ()
Unload BaseForm
End Sub