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 iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæдÁ˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æͼ°å£¨ÆÁÄ»,Piceure1£©µÄÒƶ¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......