[[20061010000023]]　『スピンボタンで時間を上下したい』（始める一歩）　ページの最後に飛ぶ

『スピンボタンで時間を上下したい』（始める一歩）

 また教えに頂きにきました。
 ユーザーホーム上ですが
 スピンボタンで日付を上下するのは
 Private Sub SpinButton2_Change()
　Dim myDate As Date
　With Me
    myDate = CDate(.TextBox12.Value) - .SpinButton2.Value
    .TextBox12.Value = Format(myDate, "mm月dd日")
    .SpinButton2.Value = 0
　End With
　End Sub　
　テキストボックスの日付データを上下に変更する方法は
　学校で教えて戴いて出きるようになりました。

 今回は時間　２１：３５　をスピンボタンで上下に変更する
 方法なのですが応用方法がわからないのですが、どうすればいいで
 しょうか。

 myDate = CDate(.TextBox12.Value) - .SpinButton2.Value/1440
 .TextBox12.Value = Format(myDate, "h:mm")
 でいいのでは
　（JJ)

 ＪＪさん。有難うございます。

 「myDate = CDate(.TextBox12.Value) - .SpinButton2.Value
    .TextBox12.Value = Format(myDate, "mm月dd日")」
　　のところを
 myDate = CDate(.TextBox12.Value) - .SpinButton2.Value/1440
 .TextBox12.Value = Format(myDate, "h:mm")
　に変更してやってみました。
　スピンボタン▼▲で　▲で　09:25→09:24、09:23・・・と変わって
 行くようになりました。しかし▼を押しても　変化がありません。
 なにか確認するところがあるのでしょうか。
（始める一歩）

 上向きをプラスが良いような気がする（個人的な感覚）ので、
myDate = CDate(.TextBox12.Value) + .SpinButton2.Value / 1440　にして、

 今ある、イニシャライズにスピンボタン2のMaxとMinを設定しては。
Private Sub UserForm_Initialize()
With Me
    .TextBox1.Value = Format(Date, "YYYY/MM/DD")
    .SpinButton1.Min = -1
    .SpinButton1.Max = 1
    .SpinButton2.Min = -1
    .SpinButton2.Max = 1
End With
End Sub

 （川野鮎太郎）

 川野鮎太郎さん。有難うございます。
 前回、教えて頂いた時、イニシャライズに上記を設定していた
 ことをすっかりわすれていました。
 今回のファイルは時間だけのファイルでした。
 スピンボタン（上下）を作る際はイニシャライズにmax、minを設定
 しておくのですね。（始める一歩）

 >スピンボタン（上下）を作る際はイニシャライズにmax、minを設定しておくのですね。
 規定値（スピンボタンを配置した時）は、Max100、Min0に設定されているはずなので、
 下げる場合、マイナス値を設定しておかないと下がらないですよね(^_^A;

 （川野鮎太郎）

 いつも具体的なわかりやすい説明有難うございます。
 今回もよく分かりました。　（始める一歩）

 .SpinButton2.Value = 0
が有るため
無ければ　Max100、Min0　の範囲内で（上下）できますが
（JJ)

コメント返信：

[ 一覧(最新更新順) ]

[[20061010000023]] 『スピンボタンで時間を上下したい』（始める一歩） ページの最後に飛ぶ

[[20061010000023]]　『スピンボタンで時間を上下したい』（始める一歩）　ページの最後に飛ぶ