Controle Line para usuários do Visual Basic 6.0

Artigo
08/25/2010

The Line controle no Visual Basic 6.0 não possui nenhum equivalente Visual Basic 2008. No entanto, você pode usar métodos gráficos para obter os mesmos resultados ou você pode usar o Visual Basic potência Packs opcional LineShape controle.

Diferenças Conceituais

No Visual Basic 6.0, a Line controle oferece uma maneira fácil para desenhar linhas em um formulário em time de design. The Linecontrole é um "controle leve" - isto é, não possui um manipulador Windows, também chamado de um HWnd.

In Visual Basic 2008, não há nenhum equivalente para o Line Não há suporte para o controle e controles simplificados. No entanto, existem maneiras para desenhar linhas em um formulário tanto em time de design e em time de execução.

Observação:
O opcional Visual Basic Alimentação Incluem pacotes de controles LineShape, OvalShape, e RectangleShape controles que podem ser usados para substituir o Line e Shape controles. Como duplicar o comportamento do Visual Basic 6.0 de Line e Shape controles, esses controles adicionar novos recursos. Esses incluem preenchimentos de gradiente, executar seleção horário e executar eventos de time.

Você pode baixar o Visual Basic potência Packs do Microsoft Visual Basic 2005 potência Packs página no site da MSDN.

Em time de design, você pode desenhar uma linha vertical ou horizontal em um formulário adicionando um Label configuração e controle o Text propriedade para uma seqüência vazia, o BorderStyle propriedade para Nonee o Width ou Height propriedade para 1.

Em time de execução, você pode desenhar linhas verticais, horizontais ou diagonal em Paint manipulador de eventos, criando um novo Graphics objeto e chamando seus métodos.

No Visual Basic 6.0, você pode usar um Line controle para desenhar uma linha na parte superior de um caixa de controles sistema autônomo um PictureBox ou Frame controle adicionando um Line controle para o recipiente.

In Visual Basic 2008, você pode obter o mesmo efeito chamando o DrawLine método na Paint evento do controle no contêiner.

Alterações de código para o controle Line

Os exemplos a seguir ilustram as diferenças na codificação técnicas entre o Visual Basic 6.0 e Visual Basic 2008.

Desenhando linhas horizontais ou verticais

O código a seguir demonstra como desenhar linhas horizontais e verticais em um formulário em tempo de execução.No exemplo do Visual Basic 6.0, a Line controle é usado; assume que dois Line controles foram adicionados em time de design. The Visual Basic 2008 exemplo demonstra dois métodos - usando um Label controle e uso Graphics métodos.

Observação:
No Visual Basic 6.0 , a unidade de medida padrão é twips; no Visual Basic 2008, ela é pixels.

' Visual Basic 6.0
Private Sub Form_Load()
    ' Draw a horizontal line 200 twips from the top of the form.
    Line1.X1 = 0
    Line1.X2 = Me.Width
    Line1.Y1 = 200
    Line1.Y2 = 200
    Line1.BorderColor = vbRed
    Line1.BorderWidth = 1
    ' Draw a vertical line 200 twips from the left of the form.
    Line1.Y1 = 0
    Line1.Y2 = Me.Height
    Line1.X1 = 200
    Line1.X2 = 200
    Line1.BorderColor = vbBlue
    Line1.BorderWidth = 1

' Visual Basic
' Using Label controls.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Line1 As New System.Windows.Forms.Label
    Dim Line2 As New System.Windows.Forms.Label
    ' Draw a horizontal line 14 pixels from the top of the form.
    Line1.Location = New System.Drawing.Point(0, 14)
    Line1.Size = New System.Drawing.Size(Me.Width, 1)
    Line1.BorderStyle = BorderStyle.None
    Line1.BackColor = System.Drawing.Color.Red
    Line1.Text = ""
    Controls.Add(Line1)
    ' Draw a vertical line 14 pixels from the left of the form.
    Line2.Location = New System.Drawing.Point(14, 0)
    Line2.Size = New System.Drawing.Size(1, Me.Height)
    Line2.BorderStyle = BorderStyle.None
    Line2.BackColor = System.Drawing.Color.Blue
    Line2.Text = ""
    Controls.Add(Line2)
End Sub

' Visual Basic
    ' Using Graphics methods.
Private Sub Form1Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a horizontal line 28 pixels from the top of the form.
    e.Graphics.DrawLine(Pens.Red, 0, 28, Me.Width, 28)
    ' Draw a vertical line 28 pixels from the left of the form.
    e.Graphics.DrawLine(Pens.Blue, 28, 0, 28, Me.Height)
End Sub

Desenhando uma linha diagonal

O código a seguir demonstra como desenhar uma linha diagonal em um formulário em time de execução.No exemplo do Visual Basic 6.0, a Line controle é usado; presumir que um Line controle foi adicionado em time de design. The Visual Basic 2008 Os exemplos de uso Graphics métodos.

Observação:
No Visual Basic 6.0 , a unidade de medida padrão é twips; no Visual Basic 2008, ela é pixels.

' Visual Basic 6.0
Private Sub Form_Load()
    ' Draw a diagonal line from the top left to the lower right.
    Line1.X1 = 0
    Line1.X2 = Me.ScaleWidth
    Line1.Y1 = 0
    Line1.Y2 = Me.ScaleHeight
    Line1.BorderColor = vbBlack
    Line1.BorderWidth = 1
End Sub

' Visual Basic
Private Sub FormPaint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a diagonal line from the top left to the lower right.
    e.Graphics.DrawLine(Pens.Black, 0, 0, Me.ClientSize.Width, _
    Me.ClientSize.Height)
End Sub

Observações de Atualização

Quando um aplicativo é atualizado do Visual Basic 6.0, o código que referencia o Line controle é atualizado para usar o LineShape controle que está incluído na biblioteca do Visual Basic potência Packs opcional. Se uma referência para o Line controle é encontrado durante a atualização, um aviso é emitido e você terá de instalar a biblioteca e referenciá-los de seu projeto atualizado.

Você pode baixar o Visual Basic potência Packs do Microsoft Visual Basic 2005 potência Packs página no site da MSDN.

Consulte também

Conceitos

Elementos gráficos para usuários do Visual Basic 6.0

Partilhar via