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 / DIALOG.FRM next >
Text File  |  1993-08-03  |  4KB  |  152 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6225
  9.    ControlBox      =   0   'False
  10.    Height          =   5280
  11.    Left            =   1395
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4875
  16.    ScaleWidth      =   6225
  17.    Top             =   1095
  18.    Width           =   6345
  19.    Begin ShadBx ShadBx1 
  20.       Left            =   3360
  21.       Top             =   3480
  22.    End
  23.    Begin DriveListBox Drive1 
  24.       Height          =   315
  25.       Left            =   3240
  26.       TabIndex        =   11
  27.       Top             =   2400
  28.       Width           =   2775
  29.    End
  30.    Begin DirListBox Dir1 
  31.       Height          =   930
  32.       Left            =   360
  33.       TabIndex        =   10
  34.       Top             =   3600
  35.       Width           =   2295
  36.    End
  37.    Begin CommandButton Btn_Help 
  38.       Caption         =   "Help"
  39.       Height          =   375
  40.       Left            =   4320
  41.       TabIndex        =   9
  42.       Top             =   3600
  43.       Width           =   1575
  44.    End
  45.    Begin FileListBox File1 
  46.       Height          =   1005
  47.       Left            =   360
  48.       TabIndex        =   8
  49.       Top             =   2400
  50.       Width           =   2295
  51.    End
  52.    Begin ComboBox Combo1 
  53.       Height          =   300
  54.       Left            =   3240
  55.       TabIndex        =   7
  56.       Text            =   "Combo1"
  57.       Top             =   1800
  58.       Width           =   2775
  59.    End
  60.    Begin TextBox Text2 
  61.       Height          =   495
  62.       Left            =   3240
  63.       TabIndex        =   6
  64.       Text            =   "Text2"
  65.       Top             =   1080
  66.       Width           =   2775
  67.    End
  68.    Begin TextBox Text1 
  69.       Height          =   495
  70.       Left            =   3240
  71.       TabIndex        =   5
  72.       Text            =   "Text1"
  73.       Top             =   360
  74.       Width           =   2775
  75.    End
  76.    Begin Frame Frame1 
  77.       Caption         =   "Frame1"
  78.       Height          =   1935
  79.       Left            =   360
  80.       TabIndex        =   1
  81.       Top             =   240
  82.       Width           =   2295
  83.       Begin OptionButton Option3 
  84.          Caption         =   "Option3"
  85.          Height          =   255
  86.          Left            =   360
  87.          TabIndex        =   4
  88.          Top             =   1440
  89.          Width           =   1455
  90.       End
  91.       Begin OptionButton Option2 
  92.          Caption         =   "Option2"
  93.          Height          =   255
  94.          Left            =   360
  95.          TabIndex        =   3
  96.          Top             =   960
  97.          Width           =   1455
  98.       End
  99.       Begin OptionButton Option1 
  100.          Caption         =   "Option1"
  101.          Height          =   255
  102.          Left            =   360
  103.          TabIndex        =   2
  104.          Top             =   480
  105.          Width           =   1455
  106.       End
  107.    End
  108.    Begin CommandButton BTN_Close 
  109.       Caption         =   "Close"
  110.       Height          =   375
  111.       Left            =   4320
  112.       TabIndex        =   0
  113.       Top             =   4200
  114.       Width           =   1575
  115.    End
  116.    Begin Label Label1 
  117.       Caption         =   "Click help button for popup window"
  118.       Height          =   495
  119.       Left            =   4320
  120.       TabIndex        =   12
  121.       Top             =   3000
  122.       Width           =   1575
  123.    End
  124. End
  125.  
  126. Sub BTN_Close_Click ()
  127.     Hide
  128. End Sub
  129.  
  130. Sub Btn_Help_Click ()
  131. Dim Msg As String
  132. Dim CRLF As String
  133.  
  134.     CRLF = Chr$(13) + Chr$(10)
  135.  
  136.     Msg = "You have just clicked on the Help Button." + CRLF + CRLF
  137.     Msg = Msg + "Fill the popup window with the help text desired." + CRLF + CRLF
  138.     Msg = Msg + "The message could contain information about how to use this dialog form."
  139.  
  140.     Shadbx1.MessageText = Msg
  141.  
  142. End Sub
  143.  
  144. Sub Form_Load ()
  145.     Me.Top = Shadbx_Form.Top
  146.     Me.Left = Shadbx_Form.Left
  147.     Me.Width = 6345
  148.     Me.Height = 5280
  149.  
  150. End Sub
  151.  
  152.