VB MSHFLEXGRID MSHFLEXGRID ͬʱѡÖв»Á¬ÐøµÄ¶àÐÐ
ÔÚ¹¤³ÌÖÐÌí¼ÓÒ»¸öÀàÄ£¿é£¬ÃûΪ Selection
È»ºó¼ÓÈëÒÔÏ´úÂ룺
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As MSFlexGrid
Public Sub ToggleSelection()
Dim x As Integer
Dim d
Dim mode As Boolean
Dim OldRow, OldCol
x = flx.Row
If x = 0 Then Exit Sub
On Error Resume Next
OldRow = flx.Row
OldCol = flx.col
d = colRows(CStr(x))
If Err Then ' not add
colRows.Add x, CStr(x)
mode = True
Else
colRows.Remove CStr(x) 'remove
mode = False
End If
MakeSelectedStatus x, mode
Ïà¹ØÎĵµ£º
¹¤×÷ÐèÒª£¬Õë¶ÔjavaÎļþ£¬×÷ÁËÒ»¸öÐÐÊýͳ¼ÆµÄ¹¤¾ß¡£Í³¼ÆµÄÖ÷Òª´úÂëÈçÏ£º
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
VBÒþ²Ø½ø³ÌÎÊÌâµÄÌÖÂÛÓÉÀ´ÒѾÃ,Ч¹ûÓкÃÓлµ,·´ÕýÊǸ÷Óи÷µÄÕÐ,żȻ»ú»á¿´µ½planet-sourceÒ»¶ÎÒþ²Ø½ø³ÌµÄÎÄÕÂ,×÷Õß˵²ÉÓÃÁËkernel mode driver!·½·¨,
µ¥´Ó¼¼Êõ·½·¨¶øÑÔ,ÕâÊÇÄ¿Ç°¼ûµ½Òþ²Ø½ø³ÌÖÐ×îÇ¿º·µÄÁË(¸öÈ˼û½â,¾®µ×Ö®ÍÜÁË),²»¹ýÕâÖÖ¶«Î÷ÓÃÔÚÕýÒåµÄÈËÊÖÉÏÊÇÒ»¸ö³ý±©°²Á¼µÄÀûÆ÷,ÓÃÐÄØϲâÕ߾Ͳ»ºÃ˵ÁË,µ«ÊǼ¼ÊõÖÕ¹éÊǼ¼Êõ ......
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷ ×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃÇ°´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖظ´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇô ÎÒÃÇÔõÑù²Å ......
http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£ ......
mxl=1 && ×î´óµÄÎı¾¿ò±àºÅ
mnl=1 &n ......