منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] محتاج مساعدة في ListView - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] محتاج مساعدة في ListView (/showthread.php?tid=27315)



محتاج مساعدة في ListView - Simo1991 - 06-11-18

السلام عليكم

أريد أن المستخدم لاتكون له الصلاحية في تمديد وتقصير column وفي نفس الوقت ادا كان الشيئ المكتوب داخل listview أطول من عرض listview يظهر له شريط التمرير

شكرا


RE: محتاج مساعدة في ListView - Rabeea Qbaha - 06-11-18

PHP كود :
 'API Declaration in General Declarations
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    '
API Constants
    Const SET_COLUMN_WIDTH 
As Long 4126
    Const AUTOSIZE_USEHEADER 
As Long = -2

    
'Sub To Resize
    Private Sub AppNewAutosizeColumns(ByVal TargetListView As ListView)

        Const SET_COLUMN_WIDTH As Long = 4126
        Const AUTOSIZE_USEHEADER As Long = -2

        Dim lngColumn As Long

        For lngColumn = 0 To (TargetListView.Columns.Count - 1)

            Call SendMessage(TargetListView.Handle,
                SET_COLUMN_WIDTH,
                lngColumn,
                AUTOSIZE_USEHEADER)

        Next lngColumn
    End Sub