vb ÖÐ - VB / »ù´¡Àà
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ûÊǻҵģ¬»Øµ½ÉϴεÄnode¡£
ÎÒ¾ÍÊDz»ÏëÔÚclickʼþÀï×ö£¬ÏëÔÚÉú³ÉÊ÷½á¹¹µÄʱºò¾Í×öÅжÏ
Ñ¡Öл¹ÊÇ¿ÉÒÔÑ¡ÖеÄ,Äã¿ÉÒÔÆÁ±ÎµôËüµÄʼþ¾ÍÐÐÁË
ÔÙÕß,½ÚµãµÄÑÕÉ«Ò²ÊÇ¿ÉÒԸıäµÄ TreeView1.Nodes.Item(2).ForeColor = RGB(255, 0, 0)'ºìÉ«
VB code:
Private Sub Form_Load()
TreeView1.Nodes.Add , , "a", "A1"
TreeView1.Nodes.Add "a", tvwChild, "b", "B1"
TreeView1.Nodes.Add "a", tvwChild, "b2", "B2"
TreeView1.Nodes.Add "a", tvwChild, "b3", "B3"
TreeView1.Nodes.Add "a", tvwChild, "b4", "B4"
TreeView1.Nodes.Add "a", tvwChild, "b5", "B5"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
s = Val(InputBox("ÇëÊäÈëÃÜÂë", "ÃÜÂëÊäÈë"))
If s <> 123456 Then
TreeView1.Checkboxes = False
Else
TreeView1.Checkboxes = True
End If
End Sub
ллÁË
Ïà¹ØÎÊ´ð£º
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵĻ°ÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......