من تعداد زیادی باتن ساختم و با استفاده از تگ و سندر رویداد کلیک رو تعریف کردم حالا روی باتن که کلیک می کنم ارور invalid double"" میده
این ارور چی هست و چجوری رفعش کنم ممنون از همه
این هم کد های قسمت activity create و button click
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("download")
For i=1 To 33
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,x1,y1,100%x,100%y)
x1 = x1 + 24%x
If x1>=97%x Then
x1 = 1%x
y1 = y1 + 22%y
End If
p.LoadLayout("Layout1")
ScrollView1.Panel.Height=y1
Next
DownloadManager1.RegisterReceiver("DownloadManager1")
End Sub
Sub Button1_Click
Dim btn As Button = Sender
Dim tag As Int = btn.tag
Select tag
Case 0
Dim DownloadManagerRequest1 As DownloadManagerRequest
If File.IsDirectory(File.DirRootExternal,"Tooshe hamrah") = False Then
File.MakeDir(File.DirRootExternal,"Tooshe hamrah")
End If
If File.Exists(File.DirRootExternal & "/Tooshe hamrah","1.mp3") = False Then
DownloadManagerRequest1.Initialize("http://s6.picofile.com/d/dc328b05-649a-4a1a-9549-bd3164a84150/Doa_Komeil.mp3")
DownloadManagerRequest1.Description="Downloading..."
DownloadManagerRequest1.DestinationUri="file://"&File.Combine(File.DirRootExternal & "/Tooshe hamrah", "1.mp3")
DownloadManagerRequest1.Title="دعا کمیل"
DownloadManagerRequest1.VisibleInDownloadsUi=True
DownloadId=DownloadManager1.Enqueue(DownloadManagerRequest1)
Else
ToastMessageShow("صوت مورد نظر دانلود شده است",False)
سوال
amir mahdizadeh 109
سلام دوستان
من تعداد زیادی باتن ساختم و با استفاده از تگ و سندر رویداد کلیک رو تعریف کردم حالا روی باتن که کلیک می کنم ارور invalid double"" میده
این ارور چی هست و چجوری رفعش کنم ممنون از همه
این هم کد های قسمت activity create و button click
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("download") For i=1 To 33 Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,x1,y1,100%x,100%y) x1 = x1 + 24%x If x1>=97%x Then x1 = 1%x y1 = y1 + 22%y End If p.LoadLayout("Layout1") ScrollView1.Panel.Height=y1 Next DownloadManager1.RegisterReceiver("DownloadManager1") End Sub Sub Button1_Click Dim btn As Button = Sender Dim tag As Int = btn.tag Select tag Case 0 Dim DownloadManagerRequest1 As DownloadManagerRequest If File.IsDirectory(File.DirRootExternal,"Tooshe hamrah") = False Then File.MakeDir(File.DirRootExternal,"Tooshe hamrah") End If If File.Exists(File.DirRootExternal & "/Tooshe hamrah","1.mp3") = False Then DownloadManagerRequest1.Initialize("http://s6.picofile.com/d/dc328b05-649a-4a1a-9549-bd3164a84150/Doa_Komeil.mp3") DownloadManagerRequest1.Description="Downloading..." DownloadManagerRequest1.DestinationUri="file://"&File.Combine(File.DirRootExternal & "/Tooshe hamrah", "1.mp3") DownloadManagerRequest1.Title="دعا کمیل" DownloadManagerRequest1.VisibleInDownloadsUi=True DownloadId=DownloadManager1.Enqueue(DownloadManagerRequest1) Else ToastMessageShow("صوت مورد نظر دانلود شده است",False)لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.