Anasayfa > Kodlar > Visual Basic 6 ile Windows’un simetrik özelliklerini veren kod

Visual Basic 6 ile Windows’un simetrik özelliklerini veren kod


Windows'un simetrik özelliklerini veren kod

Bu kod ile pencerelerin büyüklüğünden farenizde kaç tuş olduğuna, windows'un hangi kipte çalıştığına kadar herşeyini görebilirsiniz. Bunun için bir listbox çizmeniz ve aşağıdaki kodları yazmanız yeterli.


Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Sub Command1_Click()
frmAbout.Show
End Sub

Private Sub Command2_Click()
End
End Sub

Sub Form_Load()
List1.AddItem "BU PROGRAM WINDOWS HAKKINDA BAZI BİLGİLER VERİR"
List1.AddItem ""

List1.AddItem "0  Ekranın yatay genişliği=" & GetSystemMetrics(0)
List1.AddItem "1  Ekranın dikey genişiliği=" & GetSystemMetrics(1)
List1.AddItem "2  Dikey kaydırma çubuğundaki okun boyutu=" & GetSystemMetrics(2)
List1.AddItem "3  Yatay kaydırma çubuğundaki okun boyutu=" & GetSystemMetrics(3)
List1.AddItem "4  Pencere başlığının Yüksekliği=" & GetSystemMetrics(4)
List1.AddItem "5  Boyutlandırılmayan pencerelerin yatay kenarlık kalınlığı=" & GetSystemMetrics(5)
List1.AddItem "6  Boyutlandırılmayan pencerelerin dikey kenarlık kalınlığı=" & GetSystemMetrics(6)
List1.AddItem "7  Dialog kutularının yatay kenarlık kalınlığı=" & GetSystemMetrics(7)
List1.AddItem "8  Dialog kutularının dikey kenarlık kalınlığı=" & GetSystemMetrics(8)
List1.AddItem "9  Yatay kaydırma çubuklarındaki kaydırma kutusunun yüksekliği=" & GetSystemMetrics(9)
List1.AddItem "10 Yatay kaydırma çubuklarındaki kaydırma kutusunun genişliği=" & GetSystemMetrics(10)
List1.AddItem "11 Standart ikon genişliği=" & GetSystemMetrics(11)
List1.AddItem "12 Standart ikon yüksekliği=" & GetSystemMetrics(12)
List1.AddItem "13 Standart kursor genişliği=" & GetSystemMetrics(13)
List1.AddItem "14 Standart kursor yüksekliği=" & GetSystemMetrics(14)
List1.AddItem "15 Menü yüksekliği=" & GetSystemMetrics(15)
List1.AddItem "16 Ekranı kaplamış durumdaki menünün iç genişliği=" & GetSystemMetrics(16)
List1.AddItem "17 Ekranı kaplamış durumdaki menünün iç yülsekliği=" & GetSystemMetrics(17)

If GetSystemMetrics(19) Then
List1.AddItem "18 Bilgisayara bağlı bir fare var"
Else
List1.AddItem "18 Bilgisayara bağlı bir fare yok"
End If
List1.AddItem "19 Dikey kaydırma çubuğundaki okun yüksekliği=" & GetSystemMetrics(20)
List1.AddItem "20 Dikey kaydırma çubuğundaki okun genişliği=" & GetSystemMetrics(21)

If GetSystemMetrics(22) Then
List1.AddItem "21 Windows debug modunda çalışıyor"
Else
List1.AddItem "21 Windows debug modunda çalışmıyor"
End If

If GetSystemMetrics(23) Then
List1.AddItem "23 Fare düğmeleri yer değiştirilmiş"
Else
List1.AddItem "23 Fare düğmeleri yer değiştirilmemiş"
End If
List1.AddItem "24 Pencerenin alabilecek minimum genişliği=" & GetSystemMetrics(28)
List1.AddItem "25 Pencerenin alabilecek minimum yüksekliği=" & GetSystemMetrics(29)
List1.AddItem "26 Başlık çubuğundaki resmin genişliği=" & GetSystemMetrics(30)
List1.AddItem "27 Başlık çubuğundaki resmin yüksekliği=" & GetSystemMetrics(31)
List1.AddItem "28 Çift tıklama için farenin yatay sapma genişliği=" & GetSystemMetrics(36)
List1.AddItem "29 Çift tıklama için farenin yatay sapma yüksekliği=" & GetSystemMetrics(37)
List1.AddItem "30 Masaüstü ikonlarının genişliği=" & GetSystemMetrics(38)
List1.AddItem "31 Masaüstü ikonlarının yüksekliği=" & GetSystemMetrics(39)

If GetSystemMetrics(40) Then
List1.AddItem "32 Popup menüleri sağ tarafa doğru açılıyor"
Else
List1.AddItem "32 Popup menüleri sağ tarafa doğru açılmıyor"
End If

If GetSystemMetrics(41) Then
List1.AddItem "33 Kalem yüklenmiş onun handle numarası==" & GetSystemMetrics(41)
Else
List1.AddItem "33 Kalem yüklenmemiş"
End If

If GetSystemMetrics(42) Then
List1.AddItem "34 Window karakterler için iki byte (Japonca gibi) kullanıyor"
Else
List1.AddItem "34 Window karakterler için iki byte (Japonca gibi) kullanmıyor"
End If

List1.AddItem "35 Farede bulunan düğme sayısı" & GetSystemMetrics(43)
List1.AddItem "36 Başlıkların genişliği=" & GetSystemMetrics(51)
List1.AddItem "37 Ekranı kaplamış durumdaki pencerenin yüksekliği" & GetSystemMetrics(61)

If GetSystemMetrics(63) Then
List1.AddItem "38 Yüklü bir ağ var"
Else
List1.AddItem "38 Yüklü bir ağ yok"
End If

Select Case GetSystemMetrics(67)
Case 0: List1.AddItem "39 Windows açılış modu. Normal"
Case 1: List1.AddItem "39 Windows açılış modu. Güvenli kip"
Case 2: List1.AddItem "39 Windows açılış modu. Ağ desteğiyle Güvenli kip"
End Select

List1.AddItem "40 Menülerdeki check işaretinin genişliği=" & GetSystemMetrics(71)
List1.AddItem "41 Menülerdeki check işaretinin yüksekliği=" & GetSystemMetrics(72)

If GetSystemMetrics(73) Then
List1.AddItem "42 Bilgisayarınız çok yavaş"
Else
List1.AddItem "42 Bilgisayarınız çok yavaş değil"
End If

If GetSystemMetrics(74) Then
List1.AddItem "43 Arapça Windows var"
Else
List1.AddItem "43 Arapça Windows yok"
End If
End Sub

 


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: