Programming Tool Box/SIMS_2.iso/vb_code2/shuffle1/generapp.frm

Text File | 1995-02-27 | 7KB | 264 lines

VERSION 2.00
Begin Form Shadbx_Form
   Caption         =   "Shadowed Color Box Test"
   ClientHeight    =   5325
   ClientLeft      =   1290
   ClientTop       =   2085
   ClientWidth     =   5085
   ClipControls    =   0   'False
   Height          =   6075
   Left            =   1200
   LinkTopic       =   "Form1"
   ScaleHeight     =   5325
   ScaleWidth      =   5085
   Top             =   1425
   Width           =   5265
   Begin PictureBox ShadBx1
      BackColor       =   &H00FFFF80&
      ForeColor       =   &H00FF0000&
      Height          =   480
      Left            =   360
      ScaleHeight     =   450
      ScaleWidth      =   1170
      TabIndex        =   16
      Top             =   3600
      Width           =   1200
   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
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Text            =   "Status output"
      Top             =   4800
      Width           =   4815
   End
   Begin TextBox TXT_KeyString
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      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
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      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 &Shadow Box"
      End
   End
End

Option Explicit

Sub BTN_Dialog_Click ()
    Dialog.Show
End Sub

Sub BTN_Exit_Click ()
    mnu_Exit_Click
End Sub

Sub Form_Load ()
    If Me.WindowState = 0 Then
        Me.Top = 0
        Me.Left = 0
    End If
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

End Sub

Sub Picture1_Click ()
Dim Msg As String
Dim CRLF As String
Dim QBCBack As Long

    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."

    ' store original color
    QBCBack = ShadBx1.BackColor
    ShadBx1.MessageText = Msg

    ' set new BackColor
    ShadBx1.BackColor = QBColor(14)
    ShadBx1.MessageText = "A short message."

    ' return original backcolor
    ShadBx1.BackColor = QBCBack

End Sub