VB treeview ¶àÖØÑ¡ÔñµÄÎÊÌâ - VB / ¿Ø¼þ
ÔÚVBÖУ¬×Ô¶¯Éú³ÉµÄÊ÷¿Ø¼þÈçͼ£ºÎÒÏëÔڿؼþÖа´×¡SHIFT¼üÑ¡ÔñFoldersÏÂÃæµÄÎļþ¡£
´úÂëÈçÏ£º
Try
If ParentCategoryNode.Text = "Folders" Then
If e.Shift Then
For i = 0 To ParentCategoryNode.Nodes.Count - 1
[color=#3366FF]If ParentCategoryNode.Nodes(i).Checked Then
MessageBox.Show(tvProject.SelectedNode.Nodes.Item(i).Text.ToString())
End If
Next
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try[/color]
Èç¹ûÈ¥µôÀ¶É«µÄIFÅжϣ¬Ôò¿ÉÒÔ½«FolderÏÂÃæµÄÎļþ¶¼µ¯³öÀ´£¬µ«ÊÇ£¬Èç¹û¼ÓÁËIFÅжϣ¬¾Í»á³öÏÖÒì³£¡£¶ÔÁË£¬ÕâÀïµÄÒì³£»¹Êǵã»÷ÁËFolderÏÂÃæµÄÎļþ¾Í»á³öÏÖ¡£
²»ÖªµÀÎÒµÄÎÊÌâÓÐûÓÐÃèÊöÇå³þ£¬ÇëÄãÃǰïæ£¡
°ï¶¥£¡~~
.net
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......