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