Como usar guias em visual basic

Abra um novo projeto clicando no "standard EXE" modelo quando carrega o Visual Basic. Dê um duplo clique sobre o "Caixa de texto" no controlo "Caixa de ferramentas" no painel esquerdo da tela, representado por um pequeno quadrado que contém as letras minúsculas "ab" no canto superior direito da caixa de ferramentas. Repita esta acção mais três vezes, então você acaba com quatro caixas no formulário.

Arraste as caixas separados desde cada caixa acrescentou encobre o anterior. Clique na caixa superior e arrastá-lo para fora do caminho. Repetir para separar todas as quatro caixas. Clique na primeira caixa para exibir suas propriedades em uma coluna à direita da tela. Role para baixo até ver a "TabIndex" propriedade. Esta propriedade deve ser um 1 uma vez que o padrão guias para a ordem acrescentou.

Mantenha o "TabIndex" números em ordem, se você adicionar ou excluir caixas, rótulos e outros objetos ou alterar a ordem de aparição no formulário.

Adicionar um "Botão de comando" à forma da secção 1, clicando duas vezes no ícone na "Caixa de ferramentas," como mostrado pequeno rectângulo na segunda fila de controlo.

Adicione o código de linguagem Visual Basic para texto ou números que devem aparecer em colunas usando o termo "vbTab" ou "TAB (n)" com "n" representando o número exacto de espaços, para o espaçamento mais precisa. Clique em "Ver / Código" no menu superior do formulário criado na Seção 1. Entre linhas de código em que aparecem a seguir:

Private Sub Command1_Click ()

column1 Dim, column2, column3 As String

column1 = "Primeiro nome"

column2 = "Último nome"

column3 = "Data de nascimento"

Debug.Print column1 & vbTab & column2 & vbTab & column3

End Sub

Clique no "botão Command1 no formulário para ver os resultados.

Alterar o código na etapa 2 da seguinte forma para demonstrar o uso de guias para delimitar campos gravados em um arquivo de texto, que podem então ser importados para um banco de dados.

Private Sub Command1_Click ()

column1 Dim, column2, column3, tabfile As String

tabfile = "c: testfile.txt"

column1 = "Primeiro nome"

column2 = "Último nome"

column3 = "Data de nascimento"

Abrir tabfile Para saída como # 1

Print # 1, Tab column1- (20) - Tab column2- (40) - column3

Close # 1

Abrir tabfile For Input As # 1

tabfile = Entrada (LOF (1), 1)

Debug.Print tabfile

Close # 1

End Sub

(Veja Referências 3)

Salve o projeto criado na Seção 1, Passo 1 com um nome de sua escolha. Criar um novo projeto escolhendo o "standard EXE" modelo. Adicione dois controlos suplementares clicando em "Projeto," "componentes" no menu Visual Basic nível superior. Role a lista de componentes para encontrar "Microsoft com guias Dialog Control 6.0" e "Microsoft Windows Common Controls 6.0 (SP6)." Clique no "Caixa de seleção" ao lado de cada para inserir uma marca de verificação e "Está bem" adicioná-los à "Caixa de ferramentas."

Localize o "TabStrip" controle, uma caixa quadrada com um apóstrofo no topo eo "SSTab" controle, um ícone semelhante a óculos pince-nez no "Caixa de ferramentas." Se você não tiver adicionado quaisquer outros controles, ambos devem estar na sexta linha. Destacando-los trará o nome. Dê um duplo clique em cada um para colocá-los no formulário. Arrastá-los à parte, colocando o "TabStrip" acima de "SSTab." Adicionar um "Caixa de texto" clicando duas vezes este "Caixa de ferramentas" ícone. Arrastá-lo abaixo do SSTab.

direita; clique no "TabStrip" controle para exibir suas propriedades. Quatro abas aparecem na parte superior. Clique na segunda, "Tabs. " Cada um dos guias na forma em si tem uma "Índice" e um "Rubrica" propriedade além de outros. Digite estas rubricas para cada guia indexada, em seguida, clique "ESTÁ BEM."

Índice 1: "Entrar"

Índice 2: "Novo usuário"

Índice 3: Enviar Nome de Usuário"

Índice 4: Enviar senha

Dê um duplo clique sobre o "TabStrip" controle para abrir a janela de código e insira estas linhas de código:

Private Sub TabStrip1_BeforeClick (Cancel As Integer)

Select Case TabStrip1.SelectedItem.Index

caso 4

MsgBox "Inserir login e código pwd aqui."

Case Else

MsgBox "Você pode criar outras ações associadas com as guias desta forma."

End Select

End Sub

pressione "F5" para executar esta parte do pedido. Experimente clicar sobre cada uma das guias várias vezes, indo e voltando. (Veja Referências 4)

Siga o processo na Etapa 3, agora usando o controle SSTab. o "TabCaptions" são no "Geral" aba. Use as setas esquerda e direita ao lado "Tab atual" renomear as legendas se o padrão da seguinte forma:

Tab 0: "Adicionar nova forma"

Tab 1: "Exibir nova forma"

tab2: "Calculadora"

Exibir a janela de código de novo e adicionar estas linhas:

Private Sub SSTab1_Click (SelectedTab As Integer)

Estática ativo como booleana

Se o Active Then Exit Sub

Ativo = True

Select Case SelectedTab

caso 0

Text1 = "Adicionar desejado próximo passo para a codificação."

Caso 1

Text1 = "Adicionar uma nova página para exibir na codificação"

caso 2

Text1 = "Adicionar para exibir uma calculadora."

End Select

Ativo = False

End Sub

pressione "F5" para executar o aplicativo e clique em várias guias. (Veja Referências 5)