Simple Question *Probably* - Xtreme Visual Basic Talk

11-13-2003, 11:42 AM

Mystical

Junior Contributor

Join Date: Aug 2003

Posts: 306

Simple Question *Probably*

I have 53 checkboxes that I made into a control array. I am using this for part of a website url that i have stored as a string.

Each checkbox represents a number eg... check1(1) = 2 check3(3) = 6 so forth I already coded this part.
What I want to do is when the person click say checkbox(37) and clicks enter the Url String will be
www.website.com/destination=checkbox(37).php
I have it where only 1 checkbox can be clicked.
How would I do this? eg

Private Sub cmdClick()
URL = "www.website.com"
strDestination = "destination=" & What do I add here to make it use the checkbox checked?
Headers = Blah Blah Blah
inet.execute URL, "GET", strDestination, Headers

It probably possible to add 53 If Thens to get this to work but weren't control arrays to help you not do it that way and save time?

11-13-2003, 11:53 AM

FireXtol

Centurion

Join Date: Nov 2003

Posts: 149

Code:

For X = checkbox.lbound to checkbox.ubound
 If checkbox(x).value = 1 then
  'do something
  Exit For ' don't loop anymore
 End If
Next X

__________________
FireXtol
VB6, C++, HTML, Iptscrae

Last edited by FireXtol; 11-13-2003 at 01:06 PM.

11-13-2003, 12:01 PM

PlenoJure

'With Full Right'

Retired Moderator
* Guru *

Join Date: Jun 2003

Posts: 1,880

The one way to do this would be to set up a variable to hold the name of the last check box the was checked. Declare a variable in the Declarations area of your form and in the Click event of checkbox set the value of the variable to the name of the checkbox. Something like this:

Code:

Private Sub Check1_Click(Index As Integer)
   lngLastChecked = Index
End Sub

Private Sub cmdClick()
   URL = "www.website.com"
   strDestination = "destination=checkbox(" & lngLastChecked & ").php"
   Headers = ""
   inet.execute URL, "GET", strDestination, Headers
End Sub

BTW, since you only want one checked at a time you might want to use OptionButtons instead..

__________________
Adam
-- Please use [vb][/vb] tags for code | Posting Guidelines | Please check the MSDN and Search before posting
-- Other Sites: Did you search Google first? | My Blog