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

[miniator]

سلام دوستان !

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

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

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

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

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

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

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

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

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

[miniator]

الوعده وفا

خوش باشيد .

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

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

با زم منون

[javadt]

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

[REZADG]

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

[aryasoft2872]

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

[javadt]

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

[parselearn]

https://barnamenevis.org/showpo...&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 محیط توسعه رو تغییر بدید(حالت پیش فرض )
اگه نشد باید در کنترل پنل زبان فارسی رو نصب کنید