11-04-2013، 07:58 PM
سلام
این کد رو ببینید.این کدی است که خودشون واسه تاچ کردن قرار دادن
اما مشکل اینه که نمیشه رو button ها کلیک کرد چون panel روش قرار گرفته
اگه کسی میدونه چیکار باید بکنم ممنون میشم جواب بده
اگه بشه x و y تاچ روی صفحه رو هم با یک تابعی بدست آورد خوبه ولی نمیدونم چطوری
این کد رو ببینید.
کد پیاچپی:
Sub Globals
Dim TransparentPanelOnTop As Panel
Dim Button1 As Button
Dim Button2 As Button
Dim Label1 As Label
Dim PositionX As Float
Dim PositionY As Float
End Sub
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("Label1")
Button1.Initialize("Button1")
Button2.Initialize("Button2")
TransparentPanelOnTop.Initialize("TransparentPanelOnTop")
Label1.Text = "Waiting dor click..."
Button1.Text = "I am a Button1 CLICK ME"
Button2.Text = "I am a Button2 CLICK ME"
Activity.AddView(Label1,10,10,Activity.Width - 20,60)
Activity.AddView(Button1,10,100,Activity.Width - 20,60)
Activity.AddView(Button2,10,180,Activity.Width - 20,60)
Activity.AddView(TransparentPanelOnTop,0,0,100%x,100%y)
TransparentPanelOnTop.Color = Colors.Transparent
TransparentPanelOnTop.BringToFront
End Sub
Sub TransparentPanelOnTop_Touch (Action As Int, x As Float, Y As Float) As Boolean
If Action = Activity.ACTION_DOWN Then
PositionX = x
PositionY = Y
End If
End Sub
Sub Button1_Click
Label1.Text = "You Clicked Button1 with positions : X = " & PositionX & " Y = " & PositionY
End Sub
Sub Button2_Click
Label1.Text = "You Clicked Button2 with positions : X = " & PositionX & " Y = " & PositionY
End Sub
اما مشکل اینه که نمیشه رو button ها کلیک کرد چون panel روش قرار گرفته
اگه کسی میدونه چیکار باید بکنم ممنون میشم جواب بده
اگه بشه x و y تاچ روی صفحه رو هم با یک تابعی بدست آورد خوبه ولی نمیدونم چطوری