سلام
کسی هست که به من در نوشتن برنامه ای که با چرخاندن او دکمه لغزنده ی موس به بالا بشه اعداد از یک تا 10 رو تو یک textbox نشان داد و باز وقتی رو به پایین چرخوندیم باز از 10 تا 1 بشه کمک کنه
اگه درست فهميده باشم. اينو توي رويداد mousewheel تكستباكس بنويسيد (VBس):
Static num As Int16 = 0
If e.Delta > 0 AndAlso num < 10 Then
num += 1
TWnum.Text = num
ElseIf e.Delta < 0 AndAlso num > 0 Then
num -= 1
TWnum.Text = num
End If
اينجا اسم تكستباكس TWnum هست. در ضمن براي اين كه كار كنه بايد تكستباكس روش فوكوس بشه.
ببخشید نمی شهکمی در باره delta و کدتون توضیح بدید
آقا اینا با چه زبونی نوشتی ؟؟؟
ما توی ویبی دات نت می تونیم هم چین کاری کنیم ؟ :
Num-=1
(۲۶-شهريور-۱۳۸۷ ۱۵:۵۹:۵۸)ahsan22 نوشته : [ -> ]ببخشید نمی شهکمی در باره delta و کدتون توضیح بدید
Static num As Int16 = 0
اين كه يه متغير استاتيكه كه مقدارمونو نگه ميداره و استاتيك تعريفش كردم كه مقدارشو از دست نده
If e.Delta > 0 AndAlso num < 10 Then
delta وقتي موس بچرخه بالا مثبت ميشه وقتي بچرخه پايين منفيميشه. خب چكش ميكنيم اگه مثبت بود و متغيرمون كمتر از ده
num += 1
TWnum.Text = num
به متغيرمون يكي اضافه ميكنيم و نشونش ميديم توي تكست باكس
ElseIf e.Delta < 0 AndAlso num > 0 Then
وگرنه اگه delta منفي بود و عددمون بزرگتر از صفر
num -= 1
TWnum.Text = num
يكي از مقدارمون كم ميكنيم و نمايشش ميديم
End If
خلاص
(۲۶-شهريور-۱۳۸۷ ۱۷:۴۲:۰۳)yeketaz نوشته : [ -> ]آقا اینا با چه زبونی نوشتی ؟؟؟
ما توی ویبی دات نت می تونیم هم چین کاری کنیم ؟ :
Num-=1
اختيار داريد. توي ويبي دات نت كارا ميتونيد بكنيد ... . شاخ غولو ميشكنه.
خیلی قشنگ توضیح دادید ممنون