| |
▼りん さん：
>こんにちわ。
>
>>ponponさんのご指摘通りやってみましたが、テキストボックスに手入力した値が無視されてしまいます。
>>例えばスピンボタンで１、２、３と上昇させ３の状態で、手入力で１０といれた場合、その後スピンボタンで１１、１２、１３と動けばよいのですが、もとの３を基準として４、５、６となってしまいます。つまり手入力の１０が基準となりません。
>>
>>どうでしょうか？
>
>Changeではなく、SpinUP&Downを使ってみては？
>
>Private Sub SpinButton1_SpinDown()
> With TextBox1
> .Value = .Value - 1
> End With
>End Sub
>
>Private Sub SpinButton1_SpinUp()
> With TextBox1
> .Value = .Value + 1
> End With
>End Sub
>
>こんな感じです。
>テキストボックスに入っている文字が、数値として判定されない文字だとエラーになりますが。
ありがとうございます！！うまくいきました！！
助かりました！！！またよろしくお願いします。
|
|
toki
- 05/9/17(土) 19:36 -
