سورس کلید خروج و نظر دادن در "کافه بازار"

[ah313mad 34]

سلام به همه دوستان خسته نباشید

من می خواستم وقتی از نرم افزار خارج میشن یه گزینه - بله - خیر و نظر دادن - باشه .

یعنی کد زیر

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]

سلام به همه دوستان خسته نباشید

من می خواستم وقتی از نرم افزار خارج میشن یه گزینه - بله - خیر و نظر دادن - باشه .

یعنی کد زیر

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]

این هست

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]

این هست

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]

بفرمایید

uri="http://cafebazaar.ir/app/ir.Dastankdh/?l=fa"

فقط جا کلمه ی http://cafebazaar.ir/app/ir.Dastankdh/?l=fa کلمه ی خودتون را بنویسید

[مهدی ایزدی 9,203]

http://answercenter.ir/thread1932.html