simple vb problem kicking my butt...

NicheExposed · 11-04-2009, 01:58 PM

I have been fighting this problem for about 3 hours now and nothing I do seems to work. I am working on a small browser program that I am putting a small error handler type issue together.

What I want to do is have a button become enabled when there is text in a text box on the screen and disabled when there is no text in the box. The result will be when a url is in the text box the button is clickable and the web browser takes the url and if there is no url in the text box nothing will happen sice they can't click the button.

This is the code I have been trying to play with.

If UrlTextBox.Text = Text Then Button4.Enabled = True else button4.enabled = false

but when I run the program the button is still enabled. I have even tried simular lines of code and putting the code in different declerations but nothing seems to work. This isn't difficult or at least I don't think it is. Can anyone give me any advice.

Thanks

n7 Studios · 11-04-2009, 02:09 PM

Firstly, you'll need the code to be within the textbox's onChange function (or VB similar function - I can't remember from memory).

Then, you'd need to use something along the lines of:
If UrlTextBox.Text = "" Then Button4.Enabled = False Else Button4.Enabled = True

NicheExposed · 11-04-2009, 03:23 PM

thank youI did that before but may have put in the wrong place.

YMO · 11-05-2009, 06:17 AM

hi.Niche, you could use the code earlier suggested or better still make use of the keypress event of your textbox.You can place this code in the keypress or change events:

If Text1.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
Exit Sub
End If

YMO

sanjid112 · 11-05-2009, 06:44 AM

Code:

     'This checks if the length of a string without leading/trailing spaces is greater than 0
    If Len(Trim$(Text1.Text)) > 0 Then
        'You might want to check for valid entries here, but this line below enables it
        Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If
End Sub

maybe that help.

-Malik

VisualWebEffects · 11-05-2009, 09:52 AM

try this:

Code:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
     If (TextBox1.Length <= 0) then
          Button1.Enabled = False
     else
          Button1.Endabled = True
     End If
End Sub

Basically the Code that sanjid112 posted but instead of using the len function use the length function built into the textbox and wrap it in the TextChanged function. Doing this the TextChanged function should automatically be called when the user starts to type text. All you would need to do is change the compair number to whatever you need it to be. And ofc change the TextBox1 to whatever your textbox is named.

TrafficMystic · 11-05-2009, 04:27 PM

Quote:

Originally Posted by VisualWebEffects

try this:

Code:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
     If (TextBox1.Length <= 0) then
          Button1.Enabled = False
     else
          Button1.Endabled = True
     End If
End Sub

Basically the Code that sanjid112 posted but instead of using the len function use the length function built into the textbox and wrap it in the TextChanged function. Doing this the TextChanged function should automatically be called when the user starts to type text. All you would need to do is change the compair number to whatever you need it to be. And ofc change the TextBox1 to whatever your textbox is named.

Also add some code on the show or load event to check the values on startup of the form.

warmlikecoffee · 11-05-2009, 05:19 PM

Insert this into the TextChanged part of Textbox:

If Len(Textbox1.Text) = 0 Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If

If your Textbox is empty default on startup then just set Enabled = False on the command button.

Edit:
Next time ask for help sooner, 3 hours is a long time.. =)

11-04-2009, 01:58 PM	#1
NicheExposed HyperActive Warrior War Room Member Join Date: Jan 2009 Posts: 152 Thanks: 1 Thanked 50 Times in 13 Posts	simple vb problem kicking my butt... I have been fighting this problem for about 3 hours now and nothing I do seems to work. I am working on a small browser program that I am putting a small error handler type issue together. What I want to do is have a button become enabled when there is text in a text box on the screen and disabled when there is no text in the box. The result will be when a url is in the text box the button is clickable and the web browser takes the url and if there is no url in the text box nothing will happen sice they can't click the button. This is the code I have been trying to play with. If UrlTextBox.Text = Text Then Button4.Enabled = True else button4.enabled = false but when I run the program the button is still enabled. I have even tried simular lines of code and putting the code in different declerations but nothing seems to work. This isn't difficult or at least I don't think it is. Can anyone give me any advice. Thanks

11-04-2009, 02:09 PM	#2
n7 Studios Web Developer, IT Support War Room Member Join Date: Dec 2008 Location: Birmingham, UK Posts: 513 Thanks: 10 Thanked 77 Times in 65 Posts Social Networking	Re: simple vb problem kicking my butt... Firstly, you'll need the code to be within the textbox's onChange function (or VB similar function - I can't remember from memory). Then, you'd need to use something along the lines of: If UrlTextBox.Text = "" Then Button4.Enabled = False Else Button4.Enabled = True
	THE Web Development Guru - Wordpress / Magento / iOS Bespoke Dev. HTML5, CSS3, PHP, MySQL. -- UK Internet Marketing Community.

11-04-2009, 03:23 PM	#3
NicheExposed HyperActive Warrior War Room Member Join Date: Jan 2009 Posts: 152 Thanks: 1 Thanked 50 Times in 13 Posts	Re: simple vb problem kicking my butt... thank youI did that before but may have put in the wrong place.

11-05-2009, 06:17 AM	#4
YMO Warrior Member Join Date: Nov 2009 Posts: 1 Thanks: 0 Thanked 0 Times in 0 Posts	Re: simple vb problem kicking my butt... hi.Niche, you could use the code earlier suggested or better still make use of the keypress event of your textbox.You can place this code in the keypress or change events: If Text1.Text <> "" Then Command1.Enabled = True Else Command1.Enabled = False Exit Sub End If YMO

11-05-2009, 06:44 AM	#5
sanjid112 Banned War Room Member Join Date: Oct 2009 Posts: 183 Thanks: 4 Thanked 21 Times in 19 Posts	Re: simple vb problem kicking my butt... Code: 'This checks if the length of a string without leading/trailing spaces is greater than 0 If Len(Trim$(Text1.Text)) > 0 Then 'You might want to check for valid entries here, but this line below enables it Command1.Enabled = True Else Command1.Enabled = False End If End Sub maybe that help. -Malik

11-05-2009, 09:52 AM	#6
VisualWebEffects HyperActive Warrior War Room Member Join Date: Sep 2009 Location: Canada Posts: 137 Thanks: 4 Thanked 35 Times in 18 Posts Contact Info	Re: simple vb problem kicking my butt... try this: Code: Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If (TextBox1.Length <= 0) then Button1.Enabled = False else Button1.Endabled = True End If End Sub Basically the Code that sanjid112 posted but instead of using the len function use the length function built into the textbox and wrap it in the TextChanged function. Doing this the TextChanged function should automatically be called when the user starts to type text. All you would need to do is change the compair number to whatever you need it to be. And ofc change the TextBox1 to whatever your textbox is named.
	VisualWebEffects- Web Application Development, PC Software Development and Identity Design services

11-05-2009, 05:19 PM	#8
warmlikecoffee Warrior Member Join Date: Oct 2009 Posts: 16 Thanks: 0 Thanked 0 Times in 0 Posts	Re: simple vb problem kicking my butt... Insert this into the TextChanged part of Textbox: If Len(Textbox1.Text) = 0 Then Command1.Enabled = False Else Command1.Enabled = True End If If your Textbox is empty default on startup then just set Enabled = False on the command button. Edit: Next time ask for help sooner, 3 hours is a long time.. =)