Merhaba, verdiğim regedit yolunda Khronos'un içinde 3 tane dosya var. Aşağıda ki kodu uyguladığımda listbox'a eklemeyi "System.String" olarak yapıyor ama ben dosyaların isimleri yazmasını istiyorum.
Örnek olarak ...\Khronos içinde Test1/Test2/Test3 adında 3 klasör olduğunu varsayalım. Listbox'a sıraladığımda "System.String" Yerine Test1/Test2/Test3 yazmasını istiyorum.
Kullandığım kod;
Dim ListName As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\WOW6432Node\Khronos") For Each ValueName As String In ListName.GetSubKeyNames() Dim Value As Object = ListName.GetValueNames If Value IsNot Nothing Then ListBox1.Items.Add(Value.ToString()) End If Next
< Bu mesaj bu kişi tarafından değiştirildi -vSky -- 19 Mayıs 2022; 7:12:56 >
Ezbere yazıyorum, denersin. Dim value As Object ve devamındaki If bloğunu silip yerine:
For Each value As String in ListName.GetValueNames()
ListBox1.Items.Add(value)
Next
Subkey'lerin içindeki value yani değerleri almak için bu döngü bloğunu GetSubKeyNames methoduna ait For Each döngü bloğu içine yerleştir. Yazdıklarından o şekilde anlaşılıyor.
< Bu mesaj bu kişi tarafından değiştirildi programmer_onur -- 19 Mayıs 2022; 22:52:13 >
Örnek olarak ...\Khronos içinde Test1/Test2/Test3 adında 3 klasör olduğunu varsayalım. Listbox'a sıraladığımda "System.String" Yerine Test1/Test2/Test3 yazmasını istiyorum.
Kullandığım kod;
Dim ListName As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\WOW6432Node\Khronos")
For Each ValueName As String In ListName.GetSubKeyNames()
Dim Value As Object = ListName.GetValueNames
If Value IsNot Nothing Then
ListBox1.Items.Add(Value.ToString())
End If
Next
< Bu mesaj bu kişi tarafından değiştirildi -vSky -- 19 Mayıs 2022; 7:12:56 >