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
ллÁË
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......