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Ê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ÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......