amirhossein.kashan 22 ارسال شده در 21 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 21 اردیبهشت، ۱۳۹۴ توجه این کتابخانه ها باید فعال باشه inputmenu , core , dialogs ,customdialog 1. ret = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ret = DialogResponse.POSITIVE Then ExitApplication End If End Sub 2. ret = Msgbox2("آیا قصد خروج دارید","","بلی","ارتقا به نسخه طلایی","خیر",Null) If ret = DialogResponse.POSITIVE Then ExitApplication End If If ret = DialogResponse.CANCEL Then 'StartActivity(prda) Msgbox("ارتقا به نسخه طلایی","نسخه طلایی") ExitApplication End If End Sub 3. Dim cd As CustomDialog Dim pnl As Panel Dim bd As Bitmap bd.Initialize(File.DirAssets, "هر عکسی می خواهید جاش بزارید") pnl.Initialize("pnl") pnl.SetBackgroundImage(bd) ret1 = DialogResponse.POSITIVE ret2=DialogResponse.CANCEL cd.AddView(pnl, 0, 0, 93%x, 60%x) ret = cd.Show("آیا قصد خروج دارید؟", "بله", "پیشنهاد ویژه","خیر", Null) If ret=ret1 Then ExitApplication Return True End If If ret=ret2 Then Msgbox("[COLOR=#ff0000]هر اسمسی می خواهید جاش بزارید[/COLOR]","پیشنهاد ویژه") Activity.Finish Return True End If End Sub 4. Dim cd As CustomDialog Dim pnl As Panel Dim bd As Bitmap bd.Initialize(File.DirAssets, "هر عکسی می خواهید جاش بزارید") pnl.Initialize("pnl") pnl.SetBackgroundImage(bd) ret1 = DialogResponse.POSITIVE ret2=DialogResponse.CANCEL cd.AddView(pnl, 0, 0, 93%x, 60%x) ret = cd.Show("آیا قصد خروج دارید؟", "بله", "","خیر", Null) If ret=ret1 Then ExitApplication Return True End If End Sub 5. Dim im As InputMenu Dim L As List L.Initialize L.Add("بله") L.Add("ارسال نظر") L.Add("خیر") Dim result As Int result = im.Show(L,"آیا قصد خروج دارید؟") Select result Case 1 Msgbox("نظرات خو را برای ما بفرستید","ارسال نظر") ExitApplication Case 0 ExitApplication End Select End Sub 6. Dim im As InputMenu Dim L As List L.Initialize L.Add("بله") L.Add("خیر") Dim result As Int result = im.Show(L,"آیا قصد خروج دارید؟") Select result Case 2 ExitApplication End Select End Sub اگه مشکلی بود مطرح کنیدموفق باشید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 22 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 اردیبهشت، ۱۳۹۴ البته کتابخانه Dialogs رو یادتون رفت نام ببرید که مربوط به CustomDialog میشه ! لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amirhossein.kashan 22 ارسال شده در 22 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 22 اردیبهشت، ۱۳۹۴ البته کتابخانه Dialogs رو یادتون رفت نام ببرید که مربوط به CustomDialog میشه ! ممنون که اطلاع دادید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
a.ahmadi 1 ارسال شده در 22 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 اردیبهشت، ۱۳۹۴ عالی بود ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 29 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 خرداد، ۱۳۹۴ custom dialog سلام این کتاب خونه رو از کجا بگیرم داخل اینتر نت نیست لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امین شاهدی 5,771 ارسال شده در 29 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 خرداد، ۱۳۹۴ custom dialog سلام این کتاب خونه رو از کجا بگیرم داخل اینتر نت نیست همچین کتابخونه ای موجود نیست ، شما کتابخونه dialog رو تیک بزن درسته لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 29 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 خرداد، ۱۳۹۴ پس چرا موقعی که من این متن رو کپی میکنم برای خروج از b4a همش قرمز میشه یعنی اشتباهییست لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
پژمان نیکروان 6,055 ارسال شده در 29 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 خرداد، ۱۳۹۴ پس چرا موقعی که من این متن رو کپی میکنم برای خروج از b4a همش قرمز میشه یعنی اشتباهییست متاسفانه کد ها بهم ریخته بود و یه سری کد های BBCode اومده لای کدهای بیسیک. پست اول ویرایش شد درست شد. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ ret = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ret = DialogResponse.POSITIVE Then ExitApplication End IfEnd Sub بازم کلمه ret رو ارور میزنه (رنگش داخل متن قرمزه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
coco 1,746 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ ret = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ret = DialogResponse.POSITIVE Then ExitApplication End IfEnd Sub بازم کلمه ret رو ارور میزنه (رنگش داخل متن قرمزه شما ابتدا باید ret رو به عنوان یک متغیر از نوع int ( یا intent ، دقیق یادم نیست ) تعریف کنین. به این صورت: Dim ret as int یا Dim ret is intet لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mohammadhasan 35 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ آیا شما ret رو به برنامه معرفی کرده اید؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ ret چی هست چجوری معرفی اش کنیم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ به نظرم من متن ها رو جابجایی میزارم دقیقا بایدDim ret as int و ret = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ret = DialogResponse.POSITIVE Then ExitApplication End IfEnd Sub کجا قرار بگیرن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ یا باید توی دکمه ی خروج قرار بگیرن یا رویداد KeyPress که زمانی که کاربر دکمه Back رو میزنه این رویداد اتفاق بیفته : Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Dim result As Int result=Msgbox2("از برنامه خارج میشی","","خیر","","بله",Null) If result=DialogResponse.POSITIVE Then Return True Else If result=DialogResponse.NEGATIVE Then ExitApplication End If End If End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ شرمنده خسته تون کردم من میخوام با دکمه گوشی موقع خروج این پیام رو بده اگه میشه به طور کامل توضیح بده اخه آماتورماین هم لینک برنامه امhttp://s6.uplod.ir/i/00624/7mw7eixujef3.pnghttp://s6.uplod.ir/i/00624/9x7u4hpir9m2.png لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
پژمان نیکروان 6,055 ارسال شده در 30 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 خرداد، ۱۳۹۴ نمونه سورس رو دانلود کنید. یک خروج موقعی هست که کلیک برگشت گوشی رو میزنید و سوال میپرسه آیا خارج میشید؟ و یک خروج ، یه باتون گذاشتم که روی اون میتونید کلیک کنید و سوال میپرسه خارج میشید یانه. دانلود لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 31 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 31 خرداد، ۱۳۹۴ ممنونم خیلی مرررررررررررررررردین حل شد لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
rahmanrezaei 5 ارسال شده در 31 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 31 خرداد، ۱۳۹۴ داداش هام من یه برنامه ساختم تقریبا اخرشه ولی یه مشکلی که هست اینکه برنامه ام خیلی طرحش ساده اس یعنی به این صورت که برنامه بعد از اسپلیش /میره به لیست مطالب /بعد موارد متن میشه من میخوام این جوری باشه بعد از اسپلش/ بره داخل منوی اصلی /بعد بره به لیست مطالب / بعد متن این هم لینک های برنامه ام http://s6.uplod.ir/i...mw7eixujef3.pnghttp://s6.uplod.ir/i...x7u4hpir9m2.png لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.