home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD138541172001.psc / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-01-16  |  2.3 KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Edit Your Voculary crap"
  5.    ClientHeight    =   2685
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5205
  9.    Icon            =   "Form2.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2685
  14.    ScaleWidth      =   5205
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Cancel"
  17.       Height          =   465
  18.       Left            =   2850
  19.       TabIndex        =   3
  20.       Top             =   2220
  21.       Width           =   1965
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Save"
  25.       Height          =   465
  26.       Left            =   390
  27.       TabIndex        =   2
  28.       Top             =   2220
  29.       Width           =   1965
  30.    End
  31.    Begin VB.TextBox txtWord 
  32.       DataField       =   "Word"
  33.       DataSource      =   "Data1"
  34.       Height          =   375
  35.       Left            =   30
  36.       TabIndex        =   0
  37.       Top             =   225
  38.       Width           =   5145
  39.    End
  40.    Begin VB.TextBox txtDef 
  41.       DataField       =   "Definition"
  42.       DataSource      =   "Data1"
  43.       Height          =   1320
  44.       Left            =   0
  45.       MultiLine       =   -1  'True
  46.       ScrollBars      =   2  'Vertical
  47.       TabIndex        =   1
  48.       Top             =   870
  49.       Width           =   5205
  50.    End
  51.    Begin VB.Label Label1 
  52.       Caption         =   "Word:"
  53.       Height          =   255
  54.       Left            =   2377
  55.       TabIndex        =   5
  56.       Top             =   0
  57.       Width           =   450
  58.    End
  59.    Begin VB.Label Label2 
  60.       Caption         =   "Definition:"
  61.       Height          =   225
  62.       Left            =   2257
  63.       TabIndex        =   4
  64.       Top             =   660
  65.       Width           =   690
  66.    End
  67. Attribute VB_Name = "Form2"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click()
  73. Form1.txtWord = txtWord
  74. Form1.txtDef = txtDef
  75. Me.Hide
  76. End Sub
  77. Private Sub Command2_Click()
  78. Me.Hide
  79. End Sub
  80. Private Sub Form_Activate()
  81. txtWord = Form1.txtWord
  82. txtDef = Form1.txtDef
  83. End Sub
  84.