July 24th, 2007, 02:40 PM
|
|
Registered User
|
|
Join Date: Dec 2006
Posts: 8
Time spent in forums: 4 h 25 m 44 sec
Reputation Power: 0
|
|
Coding variable varray
Code:
Option Explicit
Dim strcapitals(1 To 50) As String
Private Sub cmdExit_Click()
Unload frmStates
End Sub
Private Sub cmdPrint_Click()
PrintForm
End Sub
Private Sub Form_Load()
frmStates.Left = (Screen.Width - frmStates.Width) / 2
frmStates.Top = (Screen.Height - frmStates.Height) / 2
lstState.AddItem "Alabama"
lstState.AddItem "Alaska"
lstState.AddItem "Arizona"
lstState.AddItem "Arkansas"
lstState.AddItem "California"
lstState.AddItem "Colorado"
lstState.AddItem "Connecticut"
lstState.AddItem "Delaware"
lstState.AddItem "Florida"
lstState.AddItem "Georgia"
lstState.AddItem "Hawaii"
lstState.AddItem "Idaho"
lstState.AddItem "Illinois"
lstState.AddItem "Indiana"
lstState.AddItem "Iowa"
lstState.AddItem "Kansas"
lstState.AddItem "Kentucky"
lstState.AddItem "Louisiana"
lstState.AddItem "Main"
lstState.AddItem "Massachusetts"
lstState.AddItem "Michigan"
lstState.AddItem "Minnesota"
lstState.AddItem "Mississippi"
lstState.AddItem "Missouri"
lstState.AddItem "Montana"
lstState.AddItem "Nebraska"
lstState.AddItem "Nevada"
lstState.AddItem "New Hampshire"
lstState.AddItem "New Jersey"
lstState.AddItem "New Mexico"
lstState.AddItem "New York"
lstState.AddItem "North Carolina"
lstState.AddItem "North Dakota"
lstState.AddItem "Ohio"
lstState.AddItem "Oklahoma"
lstState.AddItem "Oregon"
lstState.AddItem "Pennsylvania"
lstState.AddItem "Rhode Island"
lstState.AddItem "South Carolina"
lstState.AddItem "South Dakota"
lstState.AddItem "Tennessee"
lstState.AddItem "Texas"
lstState.AddItem "Utah"
lstState.AddItem "Vermont"
lstState.AddItem "Virginia"
lstState.AddItem "Washington"
lstState.AddItem "West Virginia"
lstState.AddItem "Wisconsin"
lstState.AddItem "Wyoming"
lstState.ListIndex = 0
strcapitals(1) = "Montgomery"
strcapitals(2) = "Juneau"
strcapitals(3) = "Phoenix"
strcapitals(4) = "Little Rock"
strcapitals(5) = "Sacramento"
strcapitals(6) = "Denver"
strcapitals(7) = "Hartford"
strcapitals(8) = "Dover"
strcapitals(9) = "Tallahassee"
strcapitals(10) = "Atlanta"
strcapitals(11) = "Honolulu"
strcapitals(12) = "Boise"
strcapitals(13) = "Springfield"
strcapitals(14) = "Indianapolis"
strcapitals(15) = "Des Moines"
strcapitals(16) = "Topeka"
strcapitals(17) = "Frankfort"
strcapitals(18) = "Baton Rouge"
strcapitals(19) = "Augusta"
strcapitals(20) = "Annapolis"
strcapitals(21) = "Boston"
strcapitals(22) = "Lansing"
strcapitals(23) = "St. Paul"
strcapitals(24) = "Jackson"
strcapitals(25) = "Jefferson City"
strcapitals(26) = "Helena"
strcapitals(27) = "Lincoln"
strcapitals(28) = "Carson City"
strcapitals(29) = "Concord"
strcapitals(30) = "Trenton"
strcapitals(31) = "Santa Fe"
strcapitals(32) = "Albany"
strcapitals(33) = "Raleigh"
strcapitals(34) = "Bismarck"
strcapitals(35) = "Columbus"
strcapitals(36) = "Oklahoma City"
strcapitals(37) = "Salem"
strcapitals(38) = "Harrisburg"
strcapitals(39) = "Providence"
strcapitals(40) = "Columbia"
strcapitals(41) = "Pierre"
strcapitals(42) = "Nashville"
strcapitals(43) = "Austin"
strcapitals(44) = "Salt Lake City"
strcapitals(45) = "Montpelier"
strcapitals(46) = "Richmond"
strcapitals(47) = "Olympia"
strcapitals(48) = "Charleston"
strcapitals(49) = "Madison"
strcapitals(50) = "Cheyenne"
End Sub
Private Sub lstState_Click()
Dim intx As Integer
For intx = 1 To 50
If lstState.ListIndex = strcapitals Then
lblCapital.Caption = strcapitals(intx)
End If
Next intx
End Sub
i have a problem coding the variable array in the lststate _click i would like your help thank you.
Last edited by Shadow Wizard : July 25th, 2007 at 06:47 AM.
Reason: added [Code] and [/Code] tags please do that yourself next.
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
