دوستان من دارم یک برنامه رینگتون درست میکنم که توی برنامه ام از مولتی پنل استفاده کردم
مشکل من اینجاست وقتی روی یکی از گزینه ها کلیک میکنم اهنگ پلی میشه و ایکن اون سطر عوض میشه ولی وقتی روی دومین ایتم یا هر ایتمی دیگه کلیک میکنم
ایکن سطر قبلی هنوز استوپ باقی میمونه
باید دوباره کلیک کرد تا پخش شه دفعه ی اول میاد استوپ میکنه قبلی رو و بعد اهنگ بعدی رو پلی میکنه
من میخوام وقتی روی مثلا یک کلیک شد ایکنش استوپ بشه بعد وقتی روی مثلا دو کلیک شد ایکن یک و بقیه بشه پلی فقط ایکن دو استوپ باشه و یک بار هم کلیک کنم
نمیدونم تونستم منظورم رو برسونم یا که نه
من از کد زیر استفاده کردم اما مشکل 1 و 2 رو داره
Dim vo As Label
vo.Initialize("vo")
vo = Sender
Dim curt As Cursor
curt = sql.ExecQuery("SELECT * FROM tab1")
curt.Position = vo.Tag - 1
If meda.IsPlaying = True Then
vo.Text = Chr(0xE037)
meda.Stop
Else
vo.Text = Chr(0xE047)
meda.Load(File.DirAssets,curt.GetString("mp"))
meda.Play
End If
سوال
Hayperapp 18
سلام
دوستان من دارم یک برنامه رینگتون درست میکنم که توی برنامه ام از مولتی پنل استفاده کردم
مشکل من اینجاست وقتی روی یکی از گزینه ها کلیک میکنم اهنگ پلی میشه و ایکن اون سطر عوض میشه ولی وقتی روی دومین ایتم یا هر ایتمی دیگه کلیک میکنم
ایکن سطر قبلی هنوز استوپ باقی میمونه
باید دوباره کلیک کرد تا پخش شه دفعه ی اول میاد استوپ میکنه قبلی رو و بعد اهنگ بعدی رو پلی میکنه
من میخوام وقتی روی مثلا یک کلیک شد ایکنش استوپ بشه بعد وقتی روی مثلا دو کلیک شد ایکن یک و بقیه بشه پلی فقط ایکن دو استوپ باشه و یک بار هم کلیک کنم
نمیدونم تونستم منظورم رو برسونم یا که نه
Dim vo As Label vo.Initialize("vo") vo = Sender Dim curt As Cursor curt = sql.ExecQuery("SELECT * FROM tab1") curt.Position = vo.Tag - 1 If meda.IsPlaying = True Then vo.Text = Chr(0xE037) meda.Stop Else vo.Text = Chr(0xE047) meda.Load(File.DirAssets,curt.GetString("mp")) meda.Play End Ifلینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.