VB6에서 vb.net

Question

을위한 비주얼 베이직에 screen.width 및 screen.height에 해당하는 필요 나는 창 도킹하려면 다음 코드를했다 :

Public Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
    If IsBeingDragged = True And Button = MouseButtons.Left Then 
     'if the drag flag is true and left mouse button is pressed... 

     'set Left side docking 
     If Me.Left + (x - Xs) < DockScale Then 
      Me.Left = 0 
      Exit Sub 
     End If 
     'set Top side docking 
     If Me.Top + (y - Ys) < DockScale Then 
      Me.Top = 0 
      Exit Sub 
     End If 

     'set right side docking 
     If Me.Left + (x - Xs) + Me.Width > (Screen.Width - DockScale) Then 
      Me.Left = Screen.Width - Me.Width 
      Exit Sub 
     End If 

     'set bottom side docking 
     If Me.Top + (y - Ys) + Me.Height > (Screen.Height - DockScale) Then 
      Me.Top = Screen.Height - Me.Height 
      Exit Sub 
     End If 

     'move the form finally 
     Me.Left = Me.Left + (x - Xs) 
     Me.Top = Me.Top + (y - Ys) 
    End If 
End Sub 

지금 vb.net을 사용하고를 내가 시도 할 때 내 코드를 복사하여 붙여 넣기하면 screen.widht 및 screen.height이 systems.window.form.screen의 멤버가 아니라는 것을 알려주고 있습니다. vb.net에서 이에 상응하는 프로그램이 있습니까? 당신은 당신이 원하는 화면을 선택해야하고 "프레임 워크"당신이 거래를 원하는 것을 결정

Dim curScreen As Screen 
curScreen = Screen.PrimaryScreen 'curScreen = Screen.AllScreens(0) 
Dim height As Integer = curScreen.Bounds.Height 
height = curScreen.WorkingArea.Height 

을 :

Answer 1

샘플 코드는 VB.NET에서 화면 크기를 액세스 할 수 Bounds (전체 화면) 또는 WorkingArea (작업 표시 줄을 포함하지 않은 전체 화면).