旋轉按鈕控制項主要用來輸入一定範圍內的整數值,
一般將旋轉按鈕與文字框結合起來使用。
按一下旋轉按鈕只會更改旋轉按鈕的值,
還需要編寫代碼修改與之結合的文字框的值。
下面以一個“用旋轉按鈕修改日期和時間的值”的實例來說明選項按鈕的使用。
1 新建表單並插入如下控制項:控制項物件名稱MaxLengthMinMax表單frmDate文字框1txtYear4文字框2txtMonth2文字框3txtDay2文字框4txtHour2文字框5txtMinute2文字框6txtSecond2旋轉按鈕1spbYear19002500旋轉按鈕2spbMonth112旋轉按鈕3spbDay131旋轉按鈕4spbHour023旋轉按鈕5spbMinute059旋轉按鈕6spbSecond059
Sub 修改日期和時間()
frmDate.Show
End Sub
3 編寫表單代碼Private Sub UserForm_Initialize()
txtYear.Value = Year(Date) '獲取當前日期的年月日
txtMonth.Value = Month(Date)
txtDay.Value = Day(Date)
txtHour.Value = Hour(Time) '獲取當前時間的時分秒
txtMinute.Value = Minute(Time)
txtSecond.Value = Second(Time)
spbYear.Value = txtYear.Value '為旋轉按鈕賦值
spbMonth.Value = txtMonth.Value
spbDay.Value = txtDay.Value
spbHour.Value = txtHour.Value
spbMinute.Value = txtMinute.Value
spbSecond.Value = txtSecond.Value
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdSet_Click()
Dim dTemp, dTime
dTemp = DateSerial(txtYear.Value, txtMonth.Value, txtDay.Value) '生成日期
dTime = TimeSerial(txtHour.Value, txtMinute.Value, txtSecond.Value) '生成時間
Date = dTemp '設置日期
dTime = dTime '設置時間
End Sub
Private Sub spbDay_Change()
txtDay.Value = spbDay.Value
End Sub
Private Sub spbHour_Change()
txtHour.Value = spbHour.Value
End Sub
Private Sub spbMinute_Change()
txtMinute.Value = spbMinute.Value
End Sub
Private Sub spbMonth_Change()
txtMonth.Value = spbMonth.Value
End Sub
Private Sub spbSecond_Change()
txtSecond.Value = spbSecond.Value
End Sub
Private Sub spbYear_Change()
txtYear.Value = spbYear.Value
End Sub
Private Sub txtMonth_Change()
Dim dTemp As Date
dTemp = DateSerial(txtYear.Value, txtMonth.Value + 1, 1)
spbDay.Max = Day(dTemp - 1)
End Sub
在上面表單調用後, 即可進行如下操作:
-End-