فاصله پنل ها در مولتی پنل

[SoRoUsH 300]

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

میخواستم بدونم برای اینکه بخام اندازه فاصله بین پنل هارو افزایش بدم باید چیکار کنم؟! توی گوشی 4.5 اینچ تست میکنم کاملا درسته اما توی تبلت 8 اینچ که تست میکنم همه پنلا میرن تو هم! یعنی اصلا انگار فاصله ای ندارن! از کجای این کد باید تنظیم کنم فاله پنل هارو؟!

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

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim Stopint As Int=5%y
    Private sql1   As SQL
	Private Cur1   As Cursor		
	Private Label1 As Label
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Dim s As StudentLibrary
	Dim wp As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
ScrollView1.Initialize(2000dip)
Activity.AddView(ScrollView1,0,0,100%x,100%y)
	If File.Exists(File.DirInternal,"bank.db")=False Then
	File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db")
	End If
sql1.Initialize(File.DirInternal,"bank.db",False)
Cur1=sql1.ExecQuery("SELECT * From TblS")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+1%x*1.5%y
p.LoadLayout("bg")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Panel1.Tag=i                            ''''  (range panel ha yek dar miun ghermez va abi mishe)'
If (i Mod 2)=1 Then						''''  (range panel ha yek dar miun ghermez va abi mishe)'
			Panel1.Color=0xFFFF0000		''''  (range panel ha yek dar miun ghermez va abi mishe)'
		Else							''''  (range panel ha yek dar miun ghermez va abi mishe)'
			Panel1.Color=0xFF8B0A0A	    ''''  (range panel ha yek dar miun ghermez va abi mishe)'
		End If							''''  (range panel ha yek dar miun ghermez va abi mishe)'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Label1.Text=Cur1.GetString("txt")
Button1.Tag=Cur1.GetString("ez")
ScrollView1.Panel.Height=Stopint  
Next

End Sub

Sub Button1_Click
	Dim iz As Button
	iz = Sender
	s.setWallpaper(LoadBitmap(File.DirAssets,iz.Tag))
	ToastMessageShow("پس زمینه شما ذخیره شد!",False)
End Sub

[Elyas Erfani 3,582]

سلام

 

شما به این صورت بیاید فاصله بین پنل هارو تغییر بدید حالا چ کم چ زیاد

 

در ساب گلوبال :

	Dim SQL1 As SQL

	Dim Cursor1 As Cursor

	Private Panel1 As Panel

	Private Label1 As Label

	Dim matn As String

	Dim f As Float

Private ScrollView1 As ScrollView

Dim Height As Int

حالا در Activity_Create :

	If File.Exists(File.DirInternal,"esme database.db")=False Then

	File.copy(File.DirAssets,"esme database.db",File.DirInternal,"esme database.db")

End If

	SQL1.Initialize(File.DirInternal,"esme database.db",True)

	Cursor1 = SQL1.ExecQuery("SELECT * FROM TableName")

	For i=0 To Cursor1.RowCount-1

	Cursor1.Position=i

	matn= Cursor1.GetString("Title")

	ScrollView1.Panel.Color = Colors.Transparent

	Dim p1 As Panel

	p1.Initialize("")

	p1.LoadLayout("esme layoutei ke panel toshe")

	p1.Color = Colors.Blue

(ScrollView1.Panel.AddView(p1,0,Height,100%x,100%y

	Label1.TextColor=Colors.White

	p1.Height=f+70dip

	Height=Height+f+100dip

	Next

	ScrollView1.Panel.Height=Height

واسه افزایش فاصله بین پنل ها مقدار dip در تکه کد زیر ک توی اکتیویتی کریت بالا نوشتیم رو زیاد کنید

Height=Height+f+100dip

مثلا اینجا گذاشتیم 100dip شما بکنیدش 150 یا 170 dip بسته به نیازتون

[SoRoUsH 300]

من کدم رو به اینا تغییر دادم...فرقی نکرد....کجاش ایراد داره؟!

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

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim Stopint As Int=5%y
    Private sql1   As SQL
	Private Cur1   As Cursor		
	Private Label1 As Label
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Dim s As StudentLibrary
	Dim wp As String
	Dim f As Float
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
ScrollView1.Initialize(2000dip)
Activity.AddView(ScrollView1,0,0,100%x,100%y)
	If File.Exists(File.DirInternal,"bank.db")=False Then
	File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db")
	End If
sql1.Initialize(File.DirInternal,"bank.db",False)
Cur1=sql1.ExecQuery("SELECT * From TblS")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+f+200dip
p.LoadLayout("bg")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Panel1.Tag=i                            ''''  (range panel ha yek dar miun ghermez va abi mishe)'
If (i Mod 2)=1 Then						''''  (range panel ha yek dar miun ghermez va abi mishe)'
			Panel1.Color=0xFFFF0000		''''  (range panel ha yek dar miun ghermez va abi mishe)'
		Else							''''  (range panel ha yek dar miun ghermez va abi mishe)'
			Panel1.Color=0xFF8B0A0A	    ''''  (range panel ha yek dar miun ghermez va abi mishe)'
		End If							''''  (range panel ha yek dar miun ghermez va abi mishe)'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Label1.Text=Cur1.GetString("txt")
Button1.Tag=Cur1.GetString("ez")
Next
ScrollView1.Panel.Height=Stopint  

End Sub

Sub Button1_Click
	Dim iz As Button
	iz = Sender
	s.setWallpaper(LoadBitmap(File.DirAssets,iz.Tag))
	ToastMessageShow("پس زمینه شما ذخیره شد!",False)
End Sub