اشکال در تنظیمات - گذاشتن عکس در متن دیتابیس

[ghost 70]

سلام به همگی

من دوتا مشکل دارم

1.تنظیماتی رو که برای برنامه درست کردم ، وقتی از تنظیمات فونت رو تغییر میدم ، متن کوچک تر میشه و ارور میده.*asabani**wall*

2.متن میخوام قاطی متنی که از دیتابیس گرفتم عکس بذارم.چه جوری باید اینکارو کنم؟

پیشاپیش مچکر

[مهدی ایزدی 9,203]

درود

اگه میخواهید تتظیمات مدّ نظر خودتون یا کد نویسی ای که خودتون دارید انجام میدید باشه خب تیکه کد رو قرار بدید

تا ببینیم اراد از کجاست

یا هم میتونید این آموزش و کتابخانه ی آقای قبادی رو فوق العاده عالی هست رو دانلود و استفاده کنید:

[h=2]کتابخانه ساخت تنظیمات و ذخیره تنظیمات نسخه ی یک[/h]در مورد سوال دوم هم باز:

[h=2]آموزش تصویری مرتب کردن عکس ومتن، دیتابیس در اسکرول ویو[/h]

[ghost 70]

این کدی هست که تو لایوت تنظیمات نوشتم

Sub Process_Globals

Dim FontSize As String

Dim FontType As String

Dim LineHeight As String

End Sub

Sub Globals

Private SeekBar1 As SeekBar

Private Spinner1 As Spinner

Private Label3 As Label

Private ScrollView1 As ScrollView

Private SeekBar2 As SeekBar

Private Button1 As Button

Private Label1 As Label

Private Label2 As Label

Private Label4 As Label

End Sub
("Sub Activity_Create(FirstTime As Boolean

("Activity.LoadLayout("scroll
("ScrollView1.Panel.LoadLayout("Setting

If File.Exists(File.DirInternal,"FontType.txt") = False Then

("File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt

End If

If File.Exists(File.DirInternal,"FontSize.txt") = False Then

("File.Copy(File.DirAssets,"FontSize.txt",File.DirInternal,"FontSize.txt

End If

If File.Exists(File.DirInternal,"lineheight.txt") = False Then

("File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt

End If

(("Spinner1.AddAll(Array As String("byekan","bnazanin","titr","arial
("FontType = File.ReadString(File.DirInternal,"FontType.txt

("FontSize = File.ReadString(File.DirInternal,"FontSize.txt
(" LineHeight = File.ReadString(File.DirInternal,"lineheight.txt
SeekBar1.Value = FontSize

SeekBar2.Value = LineHeight

Label3.TextColor = Colors.White

Dim ts As TextSetting

ts.Initialize

(ts.LabelDesign(Label3,SeekBar1.Value,"Null",FontType

End Sub

Sub Activity_Resume

End Sub

(Sub Activity_Pause (UserClosed As Boolean

End Sub

(Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean

Label3.TextSize = Value

FontSize = Value

End Sub

(Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean

LineHeight = Value

End Sub

(Sub Spinner1_ItemClick (Position As Int, Value As Object

("Label3.Typeface = Typeface.LoadFromAssets(Value&".ttf

FontType = Value

End Sub

Sub Button1_Click

(File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem

(File.WriteString(File.DirInternal,"FontSize.txt",SeekBar1.Value

(File.WriteString(File.DirInternal,"lineheight",SeekBar2.Value

(ToastMessageShow("",False

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event

If KeyCode = KeyCodes.KEYCODE_BACK Then

Activity.Finish

End If

End Sub

[مهدی ایزدی 9,203]

لطفا کدهاتون رو مرتب کنید