Şekil 1
Public Class Form1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GetSystemMetrics(73) Then
MessageBox.Show("Bilgisayarınız yavaş çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("Bilgisayarınız hızlı çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Public Class Form1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GetSystemMetrics(73) Then
MessageBox.Show("Bilgisayarınız yavaş çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("Bilgisayarınız hızlı çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder