کمک در ساختن جعبه پيغام به اضافه چند تا سؤال تو وی بی

[mojtabamalaekeh]

User Interface Default جواب نداد بلکه بایستی Procedure ID رو برابر (Default) قرار بدم.
چون نمی شد Procedure ID همزمان هم Caption باشه هم (Default) من هم اومدم Caption رو به خاصیت Caption دادم و Default رو به یک خاصیت مخفی بنام DefCaption دادم.
کد خواندن و نوشتن DefCaption دقیقا عین کد خواندن و نوشتن Caption هستش.
البته راهنمایی اصلی رو شما فرمودید چون من هیچوقت به Procedure ID توجه نکرده و از پنجره Procdure Attribute فقط با Description کار کرده بودم.

کد:

'Procedure ID = Caption

Public Property Get Caption() As String
    Caption = m_Caption
End Property

Public Property Let Caption(ByVal New_Caption As String)
    m_Caption = New_Caption
    PropertyChanged "Caption"
    ReCheck
    RaiseEvent Change
End Property

همونطور که خواهید دید کد زیر یک کپی از کدی است که برای خاصیت Caption نوشته شده:

کد:

'Procedure ID = (Default)

Public Property Get DefCaption() As String
    DefCaption = m_Caption
End Property

Public Property Let DefCaption(ByVal New_Caption As String)
    m_Caption = New_Caption
    PropertyChanged "Caption"
    ReCheck
    RaiseEvent Change
End Property

[mojtabamalaekeh]

تقریبا تکمیله. فقط باید برای هر آیکنی یه صدای مناسب از نوع Wave انتخاب کرد چون صداهای ویندوز به این آیکن ها نمیان.
از همه کسانی که در ساخت این پروژه کمک کردند سپاسگزارم. هم اکنون نیازمند کمک های Wave شما هستم.

[Darg]

دستت درد نکنه
راستی برای اون مشکل Manifest هم یک سری به اینجا بزن:
http://forum.iranled.com/showthread.php?tid=6053

[EleRam]

تقریبا تکمیله. فقط باید برای هر آیکنی یه صدای مناسب از نوع Wave انتخاب کرد چون صداهای ویندوز به این آیکن ها نمیان.
از همه کسانی که در ساخت این پروژه کمک کردند سپاسگزارم. هم اکنون نیازمند کمک های Wave شما هستم.

ولی به نظر من همینا خوبن ها فقط Cirtical ش خیلی داغونه (گرووووم!)
فکر کنم یه چندتایی هم از این صدا ها داشته باشم ولی دیگه مثل آیکونا در نمیاد...

بازم می گردم ببینم چی گیرم میاد

[mojtabamalaekeh]

سلام
با سپاس، من کد برنامه رو به این شکل کردم و مشکل حل شد.

کد:

داخل ماژول
Sub Main()
    m_hMod = LoadLibrary("shell32.dll")
    InitCommonControls
    Form1.Show
End Sub

داخل فرم اصلی
Private Sub Form_Unload(Cancel As Integer)
    FreeLibrary m_hMod
    End
End Sub

اما فرمان FreeLibrary m_hMod برای چیه؟
اگه اجرا بشه یا نشه چه فرقی می کنه؟
من TaskManager رو نگاه کردم و دیدم که بدون استفاده از فرمان بالا، باز هم حافظه اشغال شده توسط برنامه برمیگرده.

[Darg]

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

[mojtabamalaekeh]

من یه نکته ای در باب UserControl نویسی متوجه شدم گفتم مطرح کنم:
User Interface Default برای اینه که وقتی روی شیء کلیک میکنی اون خاصیت توی پنجره Properties انتخاب بشه.
مثال: وقتی روی TextBox کلیک میکنی خاصیت Text انتخاب میشه
روی Label خاصیت Caption
روی PictureBox خاصیت Picture و الی آخر.
این کار فقط برای زمان طراحیه نه اجرا