VB Treeview¿Ø¼þµÄÏêϸʹÓÃ
VB Treeview¿Ø¼þÏêϸʹÓ÷½·¨
1¡¢ÊôÐÔ
ÕâÀïÖ»¸ø´ó¼Ò½éÉÜTreeview¿Ø¼þµÄ¼¸¸ö³£Óûù±¾ÊôÐÔ
appearanceÊôÐÔ£ºÉèÖÿռäÊÇ·ñÒÔ3DЧ¹ûÏÔʾ
ÏêϸµÄÍâ¹ÛÉèÖÿÉÒÔתµ½´Ë¿Ø¼þµÄ“×Ô¶¨Òå”Ò³Ãæ½øÐÐÉèÖÃ
checkboxesÊôÐÔ£ºÔÚÊ÷µÄÿһÏîµÄÅԱߣ¬ÊÇ·ñÏÔʾһ¸ö¸´Ñ¡¿ò£¬ÀàËÆcheckbox¿Ø¼þµÄ×÷ÓÃ
hottrackingÊôÐÔ£ºµ±Êó±êÖ¸Õë¾¹ýij¸öÌõĿʱ£¬ÕâЩÌõÄ¿ÊÇ·ñÍ»³öÏÔʾ£¬ÀàËÆÍøÒ³µÄ³¬Á´½ÓЧ¹û
labeleditÊôÐÔ£º¾ö¶¨Óû§ÊÇ·ñÄܱ༿ؼþÖÐÁгöµÄÏîÄ¿£¬´ËÏîÈç¹û²»Ïë±»¸Ä±ä£¬¿É½«ÊôÐÔÖµÉèÖÃΪ1
linestyleÊôÐÔ£ºÉèÖÃÁгöµÄÿÏîÖ®¼äµÄÐÐÑùʽ£¬¼´£¬Èç¹ûΪ1£¬Ôòµ±Ç°ÏîÏ»¹ÓÐ×ÓÏîµÄʱºò£¬ËüµÄÇ°Ãæ»áÏÔʾ“+”ºÅ£¬Èç¹ûֵΪ2£¬Ôò²»ÏÔʾ“+”
singleselÊôÐÔ£ºÉèÖÃÔÚÊ÷ÖÐÑ¡ÔñеÄÌõĿʱ£¬ÊÇ·ñÕ¹¿ª´ËÌõÄ¿²¢ÊÕ£ǰһ¸öÌõÄ¿£¬¼´£¬ÉèÖÃΪTrueʱ£¬²¢ÇÒµ±Ç°Ñ¡ÖеÄÌõÄ¿ÓÐ×ÓÏîµÄʱºò£¬»á°Ñ×ÓÏîÕ¹¿ª£¬²¢½«ÔÀ´ÄãÑ¡ÖеÄÌõÄ¿ÊÕ££¬ÕâÒ»µãºÜʵÓá£
styleÊôÐÔ£ºÉèÖÃTreeview¿Ø¼þµÄÿ¸öÁбíµÄ×é³É·½Ê½£¬±ÈÈç“ͼƬ”+“Îı¾”·½Ê½£¬µÈµÈ£¬ÕâÑùÄã¾Í¿ÉÒÔ°ÑTreeviewŪµÃ¸üºÃ¿´Ò»Ð©¡£
2¡¢Ó÷¨½éÉÜ£º
Ò»¡¢Treeview¿Ø¼þÌí¼ÓÌõÄ¿ºÍ×ÓÌõĿͨ³£Ê¹ÓÃADD·½·¨£¬ÆäÓï·¨ÈçÏ£º
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
ÆäÖУº
relationship ²ÎÊýÊÇͨ¹ý¹ØÏµ½Úµã²ÎÊýÓëнڵãÁ¬½ÓµÄÁíÒ»¸ö½Úµã£»²ÎÊý¿ÉÄÜÊÇÒÔÏÂÇé¿ö£º
1-tvwlast ¸Ã½ÚµãÖÃÓÚËùÓÐÆäËûµÄÔÚrelativeÖб»ÃüÃûµÄͬһ¼¶±ðµÄ½ÚµãµÄºóÃæ
2-tvwNext ¸Ã½ÚµãÖÃÓÚÔÚrelativeÖб»ÃüÃû½ÚµãµÄºóÃæ
3-tvwPrevius ¸Ã½ÚµãÖÃÓÚÔÚrelativeÖб»ÃüÃûµÄ½ÚµãµÄÇ°Ãæ
4-tvwChild ¸Ã½Úµã³ÉΪÔÚrelativeÖб»ÃüÃûµÄ½ÚµãµÄµÄ×Ó½Úµã
ÏêϸÓï¾ä¿É²Î¿¼ÏÂÁгÌÐò´úÂë:
´´½¨¸¸½ÚµãÌõÄ¿
TreeView.Nodes.Add , , "Father", "Father"
´´½¨´Ë½ÚµãµÄ×Ó½ÚµãÌõÄ¿
TreeView.Nodes.Add "Father", tvwChild, , "Child"
×¢Òâ´´½¨×Ó½ÚµãµÄʱºò,relative²ÎÊýΪ¸¸½ÚµãµÄÎı¾"Father"
¶þ¡¢Ìí¼ÓͼÏñ
Ϊ½Úµã²åÈëͼÏó¿É²Î¿¼Óï¾ä£º
¡¡¡¡¡¡Treeview.node(index).image="ͼƬÃû"
¿ÉÒÔ²Î
Ïà¹ØÎĵµ£º
Private Sub Form_load()
'ÅжϳÌÐòÊÇ·ñÒѾÔËÐÐ
If App.PrevInstance
Then
MsgBox "±¾³ÌÐòÒѾÔËÐУ¡", vbInformation Or vbOKOnly, "ÌáʾÐÅÏ¢"
Unload
Me
Exit Sub
&n ......
½ñÌ칫˾ҪÇóÓÃC#д¸öÑéÖ¤Âë×é¼þ£¬ÈÃasp¿ÉÒÔµ÷Óã¬ÔÚÍøÉÏÕÒÁËÒ»¶Ñ×ÊÁÏ£¬ÖÕÓÚ¸øÎÒ¸ø¸ã³öÀ´ÁË£¬ÒòΪ±¾È˵ÚÒ»´Îд×é¼þ£¬Ò²ÊǵÚÒ»´Î·¢±íÎÄÕ£¬ËùÓпÉÄÜ˵µÄ²»ÊǺܺ㬴ó¼ÒÇë¼ûÁ¡£
csdnÉÏÓÐÕâôƪÎÄÕ£¬Ïëѧϰд×é¼þµÄ¿ÉÒÔÈ¥¿´¿´£ºhttp://blog.csdn.net/KimmKi ......
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Dim lang As String
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByV ......
vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔØµÄºÜ¶à°²×°³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
²»ÓÃFSOµÄ¸´ÖÆÎļþ¼ÐµÃ·½·¨£¿
ÓÃAPIº¯Êý SHFileOperation
ÒÔÏÂÊÇʹÓÃSHFileOperationɾ³ý¸´ÖÆÒƶ¯ÎļþµÄÀý×Ó£¬¿ÉÒÔ¸´ÖÆÎļþ¼Ð
Private Type SHFILEOPSTRUCT
¡¡¡¡hwnd As Long
¡¡¡¡wFunc As Long
¡¡¡¡pfrom As String
¡¡¡¡pTo As String
¡¡¡¡fFlags As ......