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
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄÜ°ÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......