home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
5PAK20.ZIP
/
SHAD20.ZIP
/
SAMPLE.ZIP
/
GENERAPP.FRM
< prev
next >
Wrap
Text File
|
1993-08-03
|
6KB
|
236 lines
VERSION 2.00
Begin Form Shadbx_Form
Caption = "Shadow Box Test"
ClientHeight = 5325
ClientLeft = 1305
ClientTop = 2070
ClientWidth = 5085
Height = 6015
Left = 1245
LinkTopic = "Form1"
ScaleHeight = 5325
ScaleWidth = 5085
Top = 1440
Width = 5205
Begin ShadBx ShadBx1
Left = 360
Top = 3600
End
Begin ComboBox Combo1
Height = 300
Left = 240
TabIndex = 14
Text = "Combo1"
Top = 2880
Width = 2175
End
Begin CommandButton BTN_Dialog
Caption = "Dialog"
Height = 375
Left = 2640
TabIndex = 13
Top = 240
Width = 975
End
Begin OptionButton Option3
Caption = "Maybe option"
Height = 255
Left = 1200
TabIndex = 12
Top = 4320
Width = 1575
End
Begin PictureBox Picture1
AutoSize = -1 'True
ClipControls = 0 'False
Height = 360
Left = 1080
Picture = GENERAPP.FRX:0000
ScaleHeight = 330
ScaleWidth = 360
TabIndex = 11
Top = 720
Width = 390
End
Begin CheckBox Check2
Caption = "That"
Height = 255
Left = 1200
TabIndex = 10
Top = 3840
Width = 1200
End
Begin CheckBox Check1
Caption = "This"
Height = 255
Left = 1200
TabIndex = 9
Top = 3360
Width = 1200
End
Begin Frame Frame1
Caption = "Do it now"
Height = 1215
Left = 3000
TabIndex = 6
Top = 3120
Width = 1695
Begin OptionButton Option2
Caption = "No"
Height = 255
Left = 240
TabIndex = 8
Top = 720
Width = 1000
End
Begin OptionButton Option1
Caption = "Yes"
Height = 255
Left = 240
TabIndex = 7
Top = 360
Width = 1000
End
End
Begin TextBox TXT_Result
Height = 375
Left = 120
TabIndex = 5
Text = "Status output"
Top = 4800
Width = 4815
End
Begin TextBox TXT_KeyString
Height = 375
Left = 120
TabIndex = 2
Text = "This is a popup message to display in the window. The message can be of long length, or it can be short."
Top = 1440
Width = 4815
End
Begin CommandButton BTN_Exit
Caption = "Exit"
Height = 375
Left = 3840
TabIndex = 1
Top = 240
Width = 1095
End
Begin TextBox TXT_SearchString
Height = 375
Left = 120
TabIndex = 0
Text = "Dawg"
Top = 2280
Width = 4815
End
Begin Label Label2
Caption = "Click Bell for popup window information"
Height = 495
Left = 480
TabIndex = 15
Top = 120
Width = 1815
End
Begin Label Label3
Alignment = 2 'Center
Caption = "Search String"
Height = 255
Left = 120
TabIndex = 4
Top = 1920
Width = 4815
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Key String"
Height = 255
Left = 120
TabIndex = 3
Top = 1080
Width = 4815
End
Begin Menu nmu_File
Caption = "&File"
Begin Menu mnu_Exit
Caption = "&Exit"
End
End
Begin Menu mnu_Edit
Caption = "&Edit"
Begin Menu mnu_Cut
Caption = "Cu&t"
End
Begin Menu mnu_Copy
Caption = "&Copy"
End
Begin Menu mnu_Paste
Caption = "&Paste"
End
Begin Menu mnu_submenu
Caption = "SubMenu"
Begin Menu mnu_submenu1
Caption = "SubMenu 1"
End
Begin Menu mnu_submenu2
Caption = "SubMenu 2"
End
End
End
Begin Menu mnu_help
Caption = "&Help"
Begin Menu mnu_HelpBallons
Caption = "Help &Ballons"
End
End
End
Option Explicit
Sub BTN_Dialog_Click ()
Dialog.Show
End Sub
Sub BTN_Exit_Click ()
mnu_Exit_Click
End Sub
Sub Form_Resize ()
' don't do resizing for the demo
If Me.WindowState = 0 Then
Me.Height = 6015
Me.Width = 5175
End If
End Sub
Sub mnu_Exit_Click ()
End
End Sub
Sub mnu_HelpBallons_Click ()
' initial help text string
Shadbx1.MessageText = TXT_KeyString.Text
Shadbx1.Action = 20 ' SHADBX_START = 20
' SHADBX_STOP = 21
End Sub
Sub Picture1_Click ()
Dim Msg As String
Dim CRLF As String
CRLF = Chr$(13) + Chr$(10)
Msg = "You have just clicked on the Bell Picture." + CRLF + CRLF
Msg = Msg + "Fill the popup window with the advisory text." + CRLF + CRLF
Msg = Msg + "The image could contain a hotspot that brings up the popup window when the spot is hit."
Shadbx1.MessageText = Msg
Shadbx1.MessageText = "A short message."
End Sub