text -> scrollbar value - Xtreme Visual Basic Talk

07-30-2003, 04:06 PM

vb24

Newcomer

Join Date: Jul 2003

Posts: 5

text -> scrollbar value

in my program i have a textbox that changes the value of a scrollbar, but if u delete all chars from the textbox i get an error.

it says:

Run-time error '13':

Type mismatch

is there anyway i can fix this?

07-30-2003, 04:13 PM

VBCODEX

Centurion

Join Date: Jun 2003

Location: Far away from you

Posts: 119

this is probably your trying to set 1 of the scrollbar properties to nothing and it doesnt allow it

try

if text1.text = "" then exit sub

__________________

You never realise a mistake until you've made the mistake
[VBc0deX]

07-30-2003, 04:14 PM

calvn84

Regular

Join Date: Mar 2003

Location: Idaho, USA

Posts: 92

Quote:
Originally Posted by vb24
in my program i have a textbox that changes the value of a scrollbar, but if u delete all chars from the textbox i get an error.

it says:

Run-time error '13':

Type mismatch

is there anyway i can fix this?

Put this in whatever function/sub... I'm assuming your only trying to use numbers..

Code:

if text1.text <> "" then scrollbar.value = cint(text1.text)

07-30-2003, 04:55 PM

vb24

Newcomer

Join Date: Jul 2003

Posts: 5

still same error

i tried both VBCODEX and calvn's code but i still get the same error.

heres my code:

Code:

Private Sub Text1_Change()
Dim num As Integer
num = Text1.Text
HScroll1.Value = num
End Sub

is there anything i need to add? change?

07-30-2003, 05:34 PM

Lar_19

Senior Contributor

* Expert *

Join Date: May 2002

Location: Vancouver, USA

Posts: 999

Try it like this...

Code:

Private Sub Text1_Change()
  Dim num As Integer
  ' Use Val() to get the value of the text,
  ' non-numeric entries will evaluate to zero.
  num = Val(Text1.Text)
  ' Make sure you have a valid value before trying to set the scrollbar.
  If (num >= HScroll1.Min) And (num <= HScroll1.Max) Then
    HScroll1.Value = num
  End If
  
End Sub

__________________
1011 0000 1011

07-30-2003, 05:46 PM

calvn84

Regular

Join Date: Mar 2003

Location: Idaho, USA

Posts: 92

You may also want to check your min and max properties on your scrollbar... if max is 1 or some low number, it probably wont give you the result you want... the default max is 32767 so you'll need a larger number to see an actual, visible result.

__________________
-Calvn84

07-30-2003, 06:01 PM

vb24

Newcomer

Join Date: Jul 2003

Posts: 5

thx

thx alot lar_19 it works great!

07-30-2003, 06:16 PM

Lar_19

Senior Contributor

* Expert *

Join Date: May 2002

Location: Vancouver, USA

Posts: 999

You are very welcome. I might also suggest using the KeyPress event to restrict data entry into your text box to numbers only. If you do a search you will find numerous examples of how to do it.

__________________
1011 0000 1011