21-08-22, 10:13 AM
21-08-22, 01:20 PM
السلام عليكم أخى الفاضل
بداية .. هذه الـ Function ترجع الأبعاد الفعلية للشاشة الآن
بداية .. هذه الـ Function ترجع الأبعاد الفعلية للشاشة الآن
كود :
Public Function ScreenResolution() As String
Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
Return intX & " × " & intY
End Functionكود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox(ScreenResolution)
End Sub