Oncelikle merhaba arkadaşlar tamamen kendime ait olan kodlama ile sistem ozelliklerini oğrenmek icin basit bir shell komutu ile directX ten oğreneceğiz sistem ozelliklerini.

Oncelikle bir command buton acıyoruz ve kodumuzu yazıyoruz.

Private Sub Command1_Click()
Shell ("dxdiag")
ProgressBar1.Value = ProgressBar1.Value + 100
End Sub

Sonra Ctrl + T ile Components sayfasını acıyoruz ve oradan microsof common controls 6 yı şeciyoruz tamam diyip kapatıyoruz ve solda menuden Progressbar ı seciyoruz ve progressbarı ' ın icine bu kodları yazıyoruz.

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ProgressBar1.Value = ProgressBar1.Value + 100
End Sub

Ve projeyi kaydetmek kalıyor geriye

Buda programın resmi.




__________________