Visual Basic If Statement help - Tilted Forum Project Discussion Community

mrpoopoohead · 10-11-2004, 07:23 PM

I am doing a project and i have a scroll bar that has QBColors on it as you go 1 - 15 it displays the colors in the picture box. it also has a text box to enter 1 - 15 to go to that QBColor. I was wondering how to make it so that if a value greater than 15 is entered into the text box to prompt the user and just stay at the max, 15.

tylor · 10-11-2004, 07:38 PM

if textbox1.text > 15 then msgbox "Please enter a digit between 1-15"

you might also want to do it so if they enter a value less than 1.

if textbox1.text < 1 then msgbox "Please enter a digit between 1-15"

i think these will help, but if they don't just say so, because it's been awile for me, so i might have made a mistake.

ketamine · 10-12-2004, 12:44 AM

You may also want to make sure that what they enter in the Textbox is actually a number before trying to use it as one.

Mavric98 · 10-12-2004, 01:32 AM

Slap some Val() functions into Tylor's statement would work perfectly. Here is an example that does not use a msgbox (in general using msgboxs is bad programming practice).

Dim lastValue As Integer

Private Sub Form_Load()

lastValue = 1

Text1.Text = lastValue

End Sub

Private Sub Command1_click()

If Val(Text1.Text) < 1 Or Val(Text1.Text) > 15 Then

Text1.Text = lastValue

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

Else

lastValue = Text1.Text

End If

End Sub

In this code I check to see if the value of the text is valid, and if is invalid I change it back to the last valid entry and highlight it.

10-11-2004, 07:23 PM	#1 (permalink)
mrpoopoohead Loser	Visual Basic If Statement help I am doing a project and i have a scroll bar that has QBColors on it as you go 1 - 15 it displays the colors in the picture box. it also has a text box to enter 1 - 15 to go to that QBColor. I was wondering how to make it so that if a value greater than 15 is entered into the text box to prompt the user and just stay at the max, 15.

10-12-2004, 12:44 AM	#3 (permalink)
ketamine Upright Location: Boulder, Colorado	You may also want to make sure that what they enter in the Textbox is actually a number before trying to use it as one. __________________ /K

10-12-2004, 01:32 AM	#4 (permalink)
Mavric98 Tilted Location: I am not living.	Slap some Val() functions into Tylor's statement would work perfectly. Here is an example that does not use a msgbox (in general using msgboxs is bad programming practice). Dim lastValue As Integer Private Sub Form_Load() lastValue = 1 Text1.Text = lastValue End Sub Private Sub Command1_click() If Val(Text1.Text) < 1 Or Val(Text1.Text) > 15 Then Text1.Text = lastValue Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else lastValue = Text1.Text End If End Sub In this code I check to see if the value of the text is valid, and if is invalid I change it back to the last valid entry and highlight it. __________________ "Hope is for people that don't stand a chance." Last edited by Mavric98; 10-12-2004 at 02:07 AM..

10-11-2004, 07:38 PM	#2 (permalink)
tylor Upright	if textbox1.text > 15 then msgbox "Please enter a digit between 1-15" you might also want to do it so if they enter a value less than 1. if textbox1.text < 1 then msgbox "Please enter a digit between 1-15" i think these will help, but if they don't just say so, because it's been awile for me, so i might have made a mistake.