[kslawy]

السلام عليكم ورحمة الله وبركاته

هذا الكود قمت بعمله لتوسيع أعمدة أداة الـ Listview لتأخذ حجمها بالنسبة المئوية علي حسب حجم الأداة :

الـدالــــــــــة :

كود :

[color=#0000ff]Public Function[/color] PercentWidth([color=#0000ff]ByVal [/color]Percent [color=#0000ff]As Decimal[/color], [color=#0000ff]ByVal[/color] lv [color=#0000ff]As[/color] ListView) [color=#0000ff]As Integer[/color]
[color=#0000ff]        On Error Resume Next[/color]
       [color=#0000ff] Return[/color] Percent * (lv.Width - 5) / 100
    End Function

يتم إستخدام الدالة عن طريق حدث الـ Resize الخاص بالـ Form ويمكن وضعه في أي حدث آخر كـ Timer مثلاً :

كود :

[color=#0000ff]Private Sub[/color] Form1_Resize([color=#0000ff]ByVal[/color] sender [color=#0000ff]As Object[/color], [color=#0000ff]ByVal [/color]e [color=#0000ff]As [/color]System.EventArgs)[color=#0000ff] Handles Me[/color].Resize
        [color=#0000ff]For Each[/color] c [color=#0000ff]As [/color]ColumnHeader In ListView.Columns
            [color=#0000ff]Select Case[/color] c.Index
                [color=#0000ff]Case [/color]0
                    c.Width = PercentWidth(50, ListView)
                [color=#0000ff]Case [/color]1
                    c.Width = PercentWidth(30, ListView)
                [color=#0000ff]Case [/color]2
                    c.Width = PercentWidth(20, ListView)
[color=#0000ff]            End Select[/color]
[color=#0000ff]        Next[/color]
   [color=#0000ff] End Sub[/color]

الكود أعلاه في حالة كانت الأداة تحتوي علي 3 أعمدة فقط .


****
***
**
*