spinbuttom problem
14.03.2006 22:11:05
moritz
habe die codes
Private Sub SpinButton1_SpinDown()
TextBox1.Value = Format(CLng(CDate(TextBox1.Value)) - SpinButton1.Value, "dd.mm.yyyy")
TextBox3.Value = CLng(CDate(TextBox1.Value)) - CLng(CDate(TextBox2.Value))
End Sub
Private Sub SpinButton1_SpinUp()
TextBox1.Value = Format(CLng(CDate(TextBox1.Value)) + SpinButton1.Value, "dd.mm.yyyy")
TextBox3.Value = CLng(CDate(TextBox1.Value)) - CLng(CDate(TextBox2.Value))
End Sub
das problem ist das beim betätigen des spinbuttons nicht in 1tages schritten
erhöht bzw veringert wird und beim runterbetätigen des spin buttons in der textbox3 keine negativen werte stehen.
muß ich bei den eigenschaften des spinbuttons etwas verändern?
Anzeige