رفع مشکل نمایش متن های طولانی در اسکرول ویو - (عکس و متن )

[arosha 17]

با سلام و احترام 

 سورسی که آپلود کردم ، در فایل دیتابیس ، متن های طولانی (چندین خط و سطر )  را در برنامه نشون نمیده و فقط خط اول را نمایش میده . نمیدونم مشکل از کد نویسیشه یا از دیتا بیس؟  

 مطمئنم که دیتا بیس مشکلی نداره

        لطفا راهنمایی بفرمایید.

 

• کد سورس برنامه    (فصل اول)

[softir 459]

در هم اکنون، arosha گفته است :

با سلام و احترام 

 سورسی که آپلود کردم ، در فایل دیتابیس ، متن های طولانی (چندین خط و سطر )  را در برنامه نشون نمیده و فقط خط اول را نمایش میده . نمیدونم مشکل از کد نویسیشه یا از دیتا بیس؟  

 مطمئنم که دیتا بیس مشکلی نداره

        لطفا راهنمایی بفرمایید.

 

• کد سورس برنامه    (فصل اول)

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

[arosha 17]

در 46 دقیقه قبل، softir گفته است :

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

 

تشکر از توجه شما .

 از این بابت عذر خواهی میکنم ، هر چند از داخل بیسیک فشرده سازی کردم .

 

این هم فایل جدید : دانلود سورس با دیتا بیس

 

[arastooms 1,046]

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

[arosha 17]

در 11 دقیقه قبل، arastooms گفته است :

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

سلام و احترام 

ممنونم از توجه شما الان قرار می دم

[softir 459]

در هم اکنون، arosha گفته است :

سلام و احترام 

متوجه منظورتون نشدم  دقیقا کجا قرار بدم ؟

برنامه ات را دیدم مشکلی نداشت . دقیقا بگو کجاش قرار بود چند متن رو نشون بده ولی الان یک خط نشون می ده ؟

[arosha 17]

در 9 دقیقه قبل، arosha گفته است :

سلام و احترام 

ممنونم از توجه شما الان قرار می دم

 

در 14 دقیقه قبل، arastooms گفته است :

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

 

Sub Process_Globals
    Dim sql1 As SQL
End Sub

Sub Globals
    
    Private sv As ScrollView
    
    Dim cur1 As Cursor
    Dim h As Int=0
    Dim lbl_content As Label
    Dim lineheight As Int
    Dim sql1 As SQL
End Sub

 

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("Lay1")
    If File.Exists(File.DirInternal,"Mydb.db")=False Then
        File.Copy(File.DirAssets,"Mydb.db",File.DirInternal,"Mydb.db")
            End If
            
    If sql1.isInitialized=False Then
        sql1.Initialize(File.DirInternal,"Mydb.db",True)
            End If
        
        cur1=sql1.ExecQuery("SELECT * from tbl_test")
            For i=0 To cur1.RowCount-1
        cur1.Position=i
    If cur1.GetString("text").EndsWith(".jpg") Then
            Dim img1 As ImageView
            img1.Initialize("")
            img1.Gravity=Gravity.FILL
            sv.Panel.AddView(img1,10,h,90%x,30%y)
            img1.SetBackgroundImage(LoadBitmap(File.DirAssets,cur1.GetString("text")))
            h=h+32%y
            sv.Panel.Height=h
            
            
            Else
            lbl_content.Initialize("")
            lbl_content.Gravity=Gravity.RIGHT
            lbl_content.TextSize=20
            lbl_content.TextColor=Colors.Black
            lbl_content.Text=cur1.GetString("text")
            sv.Panel.AddView(lbl_content,2%x,h,96%x,20%y)
            h=h+lbl_Height+2%y
            sv.Panel.Height=h
                
        End If
    Next
    
    cur1.Close
End Sub

 

Sub lbl_Height As Float        'تابع تنظیم ارتفاع لیبل ها'
    Dim before,after As Float
    Dim obj1 As Reflector
    Dim str As StringUtils
    lineheight =str.MeasureMultilineTextHeight(lbl_content , lbl_content.Text)
    obj1.Target = lbl_content

    before = obj1.RunMethod("getLineHeight")    'Get the height of line BEFORE you change it
    obj1.Target = lbl_content
    obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
    obj1.Target = lbl_content
    after = obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
    lineheight = ((after * lineheight)/before)
    lbl_content.Height = lineheight
    Return  lineheight
End Sub

در 9 دقیقه قبل، softir گفته است :

برنامه ات را دیدم مشکلی نداشت . دقیقا بگو کجاش قرار بود چند متن رو نشون بده ولی الان یک خط نشون می ده ؟

ممنونم

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

 باز هم از توجه شما ممنونم ..

 منتظر پاسختون هستم.

[reza sabouri 444]

خسته نباشید خدمت همه ی دوستان

رفیق اول از همه تو قسمت دیزاینر اسکریپت  "layer" این کدها رو اضافه کنید ( برای مرتب نشون دادن همون فصل ها)

bt1.SetLeftAndRight(55%x,85%x)
bt1.SetTopAndBottom(11%y,34%y)
bt2.SetLeftAndRight(55%x,85%x)
bt2.SetTopAndBottom(36%y,59%y)
bt3.SetLeftAndRight(55%x,85%x)
bt3.SetTopAndBottom(61%y,84%y)
bt4.SetLeftAndRight(15%x,45%x)
bt4.SetTopAndBottom(11%y,34%y)
bt5.SetLeftAndRight(15%x,45%x)
bt5.SetTopAndBottom(36%y,59%y)
bt6.SetLeftAndRight(15%x,45%x)
bt6.SetTopAndBottom(61%y,84%y)

به دلخواه خودتون هم میتونین تغییرشون بدین

و برای دیزاینر اسکریپت"lay1"  هم این کدها رو اضافه کنید .

Label1.SetLeftAndRight(0,100%x)
Label1.SetTopAndBottom(0,20%y)
sv.SetLeftAndRight(0,100%x)
sv.SetTopAndBottom(20%y,100%y)

البته اگه اشتباه نکرده باشم!

[softir 459]

در هم اکنون، arosha گفته است :

 

 

Sub Process_Globals
    Dim sql1 As SQL
End Sub

Sub Globals
    
    Private sv As ScrollView
    
    Dim cur1 As Cursor
    Dim h As Int=0
    Dim lbl_content As Label
    Dim lineheight As Int
    Dim sql1 As SQL
End Sub

 

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("Lay1")
    If File.Exists(File.DirInternal,"Mydb.db")=False Then
        File.Copy(File.DirAssets,"Mydb.db",File.DirInternal,"Mydb.db")
            End If
            
    If sql1.isInitialized=False Then
        sql1.Initialize(File.DirInternal,"Mydb.db",True)
            End If
        
        cur1=sql1.ExecQuery("SELECT * from tbl_test")
            For i=0 To cur1.RowCount-1
        cur1.Position=i
    If cur1.GetString("text").EndsWith(".jpg") Then
            Dim img1 As ImageView
            img1.Initialize("")
            img1.Gravity=Gravity.FILL
            sv.Panel.AddView(img1,10,h,90%x,30%y)
            img1.SetBackgroundImage(LoadBitmap(File.DirAssets,cur1.GetString("text")))
            h=h+32%y
            sv.Panel.Height=h
            
            
            Else
            lbl_content.Initialize("")
            lbl_content.Gravity=Gravity.RIGHT
            lbl_content.TextSize=20
            lbl_content.TextColor=Colors.Black
            lbl_content.Text=cur1.GetString("text")
            sv.Panel.AddView(lbl_content,2%x,h,96%x,20%y)
            h=h+lbl_Height+2%y
            sv.Panel.Height=h
                
        End If
    Next
    
    cur1.Close
End Sub

 

Sub lbl_Height As Float        'تابع تنظیم ارتفاع لیبل ها'
    Dim before,after As Float
    Dim obj1 As Reflector
    Dim str As StringUtils
    lineheight =str.MeasureMultilineTextHeight(lbl_content , lbl_content.Text)
    obj1.Target = lbl_content

    before = obj1.RunMethod("getLineHeight")    'Get the height of line BEFORE you change it
    obj1.Target = lbl_content
    obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
    obj1.Target = lbl_content
    after = obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
    lineheight = ((after * lineheight)/before)
    lbl_content.Height = lineheight
    Return  lineheight
End Sub

ممنونم

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

 باز هم از توجه شما ممنونم ..

 منتظر پاسختون هستم.

من نگاه کردم دیدم همه متن های تو دیتابیس + عکس هات رو لود کرد و نشون داد خیلی هم طولانی .

 

[arosha 17]

در 6 ساعت قبل، 2roshke گفته است :

خسته نباشید خدمت همه ی دوستان

رفیق اول از همه تو قسمت دیزاینر اسکریپت  "layer" این کدها رو اضافه کنید ( برای مرتب نشون دادن همون فصل ها)

bt1.SetLeftAndRight(55%x,85%x)
bt1.SetTopAndBottom(11%y,34%y)
bt2.SetLeftAndRight(55%x,85%x)
bt2.SetTopAndBottom(36%y,59%y)
bt3.SetLeftAndRight(55%x,85%x)
bt3.SetTopAndBottom(61%y,84%y)
bt4.SetLeftAndRight(15%x,45%x)
bt4.SetTopAndBottom(11%y,34%y)
bt5.SetLeftAndRight(15%x,45%x)
bt5.SetTopAndBottom(36%y,59%y)
bt6.SetLeftAndRight(15%x,45%x)
bt6.SetTopAndBottom(61%y,84%y)

به دلخواه خودتون هم میتونین تغییرشون بدین

و برای دیزاینر اسکریپت"lay1"  هم این کدها رو اضافه کنید .

Label1.SetLeftAndRight(0,100%x)
Label1.SetTopAndBottom(0,20%y)
sv.SetLeftAndRight(0,100%x)
sv.SetTopAndBottom(20%y,100%y)

البته اگه اشتباه نکرده باشم!

سلام 

ممنونم از کد دیزاین ، ولی تو نشون دادن متن تغییری نکرده . مثل قبل ِ 

[reza sabouri 444]

شما مگه نمیخواین عین همین باشه ؟

 و

هرچی داخل دیتابیست هست که کاملا نشون داده میشه ، البته اگه کدهای دیزاینر اسکریپت "lay1"  رو هم بنویسی

[arosha 17]

در 10 دقیقه قبل، 2roshke گفته است :

شما مگه نمیخواین عین همین باشه ؟

 و

هرچی داخل دیتابیست هست که کاملا نشون داده میشه ، البته اگه کدهای دیزاینر اسکریپت "lay1"  رو هم بنویسی

 

 

آره همینه . کد های دیزاینو هم نوشتم ، نمیدونم چرا تو گوشیم نشون نمیده !!!! 

ممنونم از شما . بدون دریغ ، واقعا دارید تلاش می کنید تا مشکلم حل شه ،

            دوباره کد ها رو با راهنمایی هایی که کردید ،بررسی می کنم ، و در همین پست جوابش خدمت شما عرض می کنم.

                                                                                                                                     سپاسگذارم از همه دوستان 

[abbas2142 557]

با سلام

کد

SetApplicationAttribute(android:theme, "@android:style/Theme.Holo")

داخل Manifest Editor رو پاک کن شاید درست شد

[arosha 17]

در ۱ ساعت قبل، abbas2142 گفته است :

با سلام

کد

SetApplicationAttribute(android:theme, "@android:style/Theme.Holo")

داخل Manifest Editor رو پاک کن شاید درست شد

 

   سپاس . ولی باز هم نشد . حتی به  Theme.light هم تغییر دادم .

 

 

  زندگی جاریست ، اگر دیگر جایی نیست ....

[reza sabouri 444]

دوست من

من که راه حل رو بهتون گفتم ، حتی خودمم اجراش کردم و واستون اسکرین شاتشو هم فرستادم ، بارم این سورس که توش همون تغییرات رو ایجاد کردم . ببین جواب میده!

http://s8.picofile.com/file/8275136134/Aksomatnjadid.rar.html

[arosha 17]

در 5 ساعت قبل، 2roshke گفته است :

دوست من

من که راه حل رو بهتون گفتم ، حتی خودمم اجراش کردم و واستون اسکرین شاتشو هم فرستادم ، بارم این سورس که توش همون تغییرات رو ایجاد کردم . ببین جواب میده!

http://s8.picofile.com/file/8275136134/Aksomatnjadid.rar.html

 

ممنونم از شما - کارتون درسته ، مثل اینکه مشکل از منه

- حتی در امولاتور هم تست کردم و ران گرفتم باز ، همینطور بوده و حتی سورس دیگه ایو با محتوا و دیتا ، و روش متفاوتی امتهان کردم !!!! باز همین مشکل (نشان ندادن متن های بلند در لیبل) وجود داره . 

شاید فرایندکامپایل برنامه بیسیک 4 اندروید من دچار اختلالاتی باشه ! (نمیدونم!) چندیدن بار هم حذف و نب کردم همچنین sdk و java

 

کمک های شما و سایر دوستان نبود تا همینجاش هم نمیتونستم پیش برم . 

[softir 459]

در هم اکنون، arosha گفته است :

 

ممنونم از شما - کارتون درسته ، مثل اینکه مشکل از منه

- حتی در امولاتور هم تست کردم و ران گرفتم باز ، همینطور بوده و حتی سورس دیگه ایو با محتوا و دیتا ، و روش متفاوتی امتهان کردم !!!! باز همین مشکل (نشان ندادن متن های بلند در لیبل) وجود داره . 

شاید فرایندکامپایل برنامه بیسیک 4 اندروید من دچار اختلالاتی باشه ! (نمیدونم!) چندیدن بار هم حذف و نب کردم همچنین sdk و java

 

کمک های شما و سایر دوستان نبود تا همینجاش هم نمیتونستم پیش برم . 

نسخه 6.3 بیسک رو دانلود کن

[reza sabouri 444]

در 6 دقیقه قبل، softir گفته است :

نسخه 6.3 بیسک رو دانلود کن

داداش بیزحمت این سرسی رو که من آپلود کردم رو یه تست بزن ببین درسته !

دستت درد نکنه

http://s8.picofile.com/file/8275136134/Aksomatnjadid.rar.html

[softir 459]

در هم اکنون، 2roshke گفته است :

داداش بیزحمت این سرسی رو که من آپلود کردم رو یه تست بزن ببین درسته !

دستت درد نکنه

http://s8.picofile.com/file/8275136134/Aksomatnjadid.rar.html

دیدم

البته حق با شما بود تو مال بنده هم قبلا نشون نمی داد ولی الان تو این چیزی که آپلود کردی نشون میده

[arosha 17]

در 1 ساعت قبل، 2roshke گفته است :

داداش بیزحمت این سرسی رو که من آپلود کردم رو یه تست بزن ببین درسته !

دستت درد نکنه

http://s8.picofile.com/file/8275136134/Aksomatnjadid.rar.html

باز هم سلام  

مشکل حل شده . ممنون از پیگیری های شما دوستان فوق العاده . 

سورس های شما کاملا درست بوده و هست . امروز رفتم یک گوشی جدید تست زدم سورس های شما رو  و رو گوشی هوآوی p9 کاملا واضح نشون داد .

 ( در حقیقت مشکل توسط شما در همون مرحله اول حل شده بود )

 

• نتیجه : همیشه مشکل از سورس و کدنویسی بیسیک فور اندروید نمیتونه باشه ، پس باید نوع گوشی ،و ورژن اندروید ( پلتفرم اندروید) هم در نظر گرفت

میگم این بیسیک هم با هر گوشی حال نمیکنه ها !!

به هر حال از همکاری شما ، که خیلی کمکم کردین ممنونم . تا مسئله بعدی..