+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Mobile (http://parsicoders.com/forumdisplay.php?fid=56)
+--- انجمن: Basic4Android (http://parsicoders.com/forumdisplay.php?fid=112)
+--- موضوع: سوال : ساخت مسیچ باکس سفارشی (/showthread.php?tid=3231)
سوال : ساخت مسیچ باکس سفارشی - milad.coder - 06-18-2013
با سلام خدمت دوستان گرامی .
من میخوام یه پیقامی رو به کاربر نشان بدم که توی مسج باکس میخوام چندتا RadioButton بزارم که کاربر انتخاب کنه و Ok کنه .
یه کدی هم نوشتم اما اررور میده . میشه بگید ایراد کار من کجاست ؟
کد:
Dim putlist As List
Dim rbtn_alarm As RadioButton
putlist.Initialize
rbtn_alarm.Initialize("rbtn_ring")
rbtn_alarm.Text = "Alarm"
rbtn_alarm.SetLayout(10%x,10%y,50,30)
putlist.Add(rbtn_alarm)
Dim result As Int
result = InputList(putlist,"test",1)
If result = 1 Then
Msgbox("Alarm","Ok")
End IfRE: سوال : ساخت مسیچ باکس سفارشی - Amin_Mansouri - 06-18-2013
پروزه بزار حال طراحی ندار تا بتستم
