کمک در middle Mouse Button + SysTRAY در VB6

[hamed_Arfaee]

اینم کدهاش

[dcamera]

سلام

ضمن تشکر دوباره از آقای ارفعی میخواستم تقاضا کنم که آیا کسی میتونه MouseWheel 2 رو به یه usercontrol تبدیل بکنه .یعنی اون class و module وجود نداشته باشه.


متشکرم

[dcamera]

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

راستش تا یه جاهایی پیش رفتم اما یه addressof داره که میاد تو usercontrol گیر میده؟؟

[Payman62]

سلام.
بفرما.

[dcamera]

خیلی خیلی متشکرم

ولی اینجوریشو خودم بلد بودم الان تو پروژه یوزر کنترل، یه ماژول و یه کلاس هم وجود داره . بازم تقریبا مثل همون شده .منظورم این بود که فقط همون یورز کنترل وجود داشته باشه؟ یعنی سورسهای کلاس و ماژول رو بریزیم تو یوزر کنترل.

حالا چرا گیر دارم به خاطر اینکه راستش تو پروژه هایی که تعداد فایل های اد شده زیاد باشه خوب زیاد خوش آیند نیست.(حداقل برای من) و اگه یک فایل باشه ( والبته یورز کنترل)برنامه منسجمتر بنظر میرسه.

اون کدها رو میتونین ترکیب بکنین. مال من که نشد.همطوری که گفتم وقتی addressof بیاد تو یوزر کنترل خطا میده
بازم ممنون از لطفتون

کسی نظری نداره؟

[Payman62]

حالا چرا گیر دارم به خاطر اینکه راستش تو پروژه هایی که تعداد فایل های اد شده زیاد باشه خوب زیاد خوش آیند نیست.(حداقل برای من) و اگه یک فایل باشه ( والبته یورز کنترل)برنامه منسجمتر بنظر میرسه.

سلام.
کی این حرفو زده؟ کی گفته یه فایل موجود باشه پروژه منسجم تره.
کلاس و ماژول در جای خودشون لازمن.
مثلا این جا متغیر withevent از کلاس تعریف شده. شما بعد از حذف کلاس چطور میخوای متغیر withevent رو ایجاد کنی؟

[hamed_Arfaee]

حالا چرا گیر دارم به خاطر اینکه راستش تو پروژه هایی که تعداد فایل های اد شده زیاد باشه خوب زیاد خوش آیند نیست.(حداقل برای من) و اگه یک فایل باشه ( والبته یورز کنترل)برنامه منسجمتر بنظر میرسه.

بنظر من بهتره شما اول یه مروری بر اصول کد نویسی داشته باشین خیلی بهتون کمک میکنه .

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

[dcamera]

حالا چرا گیر دارم به خاطر اینکه راستش تو پروژه هایی که تعداد فایل های اد شده زیاد باشه خوب زیاد خوش آیند نیست.(حداقل برای من) و اگه یک فایل باشه ( والبته یورز کنترل)برنامه منسجمتر بنظر میرسه.

سلام.
کی این حرفو زده؟ کی گفته یه فایل موجود باشه پروژه منسجم تره.
کلاس و ماژول در جای خودشون لازمن.
مثلا این جا متغیر withevent از کلاس تعریف شده. شما بعد از حذف کلاس چطور میخوای متغیر withevent رو ایجاد کنی؟

حالا چرا گیر دارم به خاطر اینکه راستش تو پروژه هایی که تعداد فایل های اد شده زیاد باشه خوب زیاد خوش آیند نیست.(حداقل برای من) و اگه یک فایل باشه ( والبته یورز کنترل)برنامه منسجمتر بنظر میرسه.

بنظر من بهتره شما اول یه مروری بر اصول کد نویسی داشته باشین خیلی بهتون کمک میکنه .

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

سلام
جناب Payman62 عزیز از اینکه گفتم منسجم تره منظورم روی ظاهر پروژه بوده وقتی که ما داریم باهاش کار میکنیم اگه یه فایل باشه خوب حداقل ما خودمون راحتریم ؟؟ نیستیم !!!
میخواستم ببینم آیا راهی هست که تو یه فایل باشه( حالا حتما کلاس و ماژول رو حذف نکنیم منظورم تو یه فایل بود) تا ما ضمن اینکه ازش استفاده میکنیم لازم به اد کردن فایل های مختلف نباشه که فرمودین کلاس و ماژول در جای خودشون حتـــــــــــــــــــمـــــــــــــــــــــا لازمن.

در جواب آقای hamed_Arfaee بایستی عرض کنم که ما که به پای اساتید نمیرسیم اما این اصولی که گفتین رو خوب میدونم و سعی میکنم بهش عمل کنم من که نمیخواستم همه کدها رو بریزم تو هم که!!!
میخواستم این کدا رو بریزمش تو یه فایل USERCONTROL.CTL OR MODULE.BAS OR CLASSMODULE.CLS به قول شما اینجوری که گشتن خیلی آسون تر بود؟!!!

متشکرم

[hamed_Arfaee]

میخواستم این کدا رو بریزمش تو یه فایل USERCONTROL.CTL OR MODULE.BAS OR CLASSMODULE.CLS به قول شما اینجوری که گشتن خیلی آسون تر بود؟!!!

شما متوجه منظور من نشدین
وقتی پروژتون به نسبت بزرگتر باشه خودتون احساس میکنین که هر چقدر تعداد فایلهای تشکیل دهنده (کلاسها و ماژول ها) بیشتر باشه برنامه خوانا تر هست و سریعتر میشه یه بخش رو تغییر -حذف و یا بروز کرد .

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

کد:

Private Const PM_REMOVE = &H1
Private Type POINTAPI
    x As Long
    y As Long
    End Type
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
    End Type
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
    Private bCancel As Boolean
    Private Const WM_MOUSEWHEEL = 522
Private Sub ProcessMessages()
    Dim Message As Msg
    Do While Not bCancel
        WaitMessage 'Wait For message and...
        If PeekMessage(Message, Me.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then '...when the mousewheel is used...
            If Message.wParam < 0 Then '...scroll up...
                Me.Top = Me.Top + 240
            Else '... or scroll down
                Me.Top = Me.Top - 240
            End If
        End If
        DoEvents
        Loop
    End Sub
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.Print "Please use now mouse wheel To move this form."
    Me.Show
    ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
    bCancel = True
End Sub

[Payman62]

سلام
جناب Payman62 عزیز از اینکه گفتم منسجم تره منظورم روی ظاهر پروژه بوده وقتی که ما داریم باهاش کار میکنیم اگه یه فایل باشه خوب حداقل ما خودمون راحتریم ؟؟ نیستیم !!!

سلام.
نه. من یه پروژه داشتم. مقدار خیلی زیادی کد تو یه ماژول بود. بعد اومدم همه رو دسته بندی کردم و حدود 10 12 تا ماژول به پروژه اضافه شد. ولی حالا هر کدی میخوام سریع پیدا میکنم.

[dcamera]

و در مورد سوالتون باید بگم شما حداقل میتونین از یه ماژول و یه فرم استفاده کنین و یا یه ماژول و یه یوزر کنترل . خلاصه تر از این دیگه نمیشه .

سلام آقا حامد اصلا منظورم همینه ؟ میشه بگین چطوری ؟ آخه همون طوری که آقا پیمان(و خود من) گفته بودن چند تا کد میاد تو جای دیگه (مثل usercontrol) گیر میده.
راستی نمیدونم کجای حرفتونو متوجه نشدم.راستش من برای هر کاری از یه ماژول/یوزر کنترل/کلاس استفاده میکنم.
یعنی هر کاری که کدهاش بزرگ و مربوط به هم باشه تو به فایل هستش.

نه. من یه پروژه داشتم. مقدار خیلی زیادی کد تو یه ماژول بود. بعد اومدم همه رو دسته بندی کردم و حدود 10 12 تا ماژول به پروژه اضافه شد. ولی حالا هر کدی میخوام سریع پیدا میکنم.

آقا پیمان منم همین کارو میکنم و فکر کنم همه ...
خوب تو همین پروژه اگه مثلا یه فایل کلاس فقط بود ما (حالا به جای 2 تا فایل ) پیدا کردن و دسته بندی ها راحت میشه دیگه.

اون حالتی که شما میگین مربوط به زمانی میشه که ما مثلا بخوایم کد های غیر مربوط رو تو یه فایل نگه داری بکنیم.
کلا منظورم اینه که کدهای مربوط به هم رو یه جا نگه داری میکنم و البته با note هایی نشانه گذاری میکنم که بعدا راحت پیدا میشه اصلا محاله که گم بشه. این چند ساله حتی یه کد هم از زیر دستم گم نشده!!

حتی اگه در حالتی که تو پروژتون بود note گذاری میکردین فکر نکنم مشکلی پیش میومد.

بگذریم چقدر حرف زدم.
متشکرم