من قبلا یه پروژه رو تا لیست ویو پیش رفته بودم به این شکل: اسپلش ----> صفحه منو ----> لیست ویو بعد به گزینه اول لیست ویو طبق این کد:
Sub ListView1_ItemClick (Position As Int, Value As Object)
If Position=0 Then
StartActivity("L1")
End If
End Sub
بعد طبق همون آموزش توی ماژول L1 اطلاعات دیتابیس رو وارد کردم و به چندتا مشکل خوردم:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim s As SQL
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.
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("L1")
If File.Exists(File.DirInternal,"L1.db")=False Then
File.Copy(File.DirAssets,"L1.db",File.DirInternal,"L1.db")
End If
If s.IsInitialized=False Then
s.Initialize(File.DirInternal,"L1.db",False)
End If
show
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub show
Dim sh As Int
sh=0
Dim cur As Cursor
cur=s.ExecQuery("Select * from L1")
Dim h As Int
h=5%y
For i=0 To cur.RowCount-1
cur.Position=i
If cur.GetInt("type")=0 Then
Dim lbl As Label
lbl.Initialize("")
lbl.Text=cur.GetString("value")
lbl.Gravity=Gravity.RIGHT
lbl.TextSize=15
lbl.TextColor=Colors.Black
ScrollView1.Panel.AddView(lbl,2%x,h,96%x,0)
Dim su As StringUtils
lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.Text)
h=h+lbl.Height+2%y
sh=sh+lbl.Height
ScrollView1.Panel.Height=sh
Else
Dim img As ImageView
img.Initialize("")
img.Bitmap=Namayesh(i)
Dim bp As BitmapExtended
bp.initialize("")
ScrollView1.Panel.AddView(img,0,h,bp.getwidth(img.Bitmap),bp.getheight(img.Bitmap))
h=h+bp.getheight(img.Bitmap)+2%y
sh=sh+bp.getheight(img.Bitmap)
ScrollView1.Panel.height=sh
End If
ScrollView1.Panel.Height=ScrollView1.Panel.Height+10%y
Next
End Sub
Sub Namayesh(position As String) As Bitmap
Dim cur As Cursor
cur=s.ExecQuery("Select Value from L1")
cur.position=position
Dim bytes() As Byte
bytes=cur.GetBlob("value")
Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)
Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub
1- یکی اینکه عکسی که بین دوتا متن قرار دادم اندازش مناسب با کادر نیست و از دو طرف کادر زده بیرون
2- توی لایوت L1 برای اون قسمت بک گراند عکس قرار دادم و وقتی روی گزینه اول لیست ویو کلیک میکنم لایوت L1 با اون بکگراند برای چند میلی ثانیه ظاهر میشه بعد این متن ها و اطلاعات دیتابیس با یه بک گراند کااااملا سفید سریع میاد روشو میپوشونه (امیدوارم خوب توضیح داده باشم )
3- اینکه رنگ و فونت این متن ها رو چجوری میشه تغییر داد ؟؟؟ :nemidoonam:
سوال
imenz 11
سلام دوستان گلم
طبق این آموزش چندتا سؤال دارم: http://answercenter.ir/topic/3952-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D9%81%D9%88%D9%82-%D9%85%D9%87%D9%85/
من قبلا یه پروژه رو تا لیست ویو پیش رفته بودم به این شکل: اسپلش ----> صفحه منو ----> لیست ویو بعد به گزینه اول لیست ویو طبق این کد:
Sub ListView1_ItemClick (Position As Int, Value As Object) If Position=0 Then StartActivity("L1") End If End Subبعد طبق همون آموزش توی ماژول L1 اطلاعات دیتابیس رو وارد کردم و به چندتا مشکل خوردم:Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim s As SQL 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. Private ScrollView1 As ScrollView End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("L1") If File.Exists(File.DirInternal,"L1.db")=False Then File.Copy(File.DirAssets,"L1.db",File.DirInternal,"L1.db") End If If s.IsInitialized=False Then s.Initialize(File.DirInternal,"L1.db",False) End If show End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub show Dim sh As Int sh=0 Dim cur As Cursor cur=s.ExecQuery("Select * from L1") Dim h As Int h=5%y For i=0 To cur.RowCount-1 cur.Position=i If cur.GetInt("type")=0 Then Dim lbl As Label lbl.Initialize("") lbl.Text=cur.GetString("value") lbl.Gravity=Gravity.RIGHT lbl.TextSize=15 lbl.TextColor=Colors.Black ScrollView1.Panel.AddView(lbl,2%x,h,96%x,0) Dim su As StringUtils lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.Text) h=h+lbl.Height+2%y sh=sh+lbl.Height ScrollView1.Panel.Height=sh Else Dim img As ImageView img.Initialize("") img.Bitmap=Namayesh(i) Dim bp As BitmapExtended bp.initialize("") ScrollView1.Panel.AddView(img,0,h,bp.getwidth(img.Bitmap),bp.getheight(img.Bitmap)) h=h+bp.getheight(img.Bitmap)+2%y sh=sh+bp.getheight(img.Bitmap) ScrollView1.Panel.height=sh End If ScrollView1.Panel.Height=ScrollView1.Panel.Height+10%y Next End Sub Sub Namayesh(position As String) As Bitmap Dim cur As Cursor cur=s.ExecQuery("Select Value from L1") cur.position=position Dim bytes() As Byte bytes=cur.GetBlob("value") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) input.Close Return(b) End Sub1- یکی اینکه عکسی که بین دوتا متن قرار دادم اندازش مناسب با کادر نیست و از دو طرف کادر زده بیرون
2- توی لایوت L1 برای اون قسمت بک گراند عکس قرار دادم و وقتی روی گزینه اول لیست ویو کلیک میکنم لایوت L1 با اون بکگراند برای چند میلی ثانیه ظاهر میشه بعد این متن ها و اطلاعات دیتابیس با یه بک گراند کااااملا سفید سریع میاد روشو میپوشونه (امیدوارم خوب توضیح داده باشم
)
3- اینکه رنگ و فونت این متن ها رو چجوری میشه تغییر داد ؟؟؟ :nemidoonam:
سرتونو درد آوردم شرمندم بخدا ...
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.