جلوگیری از حرکت روی رکوردها

[fatimah]

سلام دوستان
آیا راهی وجود داره تا حرکت روی رکوردها از طریق غلتک روی ماوس حذف بشه . یعنی نشه با استفاده از اون غلتک روی رکوردها

مانور داد ؟
خیلی فوریه !!
ممنونم ...

[Ali_Fallah]

جلوگیری از حرکت روی رکوردها(فوری)
یعنی همین الان باید جواب بدیم؟
اگه عجله نداری یا بقیه دوستان جواب ندادند انشاء ا... من یه برنامه فردا براتون میذارم...

[fatimah]

سلام
متاسفانه تا آخر امشب به جوابش نیاز دارم . آیا واقعا راهی وجود داره . چون برنامه ای که من نوشتم مشکلش با جلوگیری از این حرکت تا حدی رفع میشه .
ممنون ....
در ضمن از کلمه ی فوری قصد جسارت نداشتم .
(معذرت)

[Ali_Fallah]

بله امکانش صد در صد هست.
البته من از اینکه گفتم همین الان میخوای اصلاً هیچ منظور خاصی نداشتم
ولی متاسفانه من برنامه را در حال حاضر در اختیار ندارم...

[Mahsa Hatefi]

دوست عزیز اگه می گشتی زودتر نتیجه می گرفتی یه فایل توی همین فوروم توسط شاپرک جان گذاشته شده بود .

[fatimah]

از کمک دوستان ممنونم

[fatimah]

بازم سلام
مهسا جان من اصلا از این فایل سر در نیاوردم . یعنی اون چیزی که دنبالش بودم رو نتونستم توی این فایل پیدا کنم . اگه امکانش هست توضیح بدین .
ممنون

[Mahsa Hatefi]

دوست من یه فایل mousehook.dll اونجا هست ، اون باید توی پوشه سیستم32 ویندوز و یا توی پوشه خود فایتون قرار بگیره و بعد هم ماژول مربوطه رو به فایلت منتقل کن و بعد کد نمونه توی فرم برای باز بودن یا بسته بودن چرخ ماوس روی رکوردها
موفق باشی

[powerboy2988]

vase moshkele harekate wheel mouse roye recordet mitoni on file DLL ro("MouseHook.dll") kenare file accesset dashte bashi.
vaseey dastresi be codesh az ghesmate form in formo("frmSampleDataTABS") rosh click rast kon az onja boro be ghesmate design form
badehs ke toensti on formo design koni roye button("Stop MouseWheel") dobare click rast mikoni miri to ("build event") code barname onjast

[fatimah]

سلام . من این کدهایی رو که گفتین نوشتم به خدا
ولی نمی دونم چشه که جواب نمی ده . البته من خیلی از این کنترل هایی که تو دستوراتی که شما تو تاپیک " انتخاب موضوع از جدول کمبو " نوشتین رو ندارم .
پس مسلما دچار یه سری مشکلات می شم .
من همه ی سعیمو کردم ولی نشد . اگه امکانش هست ، صفحه ی فرم منو نگاه کنین ببینین میتونین از اونجا کاریش بکنین یا نه .
ممنون

[fatimah]

خواهشن اگه امکانش هست کمک کنین

[powerboy2988]

man barnamato dorost kardam
hala chijori mishe ono to in topic upload konam??

[powerboy2988]

omidvaram kar kone

[fatimah]

باز سلام
خیلی خیلی ممنون . جواب داد ولی یه مشکل کوچولو داره اونم اینکه وقتی که فرم لود میشه کد اولین کتاب خود بخود به 1 تغییر می کنه .

چرا ؟ یا 1 یه عددی مثل 1231254123312
یه همچین چیزی . با اینکه چند دفعه درستش کردم ولی باز وقتی فرم لود میشه همون اتفاق می افته .
چرا ؟

[powerboy2988]

salam
vase inke shoma moghey data vared kardan shomarasho 1 dadi

man alan check kardam moshkel az in nist
shoma bayad ye kalake rashti bezani.
boro to design table list booket datatype shomarey ketabeto az noe number bar dar bad save kon. dobare boro to halate design az noe text bezar
in ravesh ye moshkele kochik dare onam inkeke bayad dobare shomarey ketabato bedi.
rasti barname dorost kar kard?

[fatimah]

سلام
ممنون . جواب داد و درست کار کرد .

[powerboy2988]

khahesh
vazife bood

[fatimah]

بازم سلام
دوست عزیز power boy باز این ایرادی که توی اولین رکورد شماره ی کتاب 123123123123 وارد میشد برگشته . نمی دونم

چرا ؟ اون روشی هم گفتین انجام دادم . همون مراحل رو طی کردم و شماره ی 85 کتاب رو دوباره وارد کردم !!! ولی جواب نداد . چی

کارش کنم ؟
آیا اگه توی فرم لود بنویسم که :
if txtbook_name.text="نام اون کتابی که کدش عوض میشه" then
txtbook_code.text="کد اون کتاب"
endif
آیا جواب میده ؟ ولی باز یه مشکل دیگه هست . اونم اینکه امکانش هست بعد از ورود اطلاعات جدید ، وقتی باز کتابا مرتب شدند اون

کتاب خاص رکورد اول نباشه . پس این کد برای اون کتاب کار نمی کنه !!
لطفا راهنمایی کنین که چی کارش کنم که شماره ی کتاب اولین رکورد من رو 123123123 نگیره . ممنون

[mohammadgij]

هدفتون از این کد چیه؟؟؟؟
خب شما توی فرم لود برنامتون دارید کد کتاب اول رو عوض می کنید






Private Sub Form_Load()
Dim blRet As Boolean
Me.Text20.Value = "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf
Me.Text20.Value = Me.Text20.Value & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf
Me.Text20.Value = Me.Text20.Value & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf
Me.Text20.Value = Me.Text20.Value & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf
Me.Text20.Value = Me.Text20.Value & "1" & vbCrLf & "2" & vbCrLf & "3" & vbCrLf
blRet = MouseWheelOFF(True, False)
Me.lblinfo.Caption = "مشاهده ی مشخصات کتاب"
Me.AllowEdits = False
End Sub

[fatimah]

سلام.
دوست عزیز mohammadgij این کدهایی که دوستان لطف کردن و گذاشتن همون طور که از عنوان تاپیک نشون داده میشه برای جلوگیری از حرکت روی رکورد با استفاده ماوس هست .

[powerboy2988]

fek konam moshkelesh bartaraf shod

[شاپرک]

اگر از همون اول یه جستجوی کوچیک میکردید متوجه میشدید این سوال قبلا پاسخ داده شده اما دریغ ...
http://www.barnamenevis.org/forum/showthread.php?t=9226&highlight=mouse