Как нарисовать линии на форме, чтобы создать пользовательскую печатную форму.
Я работал над этим кодом:
Private Sub ABToolStripMenuItem_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ABToolStripMenuItem.Paint Dim var As System.Drawing.Graphics var = Me.CreateGraphics Dim pen1 As Pen pen1 = New Pen(Color.Black, 1) 'Horizontal line '1st moves the line further in, towards the middle. '2nd And 4th must be the same number And they bring the line down '3rd Is the length of the line 'var.DrawLine(pen1, 50, 90, 600, 90) var.DrawLine(pen1, 50, 200, 600, 200) var.DrawLine(pen1, 50, 230, 600, 230) 'Vertical line '1st And 3rd numbers must be the same number to keep the line straight '2nd move the position of the line inward '4th Is the vertical length var.DrawLine(pen1, 50, 200, 50, 1000) End Sub
Я хочу настроить его там, где я нажимаю на пункт меню AB, а затем он заполняется, проблема в том, что он заполняется в форме до того, как я что-либо нажму. Я просто выделяю пункт меню, и он автоматически рисует линии. Я хотел бы настроить его на рисование по щелчку пункта меню.
Кроме того, у меня также есть событие, которое добавляет метки на основе ABmenuitemclick. Проблема в том, что когда я складываю оба вместе, строки вообще не появляются. Читая форумы, я должен иметь событие, которое специально сделано для того, чтобы нарисовать линии. Вот почему я разделил код.
Что я уже пробовал:
Попробовал переключиться на событие. click, но программа вылетает из-за выполнения paint eventargs с помощью щелчка.