Visual Basic 6 Text Box - Help Needed

RedfieldC11 · 05-08-2009, 08:49 AM

I'm trying to learn how to use Visual Basic, and I have only just started, so my coding ability is pretty weak.

I'm currently creating a program to calculate Carbon Footprints.

I have designed the forms and inserted data into combo boxes, but i'm unable to figure out how the text boxes work

Here's my problem:

There are 5 radio buttons on my form, and each one selected should change the contents of the text box. Heres the code I entered:

Private Sub Option1_Click()
If Option1 = True Then Text2_Text = 0
End Sub

Private Sub Option2_Click()
If Option2 = True Then Text2_Text = 2075
End Sub

Thats for my first 2 radio buttons. The problem is, the text box contents aren't changing. I would be grateful if anyone could point out what i've done wrong or how to correct my mistake.

A second problem I have, similar to the first, is that the combo boxes aren't changing the text box either. The code I used is below.

If CarSize = "No Car" Then Text2_Text = 0
If CarSize = "Small Car" Then Text2_Text = Text2 * 0.66
If CarSize = "Average Car" Then Text2_Text = Text2 * 1
If CarSize = "Large Car" Then Text2_Text = Text2 * 1.5

I understand that it would be quite annoying to do someone elses work for them, but i've been trying for hours and I really can't figure out whats wrong.

Thanks, Alex

TJ Belfiore · 05-08-2009, 12:18 PM

If you're looking for good VB help, I suggest getting an account on VBForums.com, I'm not dissing TSF or anything, it's just no one ever really posts here except me for VB help.

First of all, why are your structure like this "Text2_Text" ? You should be using a period (.) in between your object and your function, so "Textbox2.Text" instead of "Text2_Text".

Second of all, have you dimmed your CarSize statement?

Third of all, you're forgetting your "end if" statement at the end of your if statements:

Code:

Private Sub Option2_Click()
If Option2 = True Then Text2_Text = 2075
End Sub

should be:

Code:

Private Sub Option2_Click()
If Option2 = True Then 
Text2_Text = 2075
End If
End Sub

RedfieldC11 · 05-08-2009, 02:43 PM

Thanks for the help

And like I said, I've only just started the course so I am pretty bad lol

Our tutor disappeared right before we started the project, for some reason or another, and I'm trying to teach myself, which is why i mess everything up. It's also pretty hard to find information specific to what I'm trying to do, and it is pretty tedious.

Thanks again, Alex

TJ Belfiore · 05-09-2009, 02:31 PM

Yeah, when I was in college the professor literally never came back to class, he was there the first few weeks then never came again.

If you need anymore help, just hollaaa!

05-08-2009, 08:49 AM	#1 (permalink)
RedfieldC11 Registered User Join Date: May 2009 Posts: 2 OS: Vista	Visual Basic 6 Text Box - Help Needed I'm trying to learn how to use Visual Basic, and I have only just started, so my coding ability is pretty weak. I'm currently creating a program to calculate Carbon Footprints. I have designed the forms and inserted data into combo boxes, but i'm unable to figure out how the text boxes work Here's my problem: There are 5 radio buttons on my form, and each one selected should change the contents of the text box. Heres the code I entered: Private Sub Option1_Click() If Option1 = True Then Text2_Text = 0 End Sub Private Sub Option2_Click() If Option2 = True Then Text2_Text = 2075 End Sub Thats for my first 2 radio buttons. The problem is, the text box contents aren't changing. I would be grateful if anyone could point out what i've done wrong or how to correct my mistake. A second problem I have, similar to the first, is that the combo boxes aren't changing the text box either. The code I used is below. If CarSize = "No Car" Then Text2_Text = 0 If CarSize = "Small Car" Then Text2_Text = Text2 * 0.66 If CarSize = "Average Car" Then Text2_Text = Text2 * 1 If CarSize = "Large Car" Then Text2_Text = Text2 * 1.5 I understand that it would be quite annoying to do someone elses work for them, but i've been trying for hours and I really can't figure out whats wrong. Thanks, Alex

05-08-2009, 12:18 PM	#2 (permalink)
TJ Belfiore title here Join Date: Mar 2009 Location: 530 Posts: 3,517 OS: 7 x64, XP x32 Blog Entries: 1	Re: Visual Basic 6 Text Box - Help Needed If you're looking for good VB help, I suggest getting an account on VBForums.com, I'm not dissing TSF or anything, it's just no one ever really posts here except me for VB help. First of all, why are your structure like this "Text2_Text" ? You should be using a period (.) in between your object and your function, so "Textbox2.Text" instead of "Text2_Text". Second of all, have you dimmed your CarSize statement? Third of all, you're forgetting your "end if" statement at the end of your if statements: Code: Private Sub Option2_Click() If Option2 = True Then Text2_Text = 2075 End Sub should be: Code: Private Sub Option2_Click() If Option2 = True Then Text2_Text = 2075 End If End Sub __________________

05-08-2009, 02:43 PM	#3 (permalink)
RedfieldC11 Registered User Join Date: May 2009 Posts: 2 OS: Vista	Re: Visual Basic 6 Text Box - Help Needed Thanks for the help And like I said, I've only just started the course so I am pretty bad lol Our tutor disappeared right before we started the project, for some reason or another, and I'm trying to teach myself, which is why i mess everything up. It's also pretty hard to find information specific to what I'm trying to do, and it is pretty tedious. Thanks again, Alex

05-09-2009, 02:31 PM	#4 (permalink)
TJ Belfiore title here Join Date: Mar 2009 Location: 530 Posts: 3,517 OS: 7 x64, XP x32 Blog Entries: 1	Re: Visual Basic 6 Text Box - Help Needed Yeah, when I was in college the professor literally never came back to class, he was there the first few weeks then never came again. If you need anymore help, just hollaaa! __________________