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

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

منع العبث باعمدة الليست فيو؟ - kafi2030 - 06-10-13

بسم الله الرحمن الرحيم
السلام عليكم

كيف لي ان امنع المستثمر من العبث بالحد الفاصل بين اعمدة الليست فيو ؟

والف شكر

RE: منع العبث باعمدة الليست فيو؟ - sooriaty03 - 07-10-13

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

تفضل أخي هذا هو الكود

كود :
Dim OldWidth As Integer = -1
    Private Sub ListView1_ColumnWidthChanging(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnWidthChangingEventArgs) Handles ListView1.ColumnWidthChanging
        e.Cancel = True
        OldWidth = ListView1.Columns.Item(e.ColumnIndex).Width
    End Sub
    Private Sub ListView1_ColumnWidthChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnWidthChangedEventArgs) Handles ListView1.ColumnWidthChanged
        If OldWidth > -1 Then
            ListView1.Columns.Item(e.ColumnIndex).Width = OldWidth
            OldWidth = -1
        End If
    End Sub

بالتوفيق

RE: منع العبث باعمدة الليست فيو؟ - kafi2030 - 07-10-13

الف شكر
اخي Sooriaty

تم تجربة الكود، وعمل بنجاح

بارك الله فيك وبامثالك