Tilted Forum Project Discussion Community

Tilted Forum Project Discussion Community (https://thetfp.com/tfp/)
-   Tilted Technology (https://thetfp.com/tfp/tilted-technology/)
-   -   Visual Basic If Statement help (https://thetfp.com/tfp/tilted-technology/72270-visual-basic-if-statement-help.html)

mrpoopoohead 10-11-2004 07:23 PM

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.

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.


All times are GMT -8. The time now is 03:39 AM.

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Optimization by vBSEO 3.6.0 PL2
© 2002-2012 Tilted Forum Project


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43