;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
鐐瑰嚮MSFlexGrid鏁版嵁鎺т欢鐨勬爣棰樿繘琛屾暟鎹帓搴忥紒 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> VB >> VB鏁版嵁搴 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

鐐瑰嚮MSFlexGrid鏁版嵁鎺т欢鐨勬爣棰樿繘琛屾暟鎹帓搴忥紒

鍙戝竷: 2008-7-15 14:43 |  浣滆: 缃戠粶杞浇 |   鏉ユ簮: 缃戠粶杞浇 |  鏌ョ湅: 74娆

鐐瑰嚮MSFlexGrid鏁版嵁鎺т欢鐨勬爣棰樿繘琛屾暟鎹帓搴忥紒

銆銆鍦ㄨ繘琛屾暟鎹簱缂栫▼鐨勬椂鍊欙紝缁忓父浼氱敤鍒癕SFlexGrid鎺т欢杩涜鏁版嵁鏄剧ず銆傚苟涓斿鏁版嵁杩涜鎺掑簭鏄繀涓嶅彲灏戠殑涓涓幆鑺傘備娇鐢╓INDOWS绯荤粺鐨勭敤鎴凤紝浼氫範鎯簬鐐瑰嚮鏍囬杩涜鏁版嵁鎺掑簭銆傝孧SFlexGrid鎺т欢鏈韩娌℃湁杩欎釜鍔熻兘锛岀瑪鑰呯粡杩囧疄璺碉紝鎬荤粨鍑轰簡鐐瑰嚮MSFlexGrid鏍囬杩涜鎺掑簭鐨勬柟娉曪紝涓庡ぇ瀹朵竴璧峰垎浜

绋嬪簭婧愮爜鍙互鍒版湰浜虹殑缃戠珯涓婁笅杞斤細http://j2soft.008.net/

銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆宕斿崰姘

銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆銆EMAIL:CUIZM@163.COM

鍏堟坊鍔燤SFlexGrid鎺т欢锛屾柟娉曪細鑿滃崟锛>宸ョ▼锛>閮ㄤ欢锛>Microsoft FlexGrid Control 6.0(鍚庨潰涓虹増鏈彿锛夛紝浠g爜濡備笅锛

Option Explicit

Private Const STR_SORT_ASC = "鈻"

Private Const STR_SORT_DESC = "鈻"

Private Sub Form_Load()

Dim i As Long

'娣诲姞涓浜涜瘯楠屾暟鎹

With MSFlexGrid1

.Rows = 51

.Cols = 5

For i = 0 To 50

.TextMatrix(i, 0) = ("Col" & i)

.TextMatrix(i, 1) = ("Col" & i)

.TextMatrix(i, 2) = ("Col" & i)

.TextMatrix(i, 3) = ("Col" & i)

.TextMatrix(i, 4) = ("Col" & i)

Next

End With

End Sub

'鎺掑簭鍑芥暟

Public Sub Sort(sgrd As MSFlexGrid, y As Single)

With sgrd

If y >= .RowPos(0) And y < .RowPos(1) Then

If .Tag <> "" Then

If .Tag <> .Col Then

.TextMatrix(0, .Tag) = Left(.TextMatrix(0, .Tag), Len(.TextMatrix(0, .Tag)) - 1)

End If

End If

If Right(.TextMatrix(0, .Col), 1) = STR_SORT_ASC Then

.Sort = flexSortGenericAscending

.TextMatrix(0, .Col) = Replace(.TextMatrix(0, .Col), STR_SORT_ASC, STR_SORT_DESC)

ElseIf Right(.TextMatrix(0, .Col), 1) = STR_SORT_DESC Then

.Sort = flexSortGenericDescending

.TextMatrix(0, .Col) = Replace(.TextMatrix(0, .Col), STR_SORT_DESC, STR_SORT_ASC)

Else

.Sort = flexSortGenericDescending

.TextMatrix(0, .Col) = .TextMatrix(0, .Col) & STR_SORT_ASC

End If

.Tag = .Col

End If

End With

End Sub

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Sort MSFlexGrid1, y

End Sub

銆銆浠g爜涓嶅锛屼笉杩囧疄鐜扮殑鍔熻兘杩樻槸寰堟柟渚跨殑锝烇綖锝烇綖锝

TAG: 鎺т欢 MSFlexGrid 鏁版嵁
鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆