• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

MSFlexGrid de sütun sıralama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] ALTUST [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Boolean[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] MSFlexGrid1_MouseDown(Button [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], Shift [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], x [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Single[/FONT][font='Titillium Web', sans-serif], y [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Single[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] y >= 0 [/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] y <= MSFlexGrid1.RowHeight(0) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] x <= MSFlexGrid1.ColWidth(0) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]MSFlexGrid1.Col = 0[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] x >= MSFlexGrid1.ColPos(MSFlexGrid1.ColSel) [/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] x <= MSFlexGrid1.ColPos(MSFlexGrid1.ColSel) + MSFlexGrid1.ColWidth(MSFlexGrid1.ColSel) [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] MSFlexGrid1.Col = MSFlexGrid1.ColSel[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]ALTUST = [/FONT][font='Titillium Web', sans-serif]Not[/FONT][font='Titillium Web', sans-serif] ALTUST[/FONT]
[font='Titillium Web', sans-serif]MSFlexGrid1.Sort = IIf(ALTUST = [/FONT][font='Titillium Web', sans-serif]True[/FONT][font='Titillium Web', sans-serif], 1, 2)[/FONT]
[font='Titillium Web', sans-serif]MSFlexGrid1.*******[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt