By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
443,640 Members | 1,331 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 443,640 IT Pros & Developers. It's quick & easy.

multiple selection from checkboxes into text box

P: n/a
I have this form where I am trying to place items from checked boxes
into a text box. An image of what this form looks like is at
http://www.stelth2000inc.com/images/screen.png

Here is some code I have done for the first 2 check boxes, name and
world, they do what I want them to do, but for the rest of the check
boxes, the codes would be a bit minotonous. Is there a better way of
doing this, maybe checkedboxlist?

Private Sub sigBtn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles sigBtn.Click
Dim bbname As String = "
[size=10]Name: " &
charNameTxt.Text & "[/size]
" & vbCrLf
Dim bbworld As String = "
[size=10]World: " &
worldCombo.SelectedItem & "[/size]
" & vbCrLf

' Name check box checked
If chNameChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname
End If

' World check box checked
If worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbworld
End If

' Name & world check boxes checked
If chNameChk.Checked = True And worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname & bbworld
End If

End Sub

Any help with this would be awesome

Apr 5 '06 #1
Share this Question
Share on Google+
7 Replies


P: n/a
"Demonicpagan" <De**********@gmail.com> wrote in message
news:11**********************@t31g2000cwb.googlegr oups.com...

' Name check box checked
If chNameChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname
End If

' World check box checked
If worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbworld
End If

' Name & world check boxes checked
If chNameChk.Checked = True And worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname & bbworld
End If

End Sub
I'm sure someone'll pop in with some real help... in the mean time, I'm
wondering why you're clearing then appending text to a textbox.

You should be able to replace this..... If worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbworld
End If
....with.... If worldChk.Checked = True Then
signatureTxt.Text = bbworld
End If


Depending on the details, I might code it like this in VB5/6
'========
Option Explicit

Private mobjCheckBoxes As Collection

Private Sub Form_Load()
Set mobjCheckBoxes = New Collection

Check1.Tag = "Name"
Check2.Tag = "Address"

'I like to build my own collection instead of looping through
'the entire Controls collection each time
mobjCheckBoxes.Add Check1
mobjCheckBoxes.Add Check2

End Sub

Private Sub Command1_Click()
Dim c As CheckBox

With Text1
.Text = "" 'clear all text

'Loop through the collection, looking for 'checked' boxes
'appending the Tag property to the textbox
'I'm sure dotNet has something similar
For Each c In mobjCheckBoxes
If c.Value = vbChecked Then
.SelText = " " & c.Tag
'Reset Cursor = end of all text
.SelStart = Len(.Text)
End If
Next

End With

End Sub
'========

--
Ken Halter - MS-MVP-VB (visiting from VB6 world) - http://www.vbsight.com
Please keep all discussions in the groups..
Apr 5 '06 #2

P: n/a
Demonicpagan wrote:
I have this form where I am trying to place items from checked boxes
into a text box. An image of what this form looks like is at
http://www.stelth2000inc.com/images/screen.png

Here is some code I have done for the first 2 check boxes, name and
world, they do what I want them to do, but for the rest of the check
boxes, the codes would be a bit minotonous. Is there a better way of
doing this, maybe checkedboxlist?

Private Sub sigBtn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles sigBtn.Click
Dim bbname As String = "
[size=10]Name: " &
charNameTxt.Text & "[/size]
" & vbCrLf
Dim bbworld As String = "
[size=10]World: " &
worldCombo.SelectedItem & "[/size]
" & vbCrLf

' Name check box checked
If chNameChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname
End If

' World check box checked
If worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbworld
End If

' Name & world check boxes checked
If chNameChk.Checked = True And worldChk.Checked = True Then
signatureTxt.Text = ""
signatureTxt.Text = signatureTxt.Text & bbname & bbworld
End If

End Sub

Any help with this would be awesome


For Each C as Control in Me.Controls
if typeof c is checkbox then
if directcast(c, checkbox).checked then
signatureTxt.Text += C.Name
end if
end if
Next

That might not be the exact code, but it's close.

good luck
Apr 5 '06 #3

P: n/a
The way that i am wanting this to work is the user selects items that
they would want in a forum signature. Each check box is representative
of items in other tabs in this program (i.e. Name is the Character name
which is a text box in the General Tab, World is a combo box in that
same tab). The user can select as many as all the check boxes or as
little as one check box. I was clearing the box and appending text to
the box in case user makes selections, clicks create signature, changes
their mind and selects other items, and clicks create signature again.
I didn't want the new selections following the old selections, but
rather overwrite what was previously there.

Ultimately output would look something like this if user was to select
the Character Name & World check boxes:

color=blue][size=10]Name: character name[/size]
[size=10]World: character world[/size]


Just Name:
[size=10]Name: character name[/size]


Just World:
[size=10]Name: character name[/size]


World & Linkshell:
[size=10]World: character world[/size]

[size=10]Linkshell: linkshell[/size]


so on and so forth

Apr 6 '06 #4

P: n/a
Just for knowledge purposes, I am using Visual Basic 2005 Express
Edition to code this

Apr 6 '06 #5

P: n/a
I probably should also ask this while I'm at it because I know it will
be something that I will be asking.

The checkbox I have as Sex will be outputting either

[size=10]Sex: Male[/size]


or

[size=10]Sex: Female[/size]


based on what radio button was selected in the General Tab. How will I
need to go about handling this with the rest of what I'm trying to do?

Apr 6 '06 #6

P: n/a
Is there anyone that can help me with this?

Apr 9 '06 #7

P: n/a
Still looking for some help with this

Apr 10 '06 #8

This discussion thread is closed

Replies have been disabled for this discussion.