06-10-13, 11:26 PM
07-10-13, 02:00 AM
السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا هو الكود
بالتوفيق
تفضل أخي هذا هو الكود
كود :
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
بالتوفيق
07-10-13, 05:20 PM
الف شكر
اخي Sooriaty
تم تجربة الكود، وعمل بنجاح
بارك الله فيك وبامثالك
اخي Sooriaty
تم تجربة الكود، وعمل بنجاح
بارك الله فيك وبامثالك