Jump to content
Xtreme .Net Talk

Recommended Posts

Posted

here is my code: test for checkbox doesn't work???

Public Sub gettxt()

Dim val As Integer

Dim text(200) As String

Dim result(200) As String

Dim verb(200) As String

Dim counter As Integer

Dim val1 As Integer

Dim text1 As String

Dim i1 As Integer

Dim j As Integer

Dim i As Integer

Dim k As Integer

Dim Mycheck(200) As CheckBox

Dim button1 As Button

Dim freetext As TextBox

Dim noverbs As Integer

'get verbs array and noverbs

'noverbs is number of verbs in array

noverbs = 5

verb(1) = "one"

verb(2) = "two"

verb(3) = "three"

verb(4) = "four"

verb(5) = "five"

'create check boxes

For i = 1 To noverbs

Mycheck(i) = New CheckBox

Mycheck(i).Location = New Point(1, 15 * i)

Controls.Add(Mycheck(i))

Mycheck(i).Text = verb(i)

Next i

 

' test if check box checked...move verb to text

For k = 1 To noverbs

 

If Mycheck(k).Checked = True Then text(k) = verb(k) Else text(k) = ""

Next k

Posted

Yeah, i haven't been able to import anything from previous stuff.

not that it was worth anything...

Auto-suggestion: "I have a life"

Uncontroled thinking: "So what the.."

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...