تغییرسایزمتن بااسفاده ازدکمه کم وزیادکردن صدا

[ali afrazi 47]

اگه کسی یه همچین سورسی بذاره ممنون میشم

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

از رویداد کی پرس اکتیویتی میتونید استفاده کنید.

Sub activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode=KeyCodes.KEYCODE_VOLUME_DOWN Then
		Dim s As Int
		s=label1.TextSize
		label1.TextSize=s-1
		
		'سایز رو کم کنه
		
		Return True
		else If KeyCode=KeyCodes.KEYCODE_VOLUME_UP Then
		Dim s As Int
		s=label1.TextSize
		label1.TextSize=s+1
		
		'سایز رو اضافه کنه
		Return True
	End If
End Sub