home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SAMPLES / SUITE / DW05_S2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-21  |  5.6 KB  |  202 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Map Update"
  4.    ClientHeight    =   4008
  5.    ClientLeft      =   2292
  6.    ClientTop       =   2484
  7.    ClientWidth     =   8280
  8.    Height          =   4332
  9.    Left            =   2244
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4008
  12.    ScaleWidth      =   8280
  13.    Top             =   2208
  14.    Width           =   8376
  15.    Begin VB.ComboBox Combo1 
  16.       Height          =   315
  17.       Left            =   720
  18.       TabIndex        =   1
  19.       Top             =   120
  20.       Width           =   615
  21.    End
  22.    Begin VB.TextBox Text1 
  23.       BeginProperty Font 
  24.          name            =   "MS Sans Serif"
  25.          charset         =   0
  26.          weight          =   400
  27.          size            =   9.6
  28.          underline       =   0   'False
  29.          italic          =   0   'False
  30.          strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   360
  33.       Left            =   720
  34.       TabIndex        =   2
  35.       Top             =   480
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CommandButton Add_To_List 
  39.       Caption         =   "Add to List"
  40.       Height          =   375
  41.       Left            =   720
  42.       TabIndex        =   3
  43.       Top             =   960
  44.       Width           =   1095
  45.    End
  46.    Begin VB.CommandButton Update_Map 
  47.       Caption         =   "Update Map"
  48.       Height          =   375
  49.       Left            =   720
  50.       TabIndex        =   4
  51.       Top             =   3480
  52.       Width           =   1095
  53.    End
  54.    Begin VB.ListBox List1 
  55.       Height          =   1584
  56.       Left            =   720
  57.       TabIndex        =   0
  58.       TabStop         =   0   'False
  59.       Top             =   1680
  60.       Width           =   1212
  61.    End
  62.    Begin VB.OLE OLE1 
  63.       Class           =   "Lotus123.Workbook.97"
  64.       Height          =   3732
  65.       Left            =   2160
  66.       OleObjectBlob   =   "DW05_S2.frx":0000
  67.       SourceDoc       =   "C:\WINDOWS\profiles\Default User\Desktop\vb\Dw05_s2.123"
  68.       TabIndex        =   7
  69.       Top             =   96
  70.       Width           =   6012
  71.    End
  72.    Begin VB.Label Label4 
  73.       Caption         =   "Value:"
  74.       Height          =   255
  75.       Left            =   120
  76.       TabIndex        =   6
  77.       Top             =   480
  78.       Width           =   615
  79.    End
  80.    Begin VB.Label Label2 
  81.       Caption         =   "State:"
  82.       Height          =   255
  83.       Left            =   120
  84.       TabIndex        =   5
  85.       Top             =   120
  86.       Width           =   495
  87.    End
  88. Attribute VB_Name = "Form1"
  89. Attribute VB_Creatable = False
  90. Attribute VB_Exposed = False
  91. Private Type myitem
  92. state As String
  93. sales As String
  94. End Type
  95. Dim StateAndSales(50) As myitem
  96. Dim myCount As Integer
  97. Private Sub Command2_Click()
  98. For i = 0 To myCount
  99.     OLE1.object.Ranges.Item("A:F" + CStr(i + 2)).contents = StateAndSales(i).state
  100.     OLE1.object.Ranges.Item("A:G" + CStr(i + 2)).contents = StateAndSales(i).sales
  101. Next i
  102. End Sub
  103. Private Sub Command3_Click()
  104. If Combo1.Text = "" Then
  105. MsgBox "You must select or enter a state.", , "Sorry!"
  106. Exit Sub
  107. End If
  108. If Text1.Text = "" Then
  109. MsgBox "You must enter a value.", , "Sorry!"
  110. Exit Sub
  111. End If
  112. StateAndSales(myCount).state = Combo1.Text
  113. StateAndSales(myCount).sales = Text1.Text
  114. List2.AddItem (StateAndSales(myCount).state + " at: " + StateAndSales(myCount).sales)
  115. Combo1.Text = ""
  116. Text1.Text = ""
  117. myCount = myCount + 1
  118. End Sub
  119. Private Sub Command4_Click()
  120. MsgBox StateAndSales(0).state
  121. MsgBox StateAndSales(1).state
  122. End Sub
  123. Private Sub Add_To_List_Click()
  124. If Combo1.Text = "" Then
  125. MsgBox "You must select or enter a state.", , "Sorry!"
  126. Exit Sub
  127. End If
  128. If Text1.Text = "" Then
  129. MsgBox "You must enter a value.", , "Sorry!"
  130. Exit Sub
  131. End If
  132. StateAndSales(myCount).state = Combo1.Text
  133. StateAndSales(myCount).sales = Text1.Text
  134. List1.AddItem (StateAndSales(myCount).state + " at: " + StateAndSales(myCount).sales)
  135. Combo1.Text = ""
  136. Text1.Text = ""
  137. myCount = myCount + 1
  138. End Sub
  139. Private Sub Form_Load()
  140. myCount = 0
  141. 'Combo1.AddItem ("AK")
  142. Combo1.AddItem ("AZ")
  143. Combo1.AddItem ("AR")
  144. Combo1.AddItem ("CA")
  145. Combo1.AddItem ("CO")
  146. Combo1.AddItem ("CT")
  147. Combo1.AddItem ("DE")
  148. Combo1.AddItem ("FL")
  149. Combo1.AddItem ("GA")
  150. 'Combo1.AddItem ("HI")
  151. Combo1.AddItem ("ID")
  152. Combo1.AddItem ("IL")
  153. Combo1.AddItem ("IN")
  154. Combo1.AddItem ("IA")
  155. Combo1.AddItem ("KS")
  156. Combo1.AddItem ("KY")
  157. Combo1.AddItem ("LA")
  158. Combo1.AddItem ("ME")
  159. Combo1.AddItem ("MD")
  160. Combo1.AddItem ("MA")
  161. Combo1.AddItem ("MI")
  162. Combo1.AddItem ("MN")
  163. Combo1.AddItem ("MS")
  164. Combo1.AddItem ("MO")
  165. Combo1.AddItem ("MT")
  166. Combo1.AddItem ("NE")
  167. Combo1.AddItem ("NV")
  168. Combo1.AddItem ("NH")
  169. Combo1.AddItem ("NJ")
  170. Combo1.AddItem ("NM")
  171. Combo1.AddItem ("NY")
  172. Combo1.AddItem ("NC")
  173. Combo1.AddItem ("ND")
  174. Combo1.AddItem ("OH")
  175. Combo1.AddItem ("OK")
  176. Combo1.AddItem ("OR")
  177. Combo1.AddItem ("PA")
  178. Combo1.AddItem ("RI")
  179. Combo1.AddItem ("SC")
  180. Combo1.AddItem ("SD")
  181. Combo1.AddItem ("TN")
  182. Combo1.AddItem ("TX")
  183. Combo1.AddItem ("UT")
  184. Combo1.AddItem ("VT")
  185. Combo1.AddItem ("VA")
  186. Combo1.AddItem ("WA")
  187. Combo1.AddItem ("WV")
  188. Combo1.AddItem ("WI")
  189. Combo1.AddItem ("WY")
  190. Combo1.Text = Combo1.List(0)
  191. End Sub
  192. Private Sub Label1_Click()
  193. End Sub
  194. Private Sub List2_Click()
  195. End Sub
  196. Private Sub Update_Map_Click()
  197. For i = 0 To myCount
  198.     OLE1.object.Ranges.Item("A:F" + CStr(i + 2)).contents = StateAndSales(i).state
  199.     OLE1.object.Ranges.Item("A:G" + CStr(i + 2)).contents = StateAndSales(i).sales
  200. Next i
  201. End Sub
  202.