طرز كار اين كنترل

[y.saied]

ميشه طرز كار اين dll رو بفرماييد

[xxxxx_xxxxx]

جالب بود تا حالا نديده بودمش.
شما وقتي dll ي رو به برنامه مي افزاييد براي استفاده از آن مي بايست يك نوع متغير از نوع همان كلاس تعريف كنيد.
ابتدا آن را در بخش Refrences اضافه كنيد.
تعريف متغير به اين صورت مي شود:


Dim a As New clsMessage
حال از متدهاي a استفاده مي كنيم.
دو متد با نام هاي AddButton و MessageBoxEx دارد.
از هركدام كه بخواهيد استفاده كنيد tooltip هاي مربوط بهش باز ميشه و كار رو راحت تر ميكنه.
اين تصوير مربوط به tooltip متد MessageBoxEx هست. چه قابليت هاي جالبي:
http://www.freeimagehosting.net/uploads/81a86f1aee.jpg (http://www.freeimagehosting.net/)

اين هم يه نمونه Message با استفاده از همين dll
البته اگر با Manifest و اينجور چيزها به برنامه Style XP رو بديم بهتر ميشه.

http://www.freeimagehosting.net/uploads/7e9c9fb171.jpg (http://www.freeimagehosting.net/)


موفق باشيد/

[y.saied]

ممنون جناب xxxxx_xxxxx :
ميشه بفرمائيد چرا اين كدي كه من نوشتم خطا ميده

Dim a As New clsMessage
a.AddButton 0, "&OK", True
a.AddButton 1, "&Cancel", , True
(a.MessageBoxEx ("Hello Everybody", , vbBlue, , 12, True, True, Msg_Left, True

در ضمن چطوري بفهمم كه كاربر كدام گزينه را انتخاب كرده

[xxxxx_xxxxx]

به اين صورت اصلاح كنيد:


a.MessageBoxEx "Hello Everybody", , , vbBlue, , , , 12, , True, True, , , Msg_Left, , True


دقت كنيد به ازاي هر پارامتري كه نمي خواهيد مقداردهي شود مي بايست يك , بگذاريد.
مثلاً اگر شما فقط متن پيغام را مي خواهيد انتخاب كنيد(اولين پارامتر) و اين كه پيغام در مركز صفحه نمايش داده شود (آخرين پارامتر) مي بايست به ازاي ساير پارامترها , بگذاريد. يعني 15 تا.


براي سوال دومتون هم شما مي بايست خروجي دستور را چك كنيد.
به اين صورت:

b = a.MessageBoxEx("Hello Everybody", , , vbBlue, , , , 12, , True, True, , , Msg_Left, , True)
If b = 1 Then End


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

موفق باشيد/