home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Bible_Conc837805162002.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-15  |  4.8 KB  |  174 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Form3"
  5.    ClientHeight    =   5175
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4620
  9.    LinkTopic       =   "Form3"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   5175
  12.    ScaleWidth      =   4620
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton Command3 
  15.       Caption         =   "&Cancel"
  16.       Height          =   375
  17.       Left            =   3480
  18.       TabIndex        =   7
  19.       Top             =   2520
  20.       Width           =   975
  21.    End
  22.    Begin VB.TextBox Text6 
  23.       Height          =   1695
  24.       Left            =   720
  25.       MultiLine       =   -1  'True
  26.       ScrollBars      =   2  'Vertical
  27.       TabIndex        =   8
  28.       Top             =   3240
  29.       Width           =   3615
  30.    End
  31.    Begin VB.TextBox Text5 
  32.       Height          =   1095
  33.       Left            =   1560
  34.       MultiLine       =   -1  'True
  35.       ScrollBars      =   2  'Vertical
  36.       TabIndex        =   4
  37.       Top             =   1200
  38.       Width           =   2895
  39.    End
  40.    Begin VB.CommandButton Command2 
  41.       Caption         =   "&Done"
  42.       Height          =   375
  43.       Left            =   1920
  44.       TabIndex        =   6
  45.       Top             =   2520
  46.       Width           =   975
  47.    End
  48.    Begin VB.CommandButton Command1 
  49.       Caption         =   "&Add Verse"
  50.       Height          =   375
  51.       Left            =   600
  52.       TabIndex        =   5
  53.       Top             =   2520
  54.       Width           =   975
  55.    End
  56.    Begin VB.TextBox Text4 
  57.       Height          =   375
  58.       Left            =   960
  59.       TabIndex        =   3
  60.       Top             =   1200
  61.       Width           =   495
  62.    End
  63.    Begin VB.TextBox Text3 
  64.       Height          =   285
  65.       Left            =   960
  66.       TabIndex        =   2
  67.       Top             =   840
  68.       Width           =   2775
  69.    End
  70.    Begin VB.TextBox Text2 
  71.       Height          =   285
  72.       Left            =   960
  73.       TabIndex        =   1
  74.       Top             =   480
  75.       Width           =   2775
  76.    End
  77.    Begin VB.TextBox Text1 
  78.       Height          =   285
  79.       Left            =   960
  80.       TabIndex        =   0
  81.       Top             =   120
  82.       Width           =   2775
  83.    End
  84.    Begin VB.Label Label5 
  85.       Caption         =   "Scripture"
  86.       Height          =   375
  87.       Left            =   480
  88.       TabIndex        =   13
  89.       Top             =   1800
  90.       Width           =   975
  91.    End
  92.    Begin VB.Label Label4 
  93.       Caption         =   "Current Verse"
  94.       Height          =   375
  95.       Left            =   120
  96.       TabIndex        =   12
  97.       Top             =   1200
  98.       Width           =   735
  99.    End
  100.    Begin VB.Label Label3 
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "Versus"
  103.       Height          =   195
  104.       Left            =   120
  105.       TabIndex        =   11
  106.       Top             =   840
  107.       Width           =   480
  108.    End
  109.    Begin VB.Label Label2 
  110.       AutoSize        =   -1  'True
  111.       Caption         =   "Chapter"
  112.       Height          =   195
  113.       Left            =   120
  114.       TabIndex        =   10
  115.       Top             =   480
  116.       Width           =   555
  117.    End
  118.    Begin VB.Label Label1 
  119.       AutoSize        =   -1  'True
  120.       Caption         =   "Book"
  121.       Height          =   195
  122.       Left            =   120
  123.       TabIndex        =   9
  124.       Top             =   120
  125.       Width           =   375
  126.    End
  127. Attribute VB_Name = "Form3"
  128. Attribute VB_GlobalNameSpace = False
  129. Attribute VB_Creatable = False
  130. Attribute VB_PredeclaredId = True
  131. Attribute VB_Exposed = False
  132. Private Sub Command1_Click()
  133. If ScriptOne <> True Then
  134. If wf = 1 Then
  135. If Form2.Text3.Text > "" Then
  136. Text6 = Text6 & "<!--new-->" & vbNewLine
  137. End If
  138. End If
  139. If wf = 2 Then
  140. If Form4.Text2.Text > "" Then
  141. Text6 = Text6 & "<!--new-->" & vbNewLine
  142. End If
  143. End If
  144. Text6 = Text6 & "<!--book-->" & Text1 & vbNewLine & "<!--Chapter-->" & Text2 & vbNewLine & "<!--versus-->" & Text3 & vbNewLine & "<!--verse-->" & Text4 & vbNewLine & "<!--scripture-->" & Text5 & vbNewLine
  145. ScriptOne = True
  146. Text1.Enabled = False
  147. Text2.Enabled = False
  148. Text3.Enabled = False
  149. Text4 = ""
  150. Text5 = ""
  151. Text4.SetFocus
  152. Text6 = Text6 & "<!--verse-->" & Text4 & vbNewLine & "<!--scripture-->" & Text5 & vbNewLine
  153. Text4 = ""
  154. Text5 = ""
  155. Text4.SetFocus
  156. End If
  157. Text6 = Text6 & Text4 & vbNewLine & Text5 & vbNewLine
  158. End Sub
  159. Private Sub Command2_Click()
  160. If wf = 1 Then
  161. Form2.Text3.Text = Form2.Text3.Text & Form3.Text6.Text
  162. End If
  163. If wf = 2 Then
  164. Form4.Text2.Text = Form4.Text2.Text & Form3.Text6.Text
  165. End If
  166. Unload Me
  167. End Sub
  168. Private Sub Command3_Click()
  169. Unload Me
  170. End Sub
  171. Private Sub Form_Load()
  172. ScriptOne = False
  173. End Sub
  174.