برابر کردن اندازه لیبل با پنل ؟

[jamejam32 15]

سلام دوستان خوبم من توی برنامه قسمت جست و جو گزاشتم ولی اندازه لیبلم که توش متنه با پنل یکی نمیشه لطفا راهنمایی کنید 

Sub btnsearch_Click

    ScrollView1.Panel.RemoveAllViews
    
    cursor1 = s.ExecQuery("SELECT * FROM khanevade_tbl WHERE matn LIKE '%" & txtsearch.Text & "%'")
    For i = 0 To cursor1.RowCount-1
    cursor1.Position = i
    Dim pnl1 As Panel
        pnl1.Initialize("pnl1")
        Dim int1 As Int
        Dim int2 As Int
    pnl1.Color=Colors.Green
        Dim su As StringUtils
        Dim lbl As Label
        lbl.Initialize("lbl")
        Dim lbl2 As Label
        lbl2.Initialize("lbl2")
Dim su As StringUtils
    ScrollView1.Panel.AddView(pnl1,0,int1,100%x,int1)
        pnl1.AddView(lbl,0,int1,100%x,int1)
            lbl.Text=cursor1.GetString("matn")
'            int2=pnl1.Height
            
        lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.text)
         int1 = int1 + lbl.Height 
'         i=i+int1
         Log(lbl.Height)
'        Log(cursor1.GetInt("id"))
        lbl.Color=Colors.Gray
        ScrollView1.Enabled=True
    Next
    ScrollView1.Panel.Height = int1
End Sub
 

[softir 459]

در 15 ساعت قبل، jamejam32 گفته است :

سلام دوستان خوبم من توی برنامه قسمت جست و جو گزاشتم ولی اندازه لیبلم که توش متنه با پنل یکی نمیشه لطفا راهنمایی کنید 

Sub btnsearch_Click

    ScrollView1.Panel.RemoveAllViews
    
    cursor1 = s.ExecQuery("SELECT * FROM khanevade_tbl WHERE matn LIKE '%" & txtsearch.Text & "%'")
    For i = 0 To cursor1.RowCount-1
    cursor1.Position = i
    Dim pnl1 As Panel
        pnl1.Initialize("pnl1")
        Dim int1 As Int
        Dim int2 As Int
    pnl1.Color=Colors.Green
        Dim su As StringUtils
        Dim lbl As Label
        lbl.Initialize("lbl")
        Dim lbl2 As Label
        lbl2.Initialize("lbl2")
Dim su As StringUtils
    ScrollView1.Panel.AddView(pnl1,0,int1,100%x,int1)
        pnl1.AddView(lbl,0,int1,100%x,int1)
            lbl.Text=cursor1.GetString("matn")
'            int2=pnl1.Height
            
        lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.text)
         int1 = int1 + lbl.Height 
'         i=i+int1
         Log(lbl.Height)
'        Log(cursor1.GetInt("id"))
        lbl.Color=Colors.Gray
        ScrollView1.Enabled=True
    Next
    ScrollView1.Panel.Height = int1
End Sub
 

دقیقتر بگو . جست و جو شما توش مولتی پنل هم داره ؟

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

درود

شما توی این فیلم یاد میگیرید که چطوری اندازه LABEL و PANEL رو با هم برابر کنید :

 

[jamejam32 15]

خیلی ممنون آقای ایزدی درست شد برام

حالا من اومدم کنار این پنل ایمیج ویو گزاشتم برا کلیک و کپی متن ولی وقتی روش کلیک میکنم متن لیبل مورد نظرم رو کپی نمیکنه بلکه یه لیبل دیگه رو کپی میکنه چکار کنم ؟