guias do Visual Basic servir quatro funções diferentes. Tabs fornecer navegação dentro de formas; servem como marcadores de espaço para impressão de texto através do Visual Basic ; atuam como delimitadores entre os campos de texto para bancos de dados , e exibição tabulado caixas de diálogo em aplicações . Dois controles , " TabStrip " e " SSTab ", são parte da matriz Visual Basic de objetos de controle . Escolher entre o controle TabStrip e SSTab é uma decisão que o programador deve fazer de acordo com as propriedades individuais de cada um. O TabStrip é mais complicado de desenvolver, mas tem mais recursos , enquanto o controle SSTab oferece um desenvolvimento mais rápido . Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
Navegando Formas Usando Tabs
1
Abra um novo projeto , clicando sobre o modelo " Standard EXE " quando as cargas Visual Basic. Dê um duplo clique no controle " TextBox " em " 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 ação mais três vezes para que você terminar com quatro caixas no formulário.
2
Arraste as caixas para além , já que cada caixa adicionado encobre o anterior . Clique na caixa superior e arraste-o 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 propriedade " TabIndex " . Esta propriedade deve ser uma vez que o padrão de guias para a ordem acrescentou.
3
Mantenha os números " TabIndex " em ordem, se você adicionar ou excluir caixas , rótulos e outros objetos ou mudança a ordem de aparição no formulário.
Formatação e Delimitação com Tabs
4
Adicione um " CommandButton " na forma da Seção 1 , clicando duas vezes no ícone na " caixa de ferramentas ", como pequeno retângulo na segunda fileira de controles.
5
Adicione o código da linguagem Visual Basic para texto ou números que devem aparecer em colunas usando o termo " vbTab " ou " TAB ( n ) " com " n " representa 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 as linhas de código em que aparecem abaixo :
Private Sub Command1_Click ( ) Dim
coluna1 , coluna2 , column3 As String
coluna1 = "Nome"
column2 = " Sobrenome "
column3 = " Data de Nascimento "
Debug.Print coluna1 & vbTab & column2 & vbTab & column3
End Sub
6
Clique no botão " Command1 no formulário para ver os resultados.
7
Alterar o código na Etapa 2 da seguinte forma para demonstrar o uso de guias para delimitar campos escritos para um arquivo de texto , que depois podem ser importados para um banco de dados
Private Sub Command1_Click ( ) Dim
coluna1 , coluna2 , column3 , tabfile As String
tabfile = "c: . \\ \\ testfile.txt "
coluna1 =" Nome "
column2 =" Sobrenome "
column3 =" Data de Nascimento "
tabfile Open For Output As # 1
Print # 1 , coluna1 ; Tab (20); column2 ; Tab (40); column3
close # 1
Abrir tabfile Para Input As # 1
tabfile = Input ( LOF (1) , 1)
Debug.Print tabfile
close # 1
End Sub
(Veja Referências 3)
Criando guia Objetos em um aplicativo
8
Salve o projeto criado na Seção 1, Passo 1, com um nome de sua escolha. Crie um novo projeto de escolher o modelo " standard EXE " . Adicione dois controles suplementares clicando em " projeto ", "Componentes " no menu Visual Basic nível superior. Role a lista de componentes para encontrar "Microsoft Tabbed Dialog Control 6.0 " e " Microsoft Windows Common Controls 6.0 ( SP6) . " Clique no botão" Caixa de seleção "ao lado de cada um para inserir uma marca de verificação e " OK "para adicioná-los à " caixa de ferramentas ".
9
Localize o " TabStrip "O controle , uma caixa quadrada com um apóstrofo no topo e" " controle , um ícone semelhante a óculos pince -nez no " SSTab caixa de ferramentas. " Se você não adicionou quaisquer outros controles , ambos devem estar na sexta fila . Destacando lhes trará o nome. clique duas vezes em cada um para colocá-los no formulário. Arraste -los, colocando o " TabStrip " acima do " SSTab . " Adicionar um " TextBox " clicando duas vezes neste ícone " Ferramentas " . Arraste -o abaixo do SSTab .
10
clique com o botão direito no controle " TabStrip " para exibir suas propriedades. Quatro abas aparecem na parte superior . Clique no segundo, " tabs . . " Cada uma das guias na forma em si tem um " Index " e um" Legenda " . Propriedade além de outros Entre estas rubricas para cada guia indexado, em seguida, clique em" OK "
Index 1: " Login "
Índice 2: " Novo Usuário "
Índice 3: Enviar Nome de Usuário "
Índice 4: Enviar senha
11
Dê um duplo clique o controle " TabStrip " para abrir a janela de código e digite 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. " < br >
End Select End Sub
Pressione " F5" para executar essa parte do pedido . Experimente clicar sobre cada uma das guias várias vezes , indo e voltando . (Veja Referências 4)
12
Siga o processo na Etapa 3, agora usando o controle SSTab . Os " TabCaptions " estão na guia "Geral". Use as setas esquerda e direita ao lado de " Current Tab " para mudar o nome das legendas a partir do padrão da seguinte forma:
Tab 0 : "Adicionar nova forma "
Tab 1: " Apresentar nova forma "
Tab2 : "Calculadora"
13
Exibir a janela de código de novo e adicionar estas linhas :
Private Sub SSTab1_Click ( SelectedTab as Integer )
estática ativo como booleano
Se o Active Then Exit Sub
atividade = True
Select Case SelectedTab
Caso 0
Text1 = "Adicionar próximo passo desejado 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
atividade = False End Sub
Pressione " F5 " para executar o aplicativo e clique em sobre as várias guias. (Veja Referências 5)
