SpinButton İle Labeldeki Veriyi TextBox'ta Saydırma

[ormann]

İyi Günler;örnek dosyada Label1 deki veriyi SpinButton ile TextBox'a yazdırıyorum.Fakat SpinButton ile artırıp-azaltamıyorum.Yardımcı olurmusunuz?

 

[Korhan Ayhan]

Merhaba,

Formunuzdaki kodları silip aşağıdaki kodları deneyin.

Private Sub SpinButton1_SpinDown()
    If TextBox1 = 0 Then Exit Sub
    If TextBox1 = "" Then
        TextBox1 = Label1.Caption
        Exit Sub
    End If
    TextBox1 = TextBox1 - 1
End Sub
 
Private Sub SpinButton1_SpinUp()
    If TextBox1 = 5000 Then Exit Sub
    If TextBox1 = "" Then
        TextBox1 = Label1.Caption
        Exit Sub
    End If
    TextBox1 = TextBox1 + 1
End Sub
 
Private Sub UserForm_Initialize()
    With Me.SpinButton1
        .Min = 0
        .Max = 5000
    End With
End Sub

 

[halit3]

İyi Günler;örnek dosyada Label1 deki veriyi SpinButton ile TextBox'a yazdırıyorum.Fakat SpinButton ile artırıp-azaltamıyorum.Yardımcı olurmusunuz?

Alternatif kod

Private Sub SpinButton1_SpinDown()
If TextBox1 = "" Then
SpinButton1.Value = Label1.Caption
End If
TextBox1.Text = SpinButton1.Value
End Sub
 
 
Private Sub SpinButton1_SpinUp()
If TextBox1 = "" Then
SpinButton1.Value = Label1.Caption
End If
TextBox1.Text = SpinButton1.Value
End Sub
 
 
Private Sub UserForm_Initialize()
With Me.SpinButton1
.Min = 0
.Max = 5000
End With
End Sub

 

[ormann]

Sayın Korhan bey ve Halit bey ilgi ve alakanıza çok çok teşekkür ederim.