Como alinhar à direita seqüências de caracteres quando você imprime usando Visual Basic .NET ou Visual Basic 2005

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 831488
Sumário
Este artigo passo a passo descreve como alinhar à direita seqüências de caracteres quando você imprime usando o Microsoft Visual Basic .NET ou Microsoft Visual Basic 2005.

Você pode usar os seguintes métodos para alinhar à direita seqüências de caracteres quando você imprime usando Visual Basic .NET ou Visual Basic 2005:
  • O método PadLeft (Integer, char)
  • O método PadLeft (Integer)
back to the top

Criar um projeto Microsoft Windows Application

Para criar um projeto Windows Application, execute essas etapas:
  1. Inicie o Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005.
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .

    A caixa de diálogo New Project é exibida.
  3. Em Project Types , clique em Projetos do Visual Basic .

    Observação No Visual Studio 2005, clique em Visual Basic em vez de Projetos do Visual Basic .
  4. Em modelos , clique em Windows Application e em seguida, clique em OK .

    Por padrão, o formulário é criado de Form1.
  5. Adicionar dois controles de botão para Form1.

    Por padrão, o controle Button1 e Button2 controle são adicionados ao Form1.
  6. Adicione um controle ListBox ao Form1.

    Por padrão, o controle ListBox1 é adicionado ao Form1.
back to the top

Use o método PadLeft (Integer, char) para alinhar à direita seqüências de caracteres quando você imprimir

Você pode utilizar a propriedade itens de um controle ListBox para vincular o controle ListBox todos os itens de lista. O método PadLeft (Integer, char) alinha à direita os caracteres em uma seqüência de caracteres por preenchimento os caracteres com espaços à esquerda para um período total especificado. Para usar este procedimento, execute estas etapas:
  1. Clique duas vezes em Button1 .
  2. Adicione o seguinte código para o manipulador de eventos Button1_Click :
    Dim st As String = "6.25"Dim st2 As String = "14.25"Dim dt As String = "|"Dim st1 As String = "$"Dim mt As String = st1 + st + dtDim mt1 As String = st1 + st2 + dtDim pt As Char = " "ListBox1.Items.Add("|" + mt.PadLeft(20 - Len(st), pt))ListBox1.Items.Add("|" + mt1.PadLeft(20 - Len(st2), pt))
back to the top

Use o método PadLeft (Integer) para alinhar à direita seqüências de caracteres quando você imprimir

Você pode usar a versão sobrecarregada do método PadLeft (Integer) para alinhar à direita seqüências de caracteres quando você imprime. Esta versão do método PadLeft alinha à direita os caracteres em uma seqüência de caracteres por preenchimento os caracteres com espaços à esquerda para um período total especificado. Para usar este procedimento, execute estas etapas:
  1. Na lista drop-down caixa no canto superior esquerdo do Visual Studio .NET Editor, clique para selecionar o método Button2 .
  2. Na lista drop-down caixa no canto superior direito do Visual Studio .NET Editor, clique para selecionar o evento Click correspondente.
  3. Adicione o seguinte código para o manipulador de eventos Button2_Click :
    Dim str As String = "6.25"Dim str1 As String = "14.25"Dim str2 As String = "12345.6789"ListBox1.Items.Add("K" & str.PadLeft(20 - Len(str)) & "K")ListBox1.Items.Add("K" & str1.PadLeft(20 - Len(str1)) & "K")ListBox1.Items.Add("K" & str2.PadLeft(20 - Len(str2)) & "K")
back to the top

Listagem de código completo (Form1.vb)

Observação Os comentários na listagem de código a seguir foram gerados automaticamente pelo Visual Studio .NET.
Public Class Form1    Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code "    Public Sub New()        MyBase.New()        'This call is required by the Windows Form Designer.        InitializeComponent()        'Add any initialization after the InitializeComponent() call    End Sub    'Form overrides dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (components Is Nothing) Then                components.Dispose()            End If        End If        MyBase.Dispose(disposing)    End Sub    'Required by the Windows Form Designer    Private components As System.ComponentModel.IContainer    'NOTE: The following procedure is required by the Windows Form Designer    'It can be modified using the Windows Form Designer.      'Do not modify it using the code editor.    Friend WithEvents Button1 As System.Windows.Forms.Button    Friend WithEvents Button2 As System.Windows.Forms.Button    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()        Me.Button1 = New System.Windows.Forms.Button()        Me.Button2 = New System.Windows.Forms.Button()        Me.ListBox1 = New System.Windows.Forms.ListBox()        Me.SuspendLayout()        '        'Button1        '        Me.Button1.Location = New System.Drawing.Point(16, 8)        Me.Button1.Name = "Button1"        Me.Button1.TabIndex = 0        Me.Button1.Text = "Button1"        '        'Button2        '        Me.Button2.Location = New System.Drawing.Point(176, 8)        Me.Button2.Name = "Button2"        Me.Button2.TabIndex = 1        Me.Button2.Text = "Button2"        '        'ListBox1        '        Me.ListBox1.Location = New System.Drawing.Point(72, 136)        Me.ListBox1.Name = "ListBox1"        Me.ListBox1.RightToLeft = System.Windows.Forms.RightToLeft.No        Me.ListBox1.Size = New System.Drawing.Size(120, 95)        Me.ListBox1.TabIndex = 3        '        'Form1        '        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)        Me.ClientSize = New System.Drawing.Size(292, 273)        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1, Me.Button2, Me.Button1})        Me.Name = "Form1"        Me.Text = "Form1"        Me.ResumeLayout(False)    End Sub#End Region    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim st As String = "6.25"        Dim st2 As String = "14.25"        Dim dt As String = "|"        Dim st1 As String = "$"        Dim mt As String = st1 + st + dt        Dim mt1 As String = st1 + st2 + dt        Dim pt As Char = " "        ListBox1.Items.Add("|" + mt.PadLeft(20 - Len(st), pt))        ListBox1.Items.Add("|" + mt1.PadLeft(20 - Len(st2), pt))   End  Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Dim str As String = "6.25"        Dim str1 As String = "14.25"        Dim str2 As String  = "1245.6789"        ListBox1.Items.Add("K" & str.PadLeft(20 - Len(str)) & "K")        ListBox1.Items.Add("K" & str1.PadLeft(20 - Len(str1)) & "K")        ListBox1.Items.Add("K" & str2.PadLeft(20 - Len(str2)) & "K")    End SubEnd Class
Observação você deve alterar o código no Visual Basic 2005. Por padrão, Visual Basic cria dois arquivos para o projeto quando você cria um projeto Windows Forms. Se o formulário é denominado Form1, os dois arquivos que representam o formulário são chamados de Form1.vb e Form1.Designer.vb. Escreva o código no arquivo Form1.vb. O Windows Forms Designer escreve o código no arquivo Form1.Designer.vb. O Windows Forms Designer usa a palavra-chave partial para dividir a implementação de Form1 em dois arquivos separados. Esse comportamento impede que o código gerado pelo designer sendo intercaladas com seu código.

Para obter mais informações sobre os novos aprimoramentos linguagem Visual Basic 2005, visite o seguinte site da Web Microsoft Developer Network (MSDN): Para obter mais informações sobre classes parciais e o Windows Forms Designer, visite o seguinte site da MSDN: back to the top

Verifique se o aplicativo funciona

  1. No Visual Studio .NET ou Visual Studio 2005, clique em Iniciar , no menu Debug para executar o aplicativo.

    Form1 é exibida.
  2. Clique em Button1 e Button2 para verificar que o texto é alinhado à direita quando você imprime cadeias de caracteres no controle ListBox .
back to the top
Referências
Para obter informações adicionais, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
217012COMO: Format Strings para direita-Justificar ao imprimir
95945Como a justificar à direita números usando formato $
back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 831488 - Última Revisão: 05/11/2007 07:08:50 - Revisão: 2.6

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Basic 2005

  • kbmt kbvs2005swept kbvs2005applies kbprint kbstring kbappdev kbformat kbhowtomaster KB831488 KbMtpt
Comentários