سلام دوستان. من ویجتی دارم شامل سه تا iv که هرکدوم مثل دکمه میخوام کار کنن ، روشون کلیک شد ، کاری انجام بشه.
ولی هرکاری میکنم رویداد کلیک iv ها کار نمیکنن !!!!!
iv ها داخل activity تعریف شدن ، حتی موقع create لود و فینیش اکتیویتی هم زدم نشد !
اینم کد سرویس ماژول ویجت :
سپاسگزارم.
#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim widget As RemoteViews
Dim k As Int=0
End Sub
Sub Service_Create
widget = ConfigureHomeWidget("pnl","widget",0,"Nice Widget")
End Sub
Sub Service_Start (StartingIntent As Intent)
If widget.HandleWidgetEvents(StartingIntent) Then Return
End Sub
Sub widget_requestupdate
End Sub
Sub widget_Disabled
StopService("")
End Sub
Sub Service_Destroy
End Sub
Sub iv_sound_Click
ToastMessageShow("sound",False)
k = k+1
Dim p As Phone
If k=1 Then
p.SetRingerMode(p.RINGER_VIBRATE)
End If
If k=2 Then
p.SetRingerMode(p.RINGER_SILENT)
End If
If k=3 Then
p.SetRingerMode(p.RINGER_NORMAL)
End If
If k>3 Then
k=0
End If
End Sub
سوال
salar_blackdroid 408
سلام دوستان. من ویجتی دارم شامل سه تا iv که هرکدوم مثل دکمه میخوام کار کنن ، روشون کلیک شد ، کاری انجام بشه.
ولی هرکاری میکنم رویداد کلیک iv ها کار نمیکنن !!!!!
iv ها داخل activity تعریف شدن ، حتی موقع create لود و فینیش اکتیویتی هم زدم نشد !
اینم کد سرویس ماژول ویجت :
سپاسگزارم.
#Region Service Attributes #StartAtBoot: False #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim widget As RemoteViews Dim k As Int=0 End Sub Sub Service_Create widget = ConfigureHomeWidget("pnl","widget",0,"Nice Widget") End Sub Sub Service_Start (StartingIntent As Intent) If widget.HandleWidgetEvents(StartingIntent) Then Return End Sub Sub widget_requestupdate End Sub Sub widget_Disabled StopService("") End Sub Sub Service_Destroy End Sub Sub iv_sound_Click ToastMessageShow("sound",False) k = k+1 Dim p As Phone If k=1 Then p.SetRingerMode(p.RINGER_VIBRATE) End If If k=2 Then p.SetRingerMode(p.RINGER_SILENT) End If If k=3 Then p.SetRingerMode(p.RINGER_NORMAL) End If If k>3 Then k=0 End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.