home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / API-ucStat1887965132005.psc / Test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2004-12-09  |  3.3 KB  |  105 lines
  1. VERSION 5.00
  2. Begin VB.Form fTest 
  3.    Caption         =   "ucStatusbar 1.0 - Test"
  4.    ClientHeight    =   3765
  5.    ClientLeft      =   60
  6.    ClientTop       =   630
  7.    ClientWidth     =   5820
  8.    BeginProperty Font 
  9.       Name            =   "Tahoma"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   251
  19.    ScaleMode       =   3  'Pixel
  20.    ScaleWidth      =   388
  21.    StartUpPosition =   2  'CenterScreen
  22.    Begin Test.ucStatusbar ucStatusbar1 
  23.       Height          =   630
  24.       Left            =   150
  25.       Top             =   3045
  26.       Width           =   3495
  27.       _ExtentX        =   6165
  28.       _ExtentY        =   1111
  29.    End
  30.    Begin VB.Menu mnuFileTop 
  31.       Caption         =   "&File"
  32.       Begin VB.Menu mnuFile 
  33.          Caption         =   "E&xit"
  34.          Index           =   0
  35.          Shortcut        =   ^X
  36.       End
  37.    End
  38.    Begin VB.Menu mnuTestTop 
  39.       Caption         =   "&Test"
  40.       Begin VB.Menu mnuTest 
  41.          Caption         =   "&Apply some changes"
  42.          Index           =   0
  43.       End
  44.    End
  45. Attribute VB_Name = "fTest"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. Option Explicit
  51. Private Sub Form_Load()
  52.     With ucStatusbar1
  53.         
  54.         '-- Initialize statusbar
  55.         
  56.         Call .Initialize(SizeGrip:=True, ToolTips:=True)
  57.         
  58.         '-- Initialize icons list
  59.                              
  60.         Call .InitializeIconList
  61.         
  62.         '-- Add icons
  63.         
  64.         Call .AddIcon(LoadResPicture("MAIL", vbResIcon))
  65.         Call .AddIcon(LoadResPicture("USER", vbResIcon))
  66.         Call .AddIcon(LoadResPicture("TIP", vbResIcon))
  67.                              
  68.         '-- Add panels
  69.         
  70.         Call .AddPanel(, , , [sbSpring], "Panel #1", , 0)
  71.         Call .AddPanel(, 0, , [sbContents], "Panel #2", , 1)
  72.         Call .AddPanel(, , , [sbSpring], "Last panel")
  73.     End With
  74. End Sub
  75. Private Sub Form_Resize()
  76.     ucStatusbar1.SizeGrip = (Me.WindowState <> vbMaximized)
  77. End Sub
  78. Private Sub mnuFile_Click(Index As Integer)
  79.     Call Unload(Me)
  80. End Sub
  81. Private Sub mnuTest_Click(Index As Integer)
  82.     With ucStatusbar1
  83.         
  84.         .Font.Size = 10 '* No effect when XP-theme enabled (control re-size)
  85.         .Font.Bold = True
  86.         
  87.         .PanelStyle(1) = [sbPopOut]
  88.         .PanelIconIndex(1) = 1
  89.         
  90.         .PanelIconIndex(2) = 0
  91.         
  92.         .PanelMinWidth(3) = 0
  93.         .PanelAutosize(3) = [sbContents]
  94.         .PanelText(3) = vbNullString
  95.         .PanelTipText(3) = "Now you can see tool tip text"
  96.         .PanelIconIndex(3) = 2
  97.     End With
  98. End Sub
  99. Private Sub ucStatusbar1_PanelClick(ByVal Panel As Long, ByVal Button As MouseButtonConstants)
  100.     Debug.Print "ucStatusbar1_PanelClick: Panel = " & Panel & " Button = " & Button
  101. End Sub
  102. Private Sub ucStatusbar1_PanelDblClick(ByVal Panel As Long, ByVal Button As MouseButtonConstants)
  103.     Debug.Print "ucStatusbar1_PanelDblClick: Panel = " & Panel & " Button = " & Button
  104. End Sub
  105.