home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Evans_Cust1853012152005.psc / frmMain.frm < prev   
Text File  |  2005-02-15  |  4KB  |  139 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4575
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4575
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Timer timerDisplay 
  13.       Interval        =   1200
  14.       Left            =   3555
  15.       Top             =   2475
  16.    End
  17.    Begin CustomMessageBox.GlassBox GlassBox1 
  18.       Left            =   3465
  19.       Top             =   2025
  20.       _ExtentX        =   423
  21.       _ExtentY        =   423
  22.       Picture         =   "frmMain.frx":0000
  23.    End
  24.    Begin VB.OptionButton Option1 
  25.       Caption         =   "glass yellow"
  26.       Height          =   285
  27.       Index           =   5
  28.       Left            =   225
  29.       TabIndex        =   7
  30.       Top             =   2880
  31.       Width           =   2265
  32.    End
  33.    Begin VB.OptionButton Option1 
  34.       Caption         =   "glass white"
  35.       Height          =   285
  36.       Index           =   4
  37.       Left            =   225
  38.       TabIndex        =   6
  39.       Top             =   2610
  40.       Width           =   2265
  41.    End
  42.    Begin VB.OptionButton Option1 
  43.       Caption         =   "glass blue"
  44.       Height          =   285
  45.       Index           =   3
  46.       Left            =   225
  47.       TabIndex        =   5
  48.       Top             =   2340
  49.       Width           =   2265
  50.    End
  51.    Begin VB.OptionButton Option1 
  52.       Caption         =   "glass orange"
  53.       Height          =   285
  54.       Index           =   2
  55.       Left            =   225
  56.       TabIndex        =   4
  57.       Top             =   2070
  58.       Width           =   2265
  59.    End
  60.    Begin VB.OptionButton Option1 
  61.       Caption         =   "glass candy"
  62.       Height          =   285
  63.       Index           =   1
  64.       Left            =   225
  65.       TabIndex        =   3
  66.       Top             =   1800
  67.       Width           =   2265
  68.    End
  69.    Begin VB.OptionButton Option1 
  70.       Caption         =   "glass red"
  71.       Height          =   285
  72.       Index           =   0
  73.       Left            =   225
  74.       TabIndex        =   2
  75.       Top             =   1530
  76.       Width           =   2265
  77.    End
  78.    Begin VB.CommandButton Command1 
  79.       Caption         =   "&Test"
  80.       Height          =   285
  81.       Left            =   225
  82.       TabIndex        =   1
  83.       Top             =   990
  84.       Width           =   1230
  85.    End
  86.    Begin VB.Label Label1 
  87.       Caption         =   "You can draw any picture on the custom message box. any size. AND you can specify a color that is transparent or not painted"
  88.       ForeColor       =   &H00FF0000&
  89.       Height          =   780
  90.       Left            =   315
  91.       TabIndex        =   0
  92.       Top             =   45
  93.       Width           =   4065
  94.    End
  95. End
  96. Attribute VB_Name = "frmMain"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Option Explicit
  102.  
  103. Dim optionClicker    As Long
  104.  
  105. Private Sub Command1_Click()
  106.  
  107.  Dim strMsg  As String
  108.  Dim retVal  As Long
  109.  
  110.  strMsg = "This custom messagebox  has the powerful features " & _
  111.           "of a regular messagebox" & vbCrLf & _
  112.           "such as autosizing to fit the message, AND..." & vbCrLf & _
  113.            Space(20) & "+ the visual superiority is being displayed now" & vbCrLf & _
  114.            Space(20) & "+ you must supply the ""vbCrLf"" which means total control" & vbCrLf & _
  115.            Space(20) & "+ you can display any type or size picture you wish"
  116.           
  117.           
  118.  If GlassBox1.Message(strMsg, "this is the caption", YesNo) = vbYes Then
  119.      Debug.Print "YES!!!"
  120.  Else
  121.      Debug.Print "NO!!!"
  122.  End If
  123.  
  124. End Sub
  125.  
  126. Private Sub Form_Unload(Cancel As Integer)
  127.   timerDisplay.Enabled = False
  128. End Sub
  129.  
  130. Private Sub Option1_Click(Index As Integer)
  131.  GlassBox1.GlassBoxColor = Index
  132. End Sub
  133.  
  134. Private Sub timerDisplay_Timer()
  135.    optionClicker = optionClicker + 1
  136.    Option1_Click (optionClicker)
  137.    If optionClicker >= 5 Then optionClicker = 0
  138. End Sub
  139.