تولید و حذف لیبل

[علی علایی 161]

سلام 

من چه جوری میتونم با هر بار کیلک یک باتن یه لیبل در برنامه ایجاد کنم 

بعد لیبل ها طوری باشن که با کیلک طولانی حذف بشن 

ممنون میشم راهنمایم کنید

 

[Kazem Forghani 2,927]

در دیزاینر یک باتن با مختصات 20%x,85%y,60%x,95%y وارد کنید . سپس :

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim X As Int
	Dim Y As Int
	Dim Label1 As Label
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	x = 0
	y = 0
End Sub

Sub Button1_Click
	x = x + 10
	y = y + 10
	Label1.Initialize("Label1")
	Label1.Color = Colors.RGB(Rnd(100,255),Rnd(100,255),Rnd(100,255))
	Activity.AddView(Label1,x,y,10%x,10%x)
End Sub

Sub Button1_LongClick
	Activity.RemoveAllViews
	Activity.AddView(Button1,20%x,85%y,60%x,95%y)
	x = 0
	y = 0
End Sub