Visual Basic 6.0
Ver Más instrucciones formas
Navegación con pestañas
1
Abra un nuevo proyecto haciendo clic en el "EXE estándar " plantilla cuando se carga Visual Basic . Haga doble clic en el control " cuadro de texto " en la " caja de herramientas " en el panel izquierdo de la pantalla , representado por un pequeño cuadrado que contiene las letras minúsculas " ab " en la parte superior derecha de la caja de herramientas. Esta acción se repite tres veces más por lo que terminan con cuatro casillas en el formulario .
2
mover las cajas aparte , ya que cada cuadro agregado encubre la anterior. Haga clic en el cuadro superior y se arrastra fuera del camino . Repita la operación para separar las cuatro cajas . Haga clic en la primera casilla para mostrar sus propiedades en una columna a la derecha de la pantalla. Desplácese hacia abajo hasta que vea la propiedad " TabIndex " . Esta propiedad debe ser 1, ya que las pestañas por defecto a la orden agregó.
3
Mantenga los números " TabIndex " para si agrega o elimina las cajas , etiquetas y otros objetos o cambio el orden de aparición en el formulario.
formato y delimitación con Tabs
4
Añadir un " CommandButton " a la forma de la sección 1 , haga doble clic en el icono en la " caja de herramientas ", se muestra tan pequeño rectángulo en la segunda fila de controles.
5
Añada el código del lenguaje Visual Basic para texto o números que debe aparecer en las columnas utilizando el término " vbTab " o " TAB (n )" por " n " representa el número exacto de espacios , para espaciar más precisa. Haga clic en "Ver /Código" en el menú superior de la forma creada en la Sección 1 . Entre las líneas de código que aparecen a
Private Sub Command1_Click ( )
Dim columna1 , columna2 , column3 As String
columna1 = " Nombre"
< p > columna2 = "Apellido "
column3 = "Fecha de nacimiento "
Debug.Print columna1 y vbTab y columna2 y vbTab y column3
End Sub
6
Haga clic en el botón " Command1 en el formulario para ver los resultados.
7
Cambiar el código en el paso 2 de la siguiente manera para demostrar el uso de pestañas para delimitar los campos escritos en un archivo de texto , que luego pueden ser importados en una base de datos
Private Sub Command1_Click ( )
Dim columna1 , columna 2 , columna 3 , tabfile As String
tabfile = " c: . \\ \\ archivoPrueba.txt "
columna1 =" Nombre "
columna2 = " Apellido "
column3 = " Fecha de nacimiento "
tabfile abierto para salida como # 1
Print # 1 , columna 1 , Tab ( 20 ) ; columna2 , Tab ( 40 ) ; column3
Close # 1
tabfile abierto para entrada como # 1
tabfile = Entrada ( LOF ( 1 ) , 1 )
Debug.Print tabfile
Close # 1 End Sub
< p > (Ver Referencias 3 )
Crear objetos Tab en una aplicación
8
Guardar el proyecto creado en el Artículo 1, Etapa 1 con un nombre de su elección. Crear un nuevo proyecto eligiendo el "EXE estándar" de la plantilla. Agregar dos controles adicionales , haga clic en "proyectar", "Componentes " en el menú de Visual Basic de alto nivel. Desplácese por la lista de componentes de encontrar " Tabbed Dialog Control 6.0 de Microsoft " y " Microsoft windows Common Controls 6.0 (SP6 ) . " Haga clic en la " Casilla de verificación "al lado de cada uno para insertar una marca de verificación y " OK "para añadirlos a la " Caja de herramientas ".
9
Localice el " TabStrip "control , una caja cuadrada con un apóstrofe en la parte superior y el" " de control, un icono parecido quevedos en el" SSTab Toolbox. " Si usted no ha añadido ningún otro control , ambos deben estar en la sexta fila . Resaltado ellos llevarán el nombre. Haga doble clic en cada uno para colocarlos en el formulario. Arrastre aparte, colocar el " TabStrip " por encima del " SSTab . " Agregar " TextBox " haciendo doble clic en el icono "Caja de herramientas " . Drag por debajo de la SSTab .
10
Haga clic en el control " TabStrip " para mostrar sus propiedades . Cuatro pestañas aparecen en la parte superior . Haga clic en el segundo , "Pestañas . " Cada una de las fichas de la misma forma tiene un " Índice " y " Leyenda " . Propiedad, más otras Introduzca estos epígrafes de cada ficha índice, a continuación, haga clic en" OK "
Índice 1 : ." Login "
Índice 2 : "Nuevo usuario"
Índice 3 : Enviar Nombre de usuario "
Índice Página 4 : Enviar contraseña
11
Haga doble clic en el control " TabStrip " para abrir la ventana de código y escriba estas líneas de código : Private Sub
TabStrip1_BeforeClick ( Cancel As Integer )
Select Case TabStrip1.SelectedItem.Index
caso 4
MsgBox " Introducir login y pwd código aquí".
Case Else
MsgBox " Usted puede crear otras acciones relacionadas con las fichas de esta manera. "
End Select End Sub
Press "F5 " para ejecutar esta parte de la aplicación. Intenta hacer clic en cada una de las fichas en varias ocasiones , de ida y vuelta . (Ver Referencias 4 )
12
seguir el proceso en el paso 3 , ahora con el control SSTab . Los " TabCaptions " se encuentran en la pestaña "General " . Usa las flechas izquierda y derecha junto a " Tab actual" para cambiar el nombre de los subtítulos desde el valor predeterminado de la siguiente manera :
Tab 0 : "Añadir nueva forma "
Tab 1 : " Visualizar nueva forma "
Tab2 : "Calculadora"
13
Mostrar la ventana de código de nuevo y añadir estas líneas:
Private Sub SStab1_click ( selectedTab As Integer )
< p > Activo estático As Boolean
Si Active Then Exit Sub
activo = True
Seleccione selectedTab Case
Case 0
Texto1 = " Agregar próximo paso de la codificación deseada . "
caso 1
Texto1 = "Añadir una nueva página para que aparezca en la codificación "
caso 2
Texto1 = "Añadir a mostrar una calculadora. "
End Select
activo = False End Sub
Press "F5 " para ejecutar la aplicación y haga clic en en las distintas fichas . (Ver Referencias 5 )