mrpoopoohead

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

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

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

Mavric98

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."