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
Ïà¹ØÎĵµ£º
ÌâÄ¿:
ÈçºÎ»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·
´°¿ÚÓÐWebBrowser1£¬ºÍÒ»¸öText1
ÏÖÔÚ
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
´ò¿ª´°ÌåÏÔʾ°Ù¶ÈµÄÊ×Ò³£¬ÒªÇ󻬶¯Êó±êµ½“ÐÂÎŔʱ
Text1ÀïÏÔʾhttp://news.baidu.com/
»¬¶¯µ½“Ìû°É”ʱ
Text1ÀïÏÔʾÇå¿ ......
´ó¼Ò¶¼ÖªµÀ¹²ÏíÈí¼þ¶¼ÓÐËüÃǵÄÊÔÓÃÆÚ£¬¼´¸øÄãÒ»¸ö¹Ì¶¨µÄÆÚÏÞÃâ·ÑʹÓá£
Ó¦ÓеŦÄÜ£º
1£©¸ø¶¨Ò»¸öÊÔÓÃÆÚÏÞ£¬ÔÚϵͳÿ´ÎÆô¶¯Ê±»áÅжÏÈí¼þÒѾʹÓÃÁ˼¸Ì죬»¹Óм¸Ìì¿ÉÒÔ¼°Æô¶¯µÄ´ÎÊý¡£
2£©µ±ÏµÍ³ÈÕÆÚ±»Ð޸ijÉÍùÈÕµÄÈÕÆÚºó£¬ÏµÍ³ÄÜ×Ô¶¯Åб𣬽ûÖ¹ÐÞ¸ÄÈÕÆÚ £¬²»Ó ......
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
Ö±½ÓÔËÐÐÍøÒ³ÖеÄJavaScript£º
function alllefttab()
WebBrowser1.Document.par ......
mxl=1 && ×î´óµÄÎı¾¿ò±àºÅ
mnl=1 &n ......