ايران ويج

سلام
کسی هست که به من در نوشتن برنامه ای که با چرخاندن او دکمه لغزنده ی موس به بالا بشه اعداد از یک تا 10 رو تو یک textbox نشان داد و باز وقتی رو به پایین چرخوندیم باز از 10 تا 1 بشه کمک کنه

اگه درست فهميده باشم. اينو توي رويداد mousewheel تكستباكس بنويسيد (VBس):
اينجا اسم تكستباكس 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

اختيار داريد. توي ويبي دات نت كارا ميتونيد بكنيد ... . شاخ غولو ميشكنه.

خیلی قشنگ توضیح دادید ممنون

از توضیحات کامل تشکر می کنم

دوستان عزیز

لطفا از دکمه "تشکر" که در نوار ابزار زیر هر پست قرار داره برای تشکر استفاده و از ارسال پست جدید برای این کار حتی المقدور خودداری کنید.

(۲۴-شهریور-۱۳۸۷, ۱۹:۰۷:۰۸)ajlajlajl نوشته است: [ -> ]اگه درست فهميده باشم. اينو توي رويداد 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 هست. در ضمن براي اين كه كار كنه بايد تكستباكس روش فوكوس بشه.

ببخشید ما رویداد mousewheel نداریم !!!