ایجاد متن

[reza644 435]

سلام این کد مربوط به نمایش میزان شارژ باتریه که تو مسیج باکس نشون میده از یه سایت خارجی پیدا کردم

 

حالا چیکار کنم که از طریق لیبل یا چیز چیزی که میشه

 

توی گوشه ای از برنامم نشون بدم

Sub Process_Globals
Dim EvenementPhone As PhoneEvents 
End Sub
.
.
Sub Activity_Create(FirstTime As Boolean)
EvenementPhone.Initialize("EvenementPhone")
End Sub
.
.
Sub EvenementPhone_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
Msgbox("Battery level " & Level & " %", "")
End Sub

[پژمان نیکروان 6,055]

درود.

یه لیبل به دیزاینر ادد کنید و اونو به برنامه معرفی کنید :

Sub Process_Globals
Dim sh As PhoneEvents 
End Sub
.
.
Sub Activity_Create(FirstTime As Boolean)
sh.Initialize("sh")
End Sub
.
.
Sub sh_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
label1.text=Level&" %"
End Sub

واسه نشون دادن تو لیبل.