Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim sql1 As SQL
Private ScrollView1 As ScrollView
Dim stop As Int
Private Label1 As Label
Private ImageView1 As ImageView
Dim audio As MediaPlayer
Dim cur As Cursor
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("sv")
If File.Exists(File.DirInternal,"ahangtst.db") = False Then
File.Copy(File.DirAssets,"ahangtst.db",File.DirInternal,"ahangtst.db")
End If
If sql1.IsInitialized = False Then
sql1.Initialize(File.DirInternal,"ahangtst.db",True)
End If
cur = sql1.ExecQuery("SELECT * FROM asly")
For i = 0 To cur.RowCount-1
cur.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop +35%y
p.LoadLayout("ring")
Label1.Text = cur.GetString("onvan")
audio.Initialize()
audio.Load(File.DirAssets,cur.GetString("ahang"))
ImageView1.Tag = cur.GetString("ahang")
ScrollView1.Panel.Height = stop
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ImageView1_Click
Dim img As ImageView
img = Sender
If audio.IsPlaying Then
audio.Pause
Else
audio.Play
End If
End Sub
حالا نمی دونم وقتی روی ایمیج ویو م کلیک شد چطوری آهنگ رو که کلیک شده پخش کنه
سوال
omid1377 44
سلام
من می خوام یه برنامه رینگتون بسازم با مولتی پنل
تا اینجاشو ساختم
http://s6.picofile.com/file/8223644092/Capture.PNG
کدهای من بدین صورت است
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim sql1 As SQL Private ScrollView1 As ScrollView Dim stop As Int Private Label1 As Label Private ImageView1 As ImageView Dim audio As MediaPlayer Dim cur As Cursor Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("sv") If File.Exists(File.DirInternal,"ahangtst.db") = False Then File.Copy(File.DirAssets,"ahangtst.db",File.DirInternal,"ahangtst.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"ahangtst.db",True) End If cur = sql1.ExecQuery("SELECT * FROM asly") For i = 0 To cur.RowCount-1 cur.Position=i Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,stop,100%x,100%y) stop = stop +35%y p.LoadLayout("ring") Label1.Text = cur.GetString("onvan") audio.Initialize() audio.Load(File.DirAssets,cur.GetString("ahang")) ImageView1.Tag = cur.GetString("ahang") ScrollView1.Panel.Height = stop Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ImageView1_Click Dim img As ImageView img = Sender If audio.IsPlaying Then audio.Pause Else audio.Play End If End Subحالا نمی دونم وقتی روی ایمیج ویو م کلیک شد چطوری آهنگ رو که کلیک شده پخش کنه
در واقع در تگ و سندر مشکل دارم
لطفا کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
15 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.