نحوه قرار دادن یک لینک در msgbox

[viki0028 19]

درود و سلام به همه اساتید

 

از دوستان کسی هست توضیح بدهند که چطوری میشه علاوه بر متن بشه یک لینک هم در msgbox قرار داد؟

حالا این لینک میتونه با http شروع بشه یا اینکه لینک کانال تلگرام یا اینستاگرام باشه

 

 

[Negan 1,300]

خب اول کتابخونه phone رو تیک بزن

توی ساب گلوبال  اینارو تعریف کن

من دکمه رو برای این گذاشتم که کاربر روش کلیک کنه مسج باکس نشون داده بشه

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim p As PhoneIntents
	Private button1 As Button
End Sub

و بعد توی ساب کلیک باتن این رو بزار

Sub button1_cick
	
		Dim a As Int
		a = Msgbox2("آیا به کانال ما میاید؟" , "کانال" , "بله" , "خیر", "" , Null)
	
			If (a = DialogResponse.POSITIVE ) Then
				
			StartActivity(p.OpenBrowser("لینک کانال یا پیج اینستا"))	
					
			Else
					Return True
			End If
		
	
	
End Sub

لینک و متن خودتو هم جایگذین کن موفق باشی

[viki0028 19]

خب اول کتابخونه phone رو تیک بزن

توی ساب گلوبال  اینارو تعریف کن

من دکمه رو برای این گذاشتم که کاربر روش کلیک کنه مسج باکس نشون داده بشه

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim p As PhoneIntents
	Private button1 As Button
End Sub

و بعد توی ساب کلیک باتن این رو بزار

Sub button1_cick
	
		Dim a As Int
		a = Msgbox2("آیا به کانال ما میاید؟" , "کانال" , "بله" , "خیر", "" , Null)
	
			If (a = DialogResponse.POSITIVE ) Then
				
			StartActivity(p.OpenBrowser("لینک کانال یا پیج اینستا"))	
					
			Else
					Return True
			End If
		
	
	
End Sub

لینک و متن خودتو هم جایگذین کن موفق باشی

 

 

بسیار عالی.               

[amirhossein.m 100]

اینی که شما گفتید msgbox2 هست!

 

و بنظرم پرانتز های این خط اضافیه نزارید بهتره

If (a = DialogResponse.POSITIVE ) Then

[MahdiHD 1,748]

سلام ،

دوست عزیز چرا تاپیک پرس و پاسخ رو در قسمت سورس کد ها زدید؟ لطفا رعایت کنید.ممنون

تاپیک قفل و به حالت پاسخ داده شده درآمد.