Drawing Questions

[UConnVendetta]

I remember in VB 6.0, I could draw a line. It really helped out with doing some GUI. But now it doesnt exist in .net and I really need it. Its too bad my version of 6.0 was only working model and i can't make stand-alone exes with it.

I've had my share of "fun" working with TreeView and I'm trying a different approach that uses a collection of buttons and one sub that handles all the click events. The problem here is that I want the button layout to LOOK like a TreeView control so I need to be able to draw some lines between the buttons.

I have already tried the following code:

Private Sub frmButton_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim pen As New Drawing.Pen(System.Drawing.Color.Black, 5)
    Me.CreateGraphics.DrawLine(pen, 24, 56, 24, 504)
    pen.Dispose()
End Sub


When I try to compile I get no errors, but when the form loads, I do not see the line at all (and I'm sure that the line is NOT under the buttons on the form ). Any ideas what I might be doing wrong?

[Pirate]

Paste a lable into the form , make the height =1 and the width =any number . Now , it's like the line control in VB6 .

[UConnVendetta]

Though that does work, I really want to know how to do it codewise. Someone please help!

[Pirate]

The code you posted draws a line .

[dynamic_sysop]

try this , you should get a red line across your form

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        With e.Graphics
            Dim p As New Pen(Color.Red, 5)
            .DrawLine(p, 0, 50, Me.Width, 50)
        End With
    End Sub

[UConnVendetta]

Originally posted by dynamic_sysop
try this , you should get a red line across your form

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        With e.Graphics
            Dim p As New Pen(Color.Red, 5)
            .DrawLine(p, 0, 50, Me.Width, 50)
        End With
    End Sub

This works but how is it called? Should I call it from my form_load?

[Kasracer]

Originally posted by UConnVendetta
This works but how is it called? Should I call it from my form_load?

It loads by itself when the form is created.

[dynamic_sysop]

if you do it in Form_Paint , as i did , it will always put the line there ( starting from the moment you load the form )
also you should try to avoid calling an item by a keyword / expression ( eg: Pen as Pen ) use something else like " P as Pen " or MyPen as Pen " , this occassionally causes errors and can mislead you

[UConnVendetta]

So you're right. OK. I don't know why it wasnt workings for me. Maybe because I was trying to put it in Form_Load instead of Form_Paint. But Whatever....

Well here's some random knowledge about VB.net:

If you_make_a_form_hide And show_a_new_form Then
    'when you decide to close the form by hitting the X
    theFormWill.Close()
    'but the previous form that was hidden will remain in memory.
End If
 
'to make sure no part of your program stays in the memory,
'after closing your app you need the following sub:
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
'and inside the sub you need the word
    End 'this will close all forms, and all open project files.
End Sub

[crpietschmann]

You could draw a line in the Paint event, and every time the object is painted, it will draw that line.

Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
     'This example will draw two lines creating an X on the Button1 object.
     Dim myPen As Pen = New Pen(Color.Red)
     e.Graphics.DrawLine(myPen, 0, 0, e.ClipRectangle.Width, e.ClipRectangle.Height)
     e.Graphics.DrawLine(myPen, 0, e.ClipRectangle.Height, e.ClipRectangle.Width, 0)
 
End Sub