Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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="ͼƬÃû"
¿ÉÒÔ²Î


Ïà¹ØÎĵµ£º

ÈçºÎÈÃÒ»¸öVB´°¿Ú×ÜÊÇ´¦ÓÚ¸÷´°¿ÚµÄ×îÉϲã

´úÂëÈçÏÂ:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _ 
       ¡¡ ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
 &n ......

¸øÒ»´ó¶Î VB ³ÌÐòÒ»´ÎÐÔ¼ÓÉÏ×¢ÊÍ·ûºÅ

VB ×¢ÊͳÌÐò´úÂëµÄ·ûºÅÊÇ '£¬Ö»ÒªÔÚijÐгÌÐòÇ°Ãæ¼ÓÉϸ÷ûºÅ¾Í¿ÉÒÔ×¢Ê͸ÃÐгÌÐò¡£µ«Èç¹û³ÌÐò´úÂëÓï¾äºÜ¶àµÄʱºò£¬Ò»ÐÐÒ»ÐеØ×¢Ê;ͷdz£²»·½±ã¡£Æäʵ VB
±¾ÉíÌṩÁËÒ»´ÎÐÔ×¢ÊͶàÌõÓï¾äµÄ¹¦ÄÜ£ºÔÚÖ÷²Ëµ¥“ÊÓͼ”Ñ¡ÏîµÄ“¹¤¾ßÀ¸”Ï£¬Ñ¡ÖГ±à¼­”£¬VB
µÄ½çÃæ»á³öÏÖÒ»ÅŹ¤¾ß°´Å¥£¬ÆäÖоÍÓÐÓà ......

VB ʵÏÖ¹ú¼Ê»¯

1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼­Æ÷”¾Í¿ÉÒԱ༭×ÊÔ´Îļþ
3.²¿·Ö´úÂë
  '´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
  LocaleID = GetSystemDefaultLCID
  Select Case LocaleID
   'Ó¢ÎÄ ......

vb´ò°üÏòµ¼ Éú³É°²×°Îļþ

vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0  mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔØµÄºÜ¶à°²×°³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......

VB¸´ÖÆÎļþ¼ÐµÄ·½·¨(·ÇFSO)

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ