|
|
|
|
| |
ListViev de sıralama
Private Sub MahalleListesi_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error Resume Next
Dim i As Integer
With MahalleListesi
For i = 1 To .ColumnHeaders.Count
If .ColumnHeaders(i).text = ColumnHeader Then
.SortKey = i - 1
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
.Sorted = True
End If
Next i
End With
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24643 ziyaretçi (38791 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
