مخفی کردن متن دکمه

[HS71 78]

سلام دوستان ، من سایز متنی که در دکمم گذاشتم رو لازمه که 0 کنم تا متن دیده نشه! و در حلقه فور اومدم سایز متن رو 0 کردم و روی گوشی با اندروید 4.4.2 به بالا متن دیده نمیشه اما روی یه گوشی با اندروید 4.1 فک کنم بود تست کردم سایز متن رو اصلا 0 و مخفی نکرده بود و دیده میشد متنش....

چطور کاری کنم که در همه نسخه های اندروید متنش دیده نشه و فقط تصویری که روی باتن گذاشتم دیده بشه؟!

دلیل اینکه متن دادم به دکمه اینه که اسم آهنگ در دیتابیسه و حتما باید متن رو بدم به این دکمه تا بتونه پخش کنه!

با تشکر.

[softir 459]

در هم اکنون، HS71 گفته است :

از همون اول که خالی هست متن اما در حلقه باید تکست رو بدم به دکمه تا در ساب دکمه آهنگ پخش بشه، و گفتم مشکلی نیست فقط در نسخه اندروید زیر 4.4 یا 4.1 متن دیده میشه! نمونه کد:

for i = 0 to....
	button.Text = curs.GetString("musicfiles")
	button.TextSize = 0
next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub button_Click
	Dim b As Button = Sender
		medplayer.Load(File.DirAssets,b.Text&".mp3")
		medplayer.Play		
End Sub

 

سلام

می تونی بجای این که به متن باتون مقدار دهی کنی . بیایی و به tag مقدار دهی کنی و اون رو برگردونی

for i = 0 to....
	button.tag = curs.GetString("musicfiles")                  '  این خط
	....
	...
next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub button_Click
	Dim b As Button = Sender
		medplayer.Load(File.DirAssets,b.tag&".mp3")           '  این خط 
		...
		...
End Sub

 

[HS71 78]

UP

بچه ها راهی هست تا متن رو نمایش ندم یا در همه دستگاه ها متن سایزش صفر بمونه و دیده نشه؟

[محمدرضا شاهپیری 5,579]

هموطن یه جایی رو اشتباه میرید قطعاا

وگرنه با تگ و سندر نباید مشکلی باشه

تو حلقه این رو بزارید

button.tag = curs.GetString("musicfiles") 

و توی کلیک هم این

Dim b As Button = Sender
		medplayer.Load(File.DirAssets,b.tag&".mp3") 

نباید مشکلی باشه

[HS71 78]

ممنون دوستان کد آقای softir درست بود اما چون من از انیمیشن برای هر دکمه استفاده میکنم خطا دارم حالا ....

مثلا قبلا من میومدم چک میکردم اگه دکمه رنگ متنش آبی بود بیا و پلی کن و انیمیشن رو اجرا کن و اگه دکمه ای دیگر زده شد اون قبلیو برگردون به رنگ سیاه متنش رو  و این جدیدرو پلی کن:

for i = 0...	
		''bplay.Tag = curs.GetInt("id")
		''bplay.Text = curs.GetString("mfiles")
		''bplay.TextSize = 0
	bplay.Tag = curs.GetString("mfiles")	
		lis.Add(bplay)
next

Sub bplay_Click
	Dim b As Button = Sender
	
	If b.textcolor = colors.black Then
		''''''mplayer.Load(File.DirAssets,b.Text&".mp3")
		mplayer.Load(File.DirAssets,b.tag&".mp3")
		mplayer.Play
	Else
		mplayer.Stop
		ani.Stop(b)			
	End If
	
	Dim posit As Int = b.Tag
	ChangeColorToBlue(posit)			
End Sub

Sub ChangeColorToBlue(position As Int)
	
	For i=0 To lis.Size -1
		Dim b As Button = lis.Get(i)	
		
		If b.Tag = position Then
			b.TextColor = Colors.Blue
			If mplayer.IsPlaying = True Then
				ani.InitializeRotateCenter("ani",0,360,b) 
				ani.Duration=3000
				ani.RepeatCount = -1
				ani.Start(b)			
			Else
				ani.Stop(b)
			End If

		Else
			b.textColor = Colors.Black
			ani.Stop(b)
		End If
	Next
End Sub

این کدهای منه و برای اینکه بتونم روی هر دکمه که کلیک شد آهنگه پخش بشه و انیمیشن اجرا کنم هستش، حالا که متن رو برداشتم از دکمه چطور دستوری بجاش گذاشته بشه تا روی هرکدوم که کلیک شد انیمیشنش مثله کد بالا اجرا بشه؟

 

مثلا تو ساب کلیک دکمه قبلا چک میکردم اگه رنگ متن مثلا سیاه بود پخش کنه اما حالا چی باید نوشته بشه؟

Sub bplay_Click
	Dim b As Button = Sender
	
	If b.Tag = ؟؟؟ then

		mplayer.Load(File.DirAssets,b.tag&".mp3")
		mplayer.Play

مثلا اگر دکمه تگش برابر با چی بود پخش کنه یا...

با تشکر.

[mojtaba68 62]

سلام اگر منظورتون اینه که تکست روی دکمه نشون نده خوب از همون اول تنطیمات باتن اون بدون متن خالی بزار ننویس

حالا اون قسمتی که میخوای تکست بنویسی روی دکمه BUTTON.TEXT="MATN"

 اگر فکر کنم درست کدشو نوشته باشم

-----

یا اگر من نتونستم منظورتون متوجه بشم شما سورس کدتون قرار بدید اساتید دیگه راحت بتونن نظر بدن

[HS71 78]

از همون اول که خالی هست متن اما در حلقه باید تکست رو بدم به دکمه تا در ساب دکمه آهنگ پخش بشه، و گفتم مشکلی نیست فقط در نسخه اندروید زیر 4.4 یا 4.1 متن دیده میشه! نمونه کد:

for i = 0 to....
	button.Text = curs.GetString("musicfiles")
	button.TextSize = 0
next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub button_Click
	Dim b As Button = Sender
		medplayer.Load(File.DirAssets,b.Text&".mp3")
		medplayer.Play		
End Sub

 

[HS71 78]

در 8 ساعت قبل، softir گفته است :

سلام

می تونی بجای این که به متن باتون مقدار دهی کنی . بیایی و به tag مقدار دهی کنی و اون رو برگردونی

 

 

نه عزیز پخش نمیکنه و خطای فایل پیدا نشد میده!

for i = 0 to...		
	button.Tag = curs.GetInt("id")
	button.Text = curs.GetString("musicfile")
	button.TextSize = 0
next

باید ستون اسم آهنگ هارو در حلقه به تکست باتن بدم و تگ رو هم برابر id کنم تا پخش کنه...

راهی دیگری نیست که مثلا متن رو پشت دکمه بندازیم یا راهی دیگری که خلاصه تو تمام دستگاه ها متن باتن دیده نشه!؟