06-18-2013، 01:01 PM
با سلام خدمت دوستان گرامی .
من میخوام یه پیقامی رو به کاربر نشان بدم که توی مسج باکس میخوام چندتا RadioButton بزارم که کاربر انتخاب کنه و Ok کنه .
یه کدی هم نوشتم اما اررور میده . میشه بگید ایراد کار من کجاست ؟
من میخوام یه پیقامی رو به کاربر نشان بدم که توی مسج باکس میخوام چندتا 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 If