home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch01 / example2 / example2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-13  |  2.6 KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form Example2 
  3.    Caption         =   "TextBox Demo"
  4.    ClientHeight    =   3285
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5520
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3285
  10.    ScaleWidth      =   5520
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "Show Message"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   9.75
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   465
  24.       Left            =   3780
  25.       TabIndex        =   3
  26.       Top             =   2685
  27.       Width           =   1620
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Caption         =   "Insert Date"
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   465
  41.       Left            =   1965
  42.       TabIndex        =   2
  43.       Top             =   2685
  44.       Width           =   1620
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "Clear Text"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   465
  58.       Left            =   120
  59.       TabIndex        =   1
  60.       Top             =   2685
  61.       Width           =   1620
  62.    End
  63.    Begin VB.TextBox Text1 
  64.       Height          =   2370
  65.       Left            =   135
  66.       MultiLine       =   -1  'True
  67.       ScrollBars      =   2  'Vertical
  68.       TabIndex        =   0
  69.       Top             =   150
  70.       Width           =   5235
  71.    End
  72. Attribute VB_Name = "Example2"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Option Explicit
  78. Private Sub Command1_Click()
  79.     Text1.Text = ""
  80. End Sub
  81. Private Sub Command2_Click()
  82.     Text1.Text = Date
  83. End Sub
  84. Private Sub Command3_Click()
  85.     Text1.Text = "Welcome to Visual Basic 5.0"
  86. End Sub
  87.