home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / thingtst.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.1 KB  |  71 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Thing Demo"
  4.    ClientHeight    =   2490
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4215
  8.    Height          =   2895
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2490
  12.    ScaleWidth      =   4215
  13.    Top             =   1170
  14.    Width           =   4335
  15.    Begin VB.CommandButton Command4 
  16.       Caption         =   "Temporary Thing"
  17.       Height          =   375
  18.       Left            =   360
  19.       TabIndex        =   3
  20.       Top             =   1710
  21.       Width           =   3435
  22.    End
  23.    Begin VB.CommandButton Command3 
  24.       Caption         =   "New Form Thing"
  25.       Height          =   375
  26.       Left            =   360
  27.       TabIndex        =   2
  28.       Top             =   1170
  29.       Width           =   3435
  30.    End
  31.    Begin VB.CommandButton Command2 
  32.       Caption         =   "Reverse Form Thing's Name"
  33.       Height          =   375
  34.       Left            =   360
  35.       TabIndex        =   1
  36.       Top             =   720
  37.       Width           =   3435
  38.    End
  39.    Begin VB.CommandButton Command1 
  40.       Caption         =   "Show the Form Thing"
  41.       Height          =   375
  42.       Left            =   360
  43.       TabIndex        =   0
  44.       Top             =   270
  45.       Width           =   3435
  46.    End
  47. Attribute VB_Name = "Form1"
  48. Attribute VB_Creatable = False
  49. Attribute VB_Exposed = False
  50. Option Explicit
  51. Public thForm As New Thing
  52. Private Sub Command1_Click()
  53.     MsgBox "Name: " & thForm.Name & Chr$(13) & Chr$(10) _
  54.         & "Created: " & thForm.Created, , "Form Thing"
  55. End Sub
  56. Private Sub Command2_Click()
  57.     thForm.ReverseName
  58.     Command1.Value = True
  59. End Sub
  60. Private Sub Command3_Click()
  61.     Set thForm = Nothing
  62.     thForm.Name = InputBox("Enter a name for the New Form Thing")
  63. End Sub
  64. Private Sub Command4_Click()
  65.     Dim thTemp As New Thing
  66.     thTemp.Name = InputBox("Enter a name for the Temporary Thing")
  67. End Sub
  68. Private Sub Form_Load()
  69.     thForm.Name = InputBox("Enter a name for the Form Thing")
  70. End Sub
  71.