vba窗体中旋转按钮的使用

wfstuman

我想使用vba窗体中的旋转按钮（SpinButton），点击向上或向下就使得一个文本框中的数字增加或减少1，我将代码写到SpinButton1_KeyDown和SpinButton1_KeyUp事件中，但是点击之后，文本框中的数字却没有变化，请问应该怎么做呢？

两个事件的函数如下：

Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
i = CInt(TextBox1.Text)
i = i - 1
TextBox1.Text = CStr(i)
End Sub

Private Sub SpinButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
i = CInt(TextBox1.Text)
i = i + 1
TextBox1.Text = CStr(i)
End Sub

LWQHLWQH

KeyDown 和 KeyUp 事件

按下和释放某键时这两个事件依次发生。按下键时发生 KeyDown 事件，而释放键时发生 KeyUp 事件。

可使用SpinButton1_Change

Private Sub SpinButton1_Change()
Dim i As Integer
i = SpinButton1.Value
i = i - 1
TextBox1.Text = CStr(i)
End Sub

tangcong

上下(或左右)按钮请分别用以下控制

Sub SpinButton1_SpinUp() 

Sub SpinButton1_SpinDown()

[此贴子已经被作者于2008-3-18 9:25:46编辑过]

jlslc

Private Sub SpinButton1_SpinUp()
        Dim skaohao1, sname1, sxuexiao1, ssex1, szubie1, szuhao1, spic1, shuju
        Set shuju = Worksheets(1)
        i = SpinButton1.Value
        If i < 3000 Then
            i = i + 1
        End If
        skaohao1 = shuju.Cells(i, 2)
        sname1 = shuju.Cells(i, 3)
        sxuexiao1 = shuju.Cells(i, 4)
        ssex1 = shuju.Cells(i, 5)
        szubie1 = shuju.Cells(i, 8)
        szuhao1 = shuju.Cells(i, 9)
        spic1 = skaohao1 & ".jpg"
        Worksheets(2).Cells(1, 13) = i
End Sub

当达到101，值为什么不动了。