[mmaalmesry]

السلام عليكم و رحمة الله و بركاته

مرفق بالرسالة مثال VB6 لتغيير حجم الشاشة فما هو الكود المقابل فى .NET

وشكرا

[DR.YASER]

السلام عليكم أخى الفاضل 
بداية .. هذه الـ 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