home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Smart_Popu1764136302004.psc / frmTest.frm < prev   
Text File  |  2004-06-30  |  11KB  |  320 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
  4. Object = "{27230248-28BF-4F04-9FA9-496AC1465C22}#1.0#0"; "BalloonTips.ocx"
  5. Begin VB.Form frmTest 
  6.    Caption         =   "Test Balloon Tips"
  7.    ClientHeight    =   4710
  8.    ClientLeft      =   60
  9.    ClientTop       =   450
  10.    ClientWidth     =   5685
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4710
  13.    ScaleWidth      =   5685
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Control Arrays"
  17.       Height          =   495
  18.       Left            =   2040
  19.       TabIndex        =   14
  20.       Top             =   4080
  21.       Width           =   1575
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   500
  25.       Left            =   0
  26.       Top             =   3840
  27.    End
  28.    Begin TabDlg.SSTab SSTab1 
  29.       Height          =   3135
  30.       Left            =   360
  31.       TabIndex        =   1
  32.       Top             =   840
  33.       Width           =   4935
  34.       _ExtentX        =   8705
  35.       _ExtentY        =   5530
  36.       _Version        =   393216
  37.       TabHeight       =   520
  38.       TabCaption(0)   =   "Tab 0"
  39.       TabPicture(0)   =   "frmTest.frx":0000
  40.       Tab(0).ControlEnabled=   -1  'True
  41.       Tab(0).Control(0)=   "Shape1"
  42.       Tab(0).Control(0).Enabled=   0   'False
  43.       Tab(0).Control(1)=   "Label1"
  44.       Tab(0).Control(1).Enabled=   0   'False
  45.       Tab(0).Control(2)=   "Command1"
  46.       Tab(0).Control(2).Enabled=   0   'False
  47.       Tab(0).Control(3)=   "Option1"
  48.       Tab(0).Control(3).Enabled=   0   'False
  49.       Tab(0).Control(4)=   "Check1"
  50.       Tab(0).Control(4).Enabled=   0   'False
  51.       Tab(0).Control(5)=   "Text1"
  52.       Tab(0).Control(5).Enabled=   0   'False
  53.       Tab(0).ControlCount=   6
  54.       TabCaption(1)   =   "Tab 1"
  55.       TabPicture(1)   =   "frmTest.frx":001C
  56.       Tab(1).ControlEnabled=   0   'False
  57.       Tab(1).Control(0)=   "Picture1"
  58.       Tab(1).ControlCount=   1
  59.       TabCaption(2)   =   "Tab 2"
  60.       TabPicture(2)   =   "frmTest.frx":0038
  61.       Tab(2).ControlEnabled=   0   'False
  62.       Tab(2).Control(0)=   "Shape2"
  63.       Tab(2).Control(1)=   "Combo1"
  64.       Tab(2).Control(2)=   "Slider1"
  65.       Tab(2).Control(3)=   "VScroll1"
  66.       Tab(2).Control(4)=   "HScroll1"
  67.       Tab(2).ControlCount=   5
  68.       Begin VB.HScrollBar HScroll1 
  69.          Height          =   255
  70.          Left            =   -72480
  71.          TabIndex        =   13
  72.          Top             =   1680
  73.          Width           =   1575
  74.       End
  75.       Begin VB.VScrollBar VScroll1 
  76.          Height          =   1815
  77.          Left            =   -70680
  78.          TabIndex        =   12
  79.          Top             =   840
  80.          Width           =   255
  81.       End
  82.       Begin MSComctlLib.Slider Slider1 
  83.          Height          =   495
  84.          Left            =   -74400
  85.          TabIndex        =   11
  86.          Top             =   1920
  87.          Width           =   1215
  88.          _ExtentX        =   2143
  89.          _ExtentY        =   873
  90.          _Version        =   393216
  91.       End
  92.       Begin VB.ComboBox Combo1 
  93.          Height          =   315
  94.          Left            =   -74400
  95.          TabIndex        =   10
  96.          Text            =   "Combo1"
  97.          Top             =   960
  98.          Width           =   1455
  99.       End
  100.       Begin VB.PictureBox Picture1 
  101.          Height          =   2295
  102.          Left            =   -74160
  103.          ScaleHeight     =   2235
  104.          ScaleWidth      =   3195
  105.          TabIndex        =   7
  106.          Top             =   600
  107.          Width           =   3255
  108.          Begin VB.Frame Frame1 
  109.             Caption         =   "Frame1"
  110.             Height          =   1695
  111.             Left            =   240
  112.             TabIndex        =   8
  113.             Top             =   240
  114.             Width           =   2655
  115.             Begin VB.ListBox List1 
  116.                Height          =   1035
  117.                Left            =   480
  118.                TabIndex        =   9
  119.                Top             =   360
  120.                Width           =   1695
  121.             End
  122.          End
  123.       End
  124.       Begin VB.TextBox Text1 
  125.          Height          =   375
  126.          Left            =   2400
  127.          TabIndex        =   5
  128.          Tag             =   "test"
  129.          Text            =   "Text1"
  130.          Top             =   840
  131.          Width           =   1815
  132.       End
  133.       Begin VB.CheckBox Check1 
  134.          Caption         =   "Check1"
  135.          Height          =   375
  136.          Left            =   720
  137.          TabIndex        =   4
  138.          Tag             =   $"frmTest.frx":0054
  139.          Top             =   1200
  140.          Width           =   1095
  141.       End
  142.       Begin VB.OptionButton Option1 
  143.          Caption         =   "Option1"
  144.          Height          =   375
  145.          Left            =   3000
  146.          TabIndex        =   3
  147.          Tag             =   $"frmTest.frx":006B
  148.          Top             =   1440
  149.          Width           =   1215
  150.       End
  151.       Begin VB.CommandButton Command1 
  152.          Caption         =   "Command1"
  153.          Height          =   615
  154.          Left            =   2280
  155.          TabIndex        =   2
  156.          Top             =   2040
  157.          Width           =   1095
  158.       End
  159.       Begin VB.Shape Shape2 
  160.          BackColor       =   &H000000FF&
  161.          BackStyle       =   1  'Opaque
  162.          Height          =   495
  163.          Left            =   -72120
  164.          Shape           =   3  'Circle
  165.          Top             =   720
  166.          Width           =   735
  167.       End
  168.       Begin VB.Label Label1 
  169.          Caption         =   "Label1"
  170.          Height          =   255
  171.          Left            =   480
  172.          TabIndex        =   6
  173.          Tag             =   "test"
  174.          Top             =   720
  175.          Width           =   1335
  176.       End
  177.       Begin VB.Shape Shape1 
  178.          Height          =   495
  179.          Left            =   360
  180.          Tag             =   "test"
  181.          Top             =   1920
  182.          Width           =   1455
  183.       End
  184.    End
  185.    Begin MSComctlLib.Toolbar Toolbar1 
  186.       Align           =   1  'Align Top
  187.       Height          =   630
  188.       Left            =   0
  189.       TabIndex        =   0
  190.       Top             =   0
  191.       Width           =   5685
  192.       _ExtentX        =   10028
  193.       _ExtentY        =   1111
  194.       ButtonWidth     =   1270
  195.       ButtonHeight    =   953
  196.       Appearance      =   1
  197.       _Version        =   393216
  198.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  199.          NumButtons      =   3
  200.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  201.             Caption         =   "Button 1"
  202.             Key             =   "Button1"
  203.          EndProperty
  204.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  205.             Caption         =   "Button 2"
  206.             Key             =   "Button2"
  207.          EndProperty
  208.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  209.             Caption         =   "Button 3"
  210.             Key             =   "Button3"
  211.          EndProperty
  212.       EndProperty
  213.       Begin BalloonTips.Balloon Balloon1 
  214.          Left            =   3360
  215.          Top             =   120
  216.          _ExtentX        =   741
  217.          _ExtentY        =   741
  218.       End
  219.    End
  220. End
  221. Attribute VB_Name = "frmTest"
  222. Attribute VB_GlobalNameSpace = False
  223. Attribute VB_Creatable = False
  224. Attribute VB_PredeclaredId = True
  225. Attribute VB_Exposed = False
  226. Option Explicit
  227. Private iIndex As Integer
  228.  
  229.  
  230. Private Sub Form_Load()
  231.     'This shows you how easy it is to add tips for standard controls
  232.     With Balloon1
  233.         .AddTip "Label1", "Label", "Don't you hate being labeled?"
  234.         .AddTip "Command1", , "I Command You!"
  235.         .AddTip "Check1", , "Check it out!!"
  236.         .AddTip "Option1", "Optional Title", "Just another option!"
  237.         .AddTip "Text1", , "Text, what would we do without it?"
  238.         .AddTip "Shape1", , "Rectangles are cool!"
  239.         
  240.         'Also note to add objects inside other objects,
  241.         'add the inner most objects first
  242.         .AddTip "List1", , "This is the the list inside a frame, inside a picturebox!"
  243.         .AddTip "Frame1", , "This is a frame inside a picture box!"
  244.         .AddTip "Picture1", , "This is a picture box!"
  245.         
  246.         .AddTip "Combo1", "Combo", "This is a combo box."
  247.         .AddTip "Shape2", "Circle!", "This is a circle!"
  248.         .AddTip "VScroll1", "Scroll Bar", "This is a vertical scroll bar"
  249.         .AddTip "HScroll1", "Scroll Bar", "This is a horizontal scroll bar"
  250.         .AddTip "Slider1", "Weeee!", "This is a slider!" & vbNewLine & "Rhymes with cyder?"
  251.         .AddTip "Command2", "Show Array Example", "Show Example of control arrays on another form."
  252.     End With
  253. End Sub
  254.  
  255. Private Sub Form_Activate()
  256.     Balloon1.Enabled = True 'enable balloon tips on this form when it is active
  257. End Sub
  258.  
  259. Private Sub Form_Deactivate()
  260.     'You have to disable the balloon tips when you have multiple forms
  261.     'using balloon tips because they will both check to see if they are
  262.     'in the foreground window and the one that is not will hide the balloon.
  263.     Balloon1.HideBalloon
  264.     Balloon1.Enabled = False
  265. End Sub
  266.  
  267. Private Sub SSTab1_Click(PreviousTab As Integer)
  268.     'You need to do this when changing tabs because the ssTab control
  269.     'actually moves controls lefts way off screen so they are not visible
  270.     Balloon1.Refresh
  271. End Sub
  272.  
  273. Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  274.     'This is an example of how you could use the balloon manually
  275.     'for more complex controls
  276.     Dim iNewIndex As Integer, i As Integer
  277.     Dim iLeft As Integer, iRight As Integer, iTop As Integer, iBottom As Integer
  278.     
  279.     iNewIndex = -1
  280.     With Toolbar1
  281.         For i = 1 To .Buttons.Count
  282.             iLeft = .Buttons(i).Left
  283.             iRight = .Buttons(i).Left + .Buttons(i).Width
  284.             iTop = .Buttons(i).Top
  285.             iBottom = .Buttons(i).Top + .Buttons(i).Height
  286.             
  287.             If (x > iLeft And x < iRight) Then
  288.                 If (y > iTop And y < iBottom) Then
  289.                     iNewIndex = i
  290.                     Exit For
  291.                 End If
  292.             End If
  293.         Next i
  294.     End With
  295.     
  296.     If iNewIndex = -1 Then
  297.         Timer1.Enabled = False
  298.         Balloon1.HideBalloon
  299.     ElseIf iNewIndex <> iIndex Then
  300.         Timer1.Enabled = True
  301.     End If
  302.     iIndex = iNewIndex
  303. End Sub
  304.  
  305. Private Sub Timer1_Timer()
  306.     'iIndex was determined in the mouse_move event
  307.     Timer1.Enabled = False
  308.     Select Case iIndex
  309.         Case 1
  310.             Balloon1.ShowBalloon "Button 1", "First ButtonotheiInTimernAcoical sc False
  311.    ex <> iIndeKes a&hen
  312.      4c ButtonotheiInTimernAcoical sc FalsicalButteAmer1.En t 9_t7       Balloon1.ShowBalloon "Buuuuuuuuuuuuuuuuu 
  313.     'in the foreoon
  314.  
  315.     Bo L____ the foreoon
  316.  
  317.     Bohe foreforeoon
  318.  
  319.  C.nabl3aThe AddTip "Lis.B-3suuu
  320.  C.n C.n