19-02-13, 01:32 PM
السلام عليكم ورحمة الله وبركاته
هذا الكود قمت بعمله لتوسيع أعمدة أداة الـ Listview لتأخذ حجمها بالنسبة المئوية علي حسب حجم الأداة :
الـدالــــــــــة :
يتم إستخدام الدالة عن طريق حدث الـ Resize الخاص بالـ Form ويمكن وضعه في أي حدث آخر كـ Timer مثلاً :
الكود أعلاه في حالة كانت الأداة تحتوي علي 3 أعمدة فقط .
****
***
**
*
هذا الكود قمت بعمله لتوسيع أعمدة أداة الـ 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]
****
***
**
*