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
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
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
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi -vSky -- 19 Mayıs 2022; 7:12:56 >