مسيج باكس سفارشي

[miniator]

سلام دوستان !

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

فکر کنید شما یک برنامه با استایل مخصوص خودتون درست می کنید و کلی واسه گرافیک برنامه مایه گذاشتید . حالا اگه بخواین یه پیغام نشون بدین چی ؟؟ مطمناً جعبه پیغام وی بی خیلی ضایعست . پس به فکر درست کردن یه مسیج باکس سفارشی می افتید .

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


http://www.barnamenevis.org/forum/attachment.php?attachmentid=43588&stc=1&d=1265241553


البته این نمونه كه گذاشتم خیلی خیلی خیلی خیلی خیلی خیلی خیلی سادست ! شما میتونید از همین روش بهترین ها رو داشته باشید .

مثلا این نمونه که من برای یه برنامه ی دیگه استفاده کردم



http://www.barnamenevis.org/forum/attachment.php?attachmentid=43589&stc=1&d=1265242185



خب !‌ من فایل اجرایی رو میزام اینجا اگه خوشتون اومد بگید تا سورسشو هم بزارم


موفق و پیروز باشید

[<برنامه نویس>]

سلام دستت درد نكنه خيلي قشنه فقط ................................ سورس رو بدي خيلي قسنگ تر ميشه

[miniator]

الوعده وفا

خوش باشيد .

[<برنامه نویس>]

مرسي .دست شما درد نكنه . اگه بازم از اين جيزهاي قشنگ داشتي اين جا بزار

با زم منون

[javadt]

تشکر دوست عزیز برنامه جالبی بود
اما یک سوال:
چطوری میشه خود مسیج باکس رو عوض کرد راهی یا مثالی دارید؟
با تشکد

[REZADG]

جواد جون منظورت از خود مسیج باکس چیه
آقا/خانم منیاتور خیلی ممنون خیلی خلاقانه یود

[aryasoft2872]

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

[javadt]

منظورم مال خود vb هست

[parselearn]

http://barnamenevis.org/forum/showpost.php?p=903375&postcount=368

[miniator]

سلام مجدد به همه ! از همتون ممنون !

اين هم يه inputbox سفارشي براي دوستان ! تقريبا دستوراتش شبيه قبليه !

موفق و پيروز باشيد

[javadt]

سلام
یک سول:
این خط داخل ماژول کارش چی؟

Private Declare Sub Sleep _
Lib "kernel32" (ByVal lngMilliseconds As Long)

با تشکر

[miniator]

دقیقاً جای مهم این قضیه همین جاست :

این یه تابع است که کارش ایجاد وقفه بین برنامه هست ! یعنی این تابع دستورات رو به مدت تعین شده متوقف میشه .


یه مثال می زنم :

اگر شما یه حلقه درست کنید به این شکل :




for i = 0 to 9999999999999999999
next i

مطمئناً با اجرای این کد راهی جز بستن برنامه ندارید چون سیستم شما فقط مشغول اجرای حلقه میشه !





for i = 0 to 9999999999999999999
Call SleepLong(0.1)
next i

حالا با اجرای این کد سیستم شما به برنامه یه وقفه می ده تا بقیه دستورات ، اجرا بشن !

با استفاده از این تابع خیلی راحتر تر میتونید از حلقه ها استفاده کنید .

موفق و پیروز باشید .

[hrj1981]

با سلام
فراخوانی این مسیج باکس در فرمهایی که بصورت چیلد در یک فرم مادر قرار دارند دچار مشکل می شود ؟ آیا راه حلی دارد؟

[ali_1234]

سلام دوستان من یه مشکل مثل دوست عزیزمون hrj1981 دارم اگه میشه راهنمایی کنید.

[rojg@r]

سلام .
دستتون درد نکنه اما!
تو قسمت کد نویسی، فونتهای فارسی رو همه ش این جوری نشون میده.

Private Sub Form_Load()
MsgBox "Êåíå ßääÏå : ãíäíÇÊæÑ : ÈÑäÇãå äæíÓ"
End Sub
به نظر شما من چکار باید بکنم که این مشکل حل بشه؟
با تشکر...

[Rejnev]

سلام .
دستتون درد نکنه اما!
تو قسمت کد نویسی، فونتهای فارسی رو همه ش این جوری نشون میده.
به نظر شما من چکار باید بکنم که این مشکل حل بشه؟
با تشکر...


فونت Editor محیط توسعه رو تغییر بدید(حالت پیش فرض )
اگه نشد باید در کنترل پنل زبان فارسی رو نصب کنید