ah313mad 34 ارسال شده در 26 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ سلام به همه دوستان خسته نباشید من می خواستم وقتی از نرم افزار خارج میشن یه گزینه - بله - خیر و نظر دادن - باشه . یعنی کد زیر Sub btnExit_Click Dim ext As Int ext = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ext = DialogResponse.POSITIVE Then ExitApplication End If Return False End Sub یعنی یک گزینه دیکه بهش اضافه بشه"نظر دادن" و با فشار اون پاپ آپ نظر دادن " کافه بازار" باز بشه . ممنون میشم راهنماییم کنید و کد بالا رو برام ویرایش کنید . لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amirhossein.kashan 22 ارسال شده در 26 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ سلام به همه دوستان خسته نباشیدمن می خواستم وقتی از نرم افزار خارج میشن یه گزینه - بله - خیر و نظر دادن - باشه . یعنی کد زیر Sub btnExit_Click Dim ext As Int ext = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null) If ext = DialogResponse.POSITIVE Then ExitApplication End If Return False End Sub یعنی یک گزینه دیکه بهش اضافه بشه"نظر دادن" و با فشار اون پاپ آپ نظر دادن " کافه بازار" باز بشه . ممنون میشم راهنماییم کنید و کد بالا رو برام ویرایش کنید . بفرما [color=#333333]Sub Button5_Click[/color] 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 [color=#333333]End Sub[/color] لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amirhossein.kashan 22 ارسال شده در 26 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ این هست Sub Button5_Click 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 26 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ این هست Sub Button5_Click 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 ممنون . کد زیر رو باید کجاش بزاریم؟ i.Initialize(i.ACTION_EDIT,"bazaar://details?id=com.mobiliha.badesaba لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amirhossein.kashan 22 ارسال شده در 26 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ بفرمایید uri="http://cafebazaar.ir/app/ir.Dastankdh/?l=fa" فقط جا کلمه ی http://cafebazaar.ir/app/ir.Dastankdh/?l=fa کلمه ی خودتون را بنویسید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 26 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 26 اردیبهشت، ۱۳۹۴ http://answercenter.ir/thread1932.html لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
ah313mad 34
سلام به همه دوستان خسته نباشید
من می خواستم وقتی از نرم افزار خارج میشن یه گزینه - بله - خیر و نظر دادن - باشه .
یعنی کد زیر
Sub btnExit_Click
Dim ext As Int
ext = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null)
If ext = DialogResponse.POSITIVE Then
ExitApplication
End If
Return False
End Sub
یعنی یک گزینه دیکه بهش اضافه بشه"نظر دادن" و با فشار اون پاپ آپ نظر دادن " کافه بازار" باز بشه .
ممنون میشم راهنماییم کنید و کد بالا رو برام ویرایش کنید .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.