T A J P R O G Чоршанбе, 21.08.2019, 03:55
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Ба сомонаи мо баҳо диҳед!
Ҷавобҳо ҳамагӣ: 581

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


01:16
Дарси 25. Ба даст овардани ҳаммаи калиди қайдҳо дар listview ?

Код Visual Basic .NET

Public Sub allKeys(ByVal key As Microsoft.Win32.RegistryKey, ByVal path As String, ByVal listview As ListView, ByVal inAll As Boolean)
        Dim MySK As Microsoft.Win32.RegistryKey
        Try
            MySK = key.OpenSubKey(path, True)
            If inAll = True Then
                For Each a In MySK.GetSubKeyNames
                    Application.DoEvents()
                    allKeys(key, path & "\" & a, listview, True)
                Next
            End If
            For I As Integer = 0 To MySK.ValueCount - 1
                Try
                    Dim a(2) As String
                    a(0) = MySK.GetValueNames(I)
                    a(1) = MySK.GetValue(MySK.GetValueNames(I))
                    a(2) = MySK.Name
                    Dim b As New ListViewItem(a)
                    listview.Items.Add(b)
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

 

 

 

Просмотров: 138 | Добавил: aplove | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Календарь
«  Март 2014  »
ДСЧПҶШЯ
     12
3456789
10111213141516
17181920212223
24252627282930
31

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.