home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / DEMOS / STAT_BAR / CHILD.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-01-16  |  1.5 KB  |  51 lines
  1. VERSION 2.00
  2. Begin Form fmChild 
  3.    Caption         =   "StBar Example Child Form"
  4.    Height          =   2790
  5.    Left            =   1050
  6.    LinkMode        =   1  'Source
  7.    LinkTopic       =   "Form1"
  8.    MDIChild        =   -1  'True
  9.    ScaleHeight     =   2385
  10.    ScaleWidth      =   5925
  11.    Top             =   1125
  12.    Width           =   6045
  13.    Begin CommandButton Command3 
  14.       Caption         =   "toggle &visible property"
  15.       Height          =   495
  16.       Left            =   600
  17.       TabIndex        =   2
  18.       Top             =   1680
  19.       Width           =   4695
  20.    End
  21.    Begin CommandButton Command2 
  22.       Caption         =   "show &second message"
  23.       Height          =   495
  24.       Left            =   600
  25.       TabIndex        =   1
  26.       Top             =   960
  27.       Width           =   4695
  28.    End
  29.    Begin CommandButton Command1 
  30.       Caption         =   "show &first message"
  31.       Height          =   495
  32.       Left            =   600
  33.       TabIndex        =   0
  34.       Top             =   240
  35.       Width           =   4695
  36.    End
  37. Option Explicit
  38. Declare Sub StBarVisible Lib "STBAR.VBX" (ByVal hWnd As Integer, ByVal iVisible As Integer)
  39. Sub Command1_Click ()
  40.     fmMain.sbMain.Caption = "first message"
  41. End Sub
  42. Sub Command2_Click ()
  43.     fmMain.sbMain.Caption = "second message"
  44. End Sub
  45. Sub Command3_Click ()
  46.     Dim iVisible As Integer
  47.     iVisible = Not fmMain.sbMain.Visible
  48.     StBarVisible fmMain.hWnd, iVisible
  49.     fmMain.piStBar.Visible = iVisible
  50. End Sub
  51.