ساخت تنظیمات با پنل

[coco 1,746]

Sub Spinner1_ItemClick (Position As Int, Value As Object)    If Position = 1 Then
       td.Typeface =  Typeface.LoadFromAssets("BNAZANB.TTF")
       Label1.Typeface =  Typeface.LoadFromAssets("BNAZANB.TTF")
   Else If Position = 2 Then
       td.Typeface = Typeface.LoadFromAssets("AAfsaneh.ttf")
       Label1.Typeface = Typeface.LoadFromAssets("AAfsaneh.ttf")
   Else If Position = 3 Then
       td.Typeface =  Typeface.LoadFromAssets("0 Digital Bold.ttf")
       Label1.Typeface =  Typeface.LoadFromAssets("0 Digital Bold.ttf")
   End If
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
   Label1.TextSize= Value
End Sub
Sub Button2_Click
   Panel1.Visible = False
End Sub
Sub Button1_Click
   td.TextSize = SeekBar1.Value
End Sub

سلام

من کارم با دیتابیس درست نشد (ساخت تنظیمات) و حالا میخوام تو همون اکتیویتی اصلی یه پنل بزارم.

اینو بدون دیتابیس نوشتم و میخوام وقتی دکمه تنظیمات زده شد یه پنل ویزیبل شه.

و وقتی دکمه خروج زده شد پنل بسته شه و وقتی پنل بازه دکمه های دیگه غیر فعال شن.

td = اسم لیبل اصلی

حالا مشکل اینه که متن لیبا اصلی دیده نمیشه.

sub activity_create
If  Panel1.Visible = True Then 
	td.Visible = False
	btn.Visible = False
	zr.Visible = False
	re.Visible = False
	Save.Visible = False
Else If Panel1.Visible = False Then
	td.Visible = True
	btn.Visible = True
	zr.Visible = True
	re.Visible = True
	Save.Visible = True
End If