home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW05_S2.FRM < prev    next >
Text File  |  1996-11-21  |  6KB  |  236 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. End
  89. Attribute VB_Name = "Form1"
  90. Attribute VB_Creatable = False
  91. Attribute VB_Exposed = False
  92. Private Type myitem
  93. state As String
  94. sales As String
  95. End Type
  96.  
  97. Dim StateAndSales(50) As myitem
  98. Dim myCount As Integer
  99.  
  100. Private Sub Command2_Click()
  101. For i = 0 To myCount
  102.     OLE1.object.Ranges.Item("A:F" + CStr(i + 2)).contents = StateAndSales(i).state
  103.     
  104.     OLE1.object.Ranges.Item("A:G" + CStr(i + 2)).contents = StateAndSales(i).sales
  105.  
  106. Next i
  107. End Sub
  108.  
  109.  
  110. Private Sub Command3_Click()
  111.  
  112. If Combo1.Text = "" Then
  113. MsgBox "You must select or enter a state.", , "Sorry!"
  114. Exit Sub
  115. End If
  116.  
  117. If Text1.Text = "" Then
  118. MsgBox "You must enter a value.", , "Sorry!"
  119. Exit Sub
  120. End If
  121.  
  122. StateAndSales(myCount).state = Combo1.Text
  123. StateAndSales(myCount).sales = Text1.Text
  124.  
  125. List2.AddItem (StateAndSales(myCount).state + " at: " + StateAndSales(myCount).sales)
  126.  
  127. Combo1.Text = ""
  128. Text1.Text = ""
  129. myCount = myCount + 1
  130.  
  131. End Sub
  132.  
  133. Private Sub Command4_Click()
  134. MsgBox StateAndSales(0).state
  135. MsgBox StateAndSales(1).state
  136. End Sub
  137.  
  138. Private Sub Add_To_List_Click()
  139. If Combo1.Text = "" Then
  140. MsgBox "You must select or enter a state.", , "Sorry!"
  141. Exit Sub
  142. End If
  143.  
  144. If Text1.Text = "" Then
  145. MsgBox "You must enter a value.", , "Sorry!"
  146. Exit Sub
  147. End If
  148.  
  149. StateAndSales(myCount).state = Combo1.Text
  150. StateAndSales(myCount).sales = Text1.Text
  151.  
  152. List1.AddItem (StateAndSales(myCount).state + " at: " + StateAndSales(myCount).sales)
  153.  
  154. Combo1.Text = ""
  155. Text1.Text = ""
  156. myCount = myCount + 1
  157. End Sub
  158.  
  159. Private Sub Form_Load()
  160.  
  161. myCount = 0
  162.  
  163. 'Combo1.AddItem ("AK")
  164. Combo1.AddItem ("AZ")
  165. Combo1.AddItem ("AR")
  166. Combo1.AddItem ("CA")
  167. Combo1.AddItem ("CO")
  168. Combo1.AddItem ("CT")
  169. Combo1.AddItem ("DE")
  170. Combo1.AddItem ("FL")
  171. Combo1.AddItem ("GA")
  172. 'Combo1.AddItem ("HI")
  173. Combo1.AddItem ("ID")
  174. Combo1.AddItem ("IL")
  175. Combo1.AddItem ("IN")
  176. Combo1.AddItem ("IA")
  177. Combo1.AddItem ("KS")
  178. Combo1.AddItem ("KY")
  179. Combo1.AddItem ("LA")
  180. Combo1.AddItem ("ME")
  181. Combo1.AddItem ("MD")
  182. Combo1.AddItem ("MA")
  183. Combo1.AddItem ("MI")
  184. Combo1.AddItem ("MN")
  185. Combo1.AddItem ("MS")
  186. Combo1.AddItem ("MO")
  187. Combo1.AddItem ("MT")
  188. Combo1.AddItem ("NE")
  189. Combo1.AddItem ("NV")
  190. Combo1.AddItem ("NH")
  191. Combo1.AddItem ("NJ")
  192. Combo1.AddItem ("NM")
  193. Combo1.AddItem ("NY")
  194. Combo1.AddItem ("NC")
  195. Combo1.AddItem ("ND")
  196. Combo1.AddItem ("OH")
  197. Combo1.AddItem ("OK")
  198. Combo1.AddItem ("OR")
  199. Combo1.AddItem ("PA")
  200. Combo1.AddItem ("RI")
  201. Combo1.AddItem ("SC")
  202. Combo1.AddItem ("SD")
  203. Combo1.AddItem ("TN")
  204. Combo1.AddItem ("TX")
  205. Combo1.AddItem ("UT")
  206. Combo1.AddItem ("VT")
  207. Combo1.AddItem ("VA")
  208. Combo1.AddItem ("WA")
  209. Combo1.AddItem ("WV")
  210. Combo1.AddItem ("WI")
  211. Combo1.AddItem ("WY")
  212.  
  213. Combo1.Text = Combo1.List(0)
  214.  
  215. End Sub
  216.  
  217.  
  218. Private Sub Label1_Click()
  219.  
  220. End Sub
  221.  
  222. Private Sub List2_Click()
  223.  
  224. End Sub
  225.  
  226. Private Sub Update_Map_Click()
  227. For i = 0 To myCount
  228.     OLE1.object.Ranges.Item("A:F" + CStr(i + 2)).contents = StateAndSales(i).state
  229.     
  230.     OLE1.object.Ranges.Item("A:G" + CStr(i + 2)).contents = StateAndSales(i).sales
  231.  
  232. Next i
  233. End Sub
  234.  
  235.  
  236.