ボタンで数値を変えたい。

質問

よくテキストボックスの隣に上と下の矢印が付いたボタンが２つあって、
テキストボックスの数値を上げたり下げたり出来るものがありますが、
あれは専用のボタンがあるのでしょうか？
それとも、コマンドボタンを2個並べて実現しているのでしょうか？

回答No.3

piroin654 · ベストアンサー

UpDownボタンを前提に。
プロパティの項目を調べればできると思いますが。

たとえば、ボタンクリックで、

Private Sub Command1_Click()
With UpDown1
.Min = 10
.Max = 20
.Wrap = True
.Value = 10
Text1.Text = .Value
End With
End Sub

のように設定できます。

UpDownボタンを押したときのイベントは、

Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End Sub

のように。

また、表示を小数を表示する場合は、

Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value / 10
End Sub

のような方法もあります。

回答No.2

Picosoft

あのボタンはスピンボタンと呼ばれています。

言語によって使い方が異なるので、今後は言語を明記していただけると嬉しいです。
(VB6, VBA, VB.NETなど)

お礼

ありがとうございます。
VB6です。

回答No.1

koi1234

（VB使ってないけど）
SpritButtunコントロールかな 標準コントロールであります

お礼

updownボタンというので有りました。
ケースによって、updownボタンの初期値を変更したいのですが、
UpDown1.Value=Val(Text1.text)と書くと
エラーになります。
updownボタンの初期値は変えられないのでしょうか？