Visual Basic .NET (простой способ тестирования формы)

Question

Я использую Java для большинства своих проектов программирования, но вчера получил Visual Studio и хочу начать изучать, как использовать Visual Basic.

Я обычно на Java и могу просто скопировать и вставить код в класс и переименовать имя класса, и он будет работать.

Однако в Visual Basic это выглядит не так просто, как просто копировать и вставлять и переименовывать. Весь код Visual Basic .NET находится в решении, и из того, что я могу сказать, есть только основной метод в одной форме. В Java вы можете иметь основной класс в каждом классе и запускать класс просто так.

Я думал, что вы можете сделать это так же в Visual Basic .NET, но до сих пор не смогли найти способ сделать это. Я попытался сделать форму, а затем вставить код примера в форму загрузки и, похоже, не создавал ошибок, но не работал ни с одним из них.

Public Class GridsAndData 

    Private Sub GridsAndData_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red) 
     Dim formGraphics As System.Drawing.Graphics 
     formGraphics = Me.CreateGraphics() 
     formGraphics.DrawLine(myPen, 200, 400, 200, 200) 
     myPen.Dispose() 
     formGraphics.Dispose() 
    End Sub 
End Class 

Это был пример кода, который я попытался нарисовать одной строкой на форме.

Answer 1

Вы не должны нигде рисовать, кроме как в обработчике Paint в Windows. Вот пример, который работает с кодом, который вы опубликовали (помещенным в правильный метод):

Запустить новое решение WinForms (Файл-> Новый проект из главного меню).

После создания проекта щелкните по окну Свойства (по умолчанию в нижнем правом углу Visual Studio). Нажмите на кнопку (маленький молния), чтобы перейти на эту вкладку. Найти Краска вещь (в разделе Внешний вид) и дважды щелкните его.

Вставьте код в сгенерированный метод (который, по умолчанию, является Form1_Paint):

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint 
    ' Paste your code here - the part below "Private Sub" and above "End Sub" 
    Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red) 
    Dim formGraphics As System.Drawing.Graphics 
    formGraphics = Me.CreateGraphics() 
    formGraphics.DrawLine(myPen, 200, 400, 200, 200) 
    myPen.Dispose() 
    formGraphics.Dispose() 
End Sub