رفتن به مطلب
  • 0

چند مشکل کوچیک درمورد دیتابیس


imenz

سوال

سلام دوستان گلم

طبق این آموزش چندتا سؤال دارم: 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 Sub

1- یکی اینکه عکسی که بین دوتا متن قرار دادم اندازش مناسب با کادر نیست و از دو طرف کادر زده بیرون  :roomNemishe:

2- توی لایوت L1 برای اون قسمت بک گراند عکس قرار دادم و وقتی روی گزینه اول لیست ویو کلیک میکنم لایوت L1 با اون بکگراند برای چند میلی ثانیه ظاهر میشه بعد این متن ها و اطلاعات دیتابیس با یه بک گراند کااااملا سفید سریع میاد روشو میپوشونه (امیدوارم خوب توضیح داده باشم :fekr: )

3- اینکه رنگ و فونت این متن ها رو چجوری میشه تغییر داد ؟؟؟ :nemidoonam:

 

سرتونو درد آوردم شرمندم بخدا ...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

مشکل اول :

باید این کد رو بنویسید :

img.Gravity = Gravity.FILL

سوال آخر رو متوجه نشدم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

مشکل اول :

باید این کد رو بنویسید :

img.Gravity = Gravity.FILL
سوال آخر رو متوجه نشدم
درود بر شما

واقعا ممنونم دستتون درد نکنه

در واقع سؤالم سه تا بود

اولیش که به لطف شما حل شد

دومیش رو واضح تر عرض میکنم خدمتتون:

ببینید، وقتی روی گزینه اول لیست ویو کلیک میکنم که هدایت بشه به همین صفحه ای که توش عکس و متن هست اول صفحه ای که توی لایوت L1 ساختم باز میشه بعد این صفحه ای که متن و عکسم توش هست با یه بک گراند کاملا سفید میاد روی اون لایه رو میپوشونه، در صورتی که میخوام اون لایوتم (L1) پیدا باشه چون بک گراند داره

سؤال سوممم اینه که چجوری میشه نوع فونت و رنگ فونت هایی که از دیتابیس گرفتیم رو عوض کنیم ؟؟؟

بازم ممنونم

Sent from my HUAWEI P6-U06 using Tapatalk

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود بر شما

واقعا ممنونم دستتون درد نکنه

در واقع سؤالم سه تا بود

اولیش که به لطف شما حل شد

دومیش رو واضح تر عرض میکنم خدمتتون:

ببینید، وقتی روی گزینه اول لیست ویو کلیک میکنم که هدایت بشه به همین صفحه ای که توش عکس و متن هست اول صفحه ای که توی لایوت L1 ساختم باز میشه بعد این صفحه ای که متن و عکسم توش هست با یه بک گراند کاملا سفید میاد روی اون لایه رو میپوشونه، در صورتی که میخوام اون لایوتم (L1) پیدا باشه چون بک گراند داره

سؤال سوممم اینه که چجوری میشه نوع فونت و رنگ فونت هایی که از دیتابیس گرفتیم رو عوض کنیم ؟؟؟

بازم ممنونم

Sent from my HUAWEI P6-U06 using Tapatalk

سلام .

در رابطه با سوال دوم باید بگم واضح تر توضیح بدید :)

خوب ببینید شما برای گرفتن متن در لیبل استفاده می کنید ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام .

در رابطه با سوال دوم باید بگم واضح تر توضیح بدید :)

خوب ببینید شما برای گرفتن متن در لیبل استفاده می کنید ؟

نه عزیز

من متن ها و عکسمو از دیتابیس گرفتم کاظم جان

Sent from my HUAWEI P6-U06 using Tapatalk

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...