miércoles, septiembre 05, 2007

Tutor Embedded Visual Basic - Capitulo 6

Por: Roberto Alvarado

Capitulo 6

En este capítulo vamos a crear la pantalla para los maestros de clientes y aplicaciones.

Clientes

Luego de abrir el proyecto Tareas, vamos a hacer click sobre la barra de titulo de la forma frmTareas y en la ventana de propiedades, vamos a buscar la propiedad Width, y le vamos a asignar el valor 7665.

Agregamos a nuestro proyecto un nuevo control frame con las siguientes características:

· Visible False

· Width 3405

· Height 2835

· Caption [Clientes]

· Left 3510

· Top 60

· Name fraClientes

Y dentro del frame colocamos los siguientes controles, fíjense que aquí están de nuevo las características del Frame:

Begin VBCE.Frame fraClientes

Height = 2835

Left = 3510

Top = 60

Visible = 0 'False

Width = 3405

Caption = "[Clientes]"

Begin VBCE.Label Label13

Height = 285

Left = 90

Top = 2040

Width = 705

Caption = "Vr. Hora:"

End

Begin VBCE.TextBox Text7

Height = 285

Left = 810

Top = 2010

Width = 1545

Text = ""

End

Begin VBCE.TextBox Text6

Height = 285

Left = 810

Top = 1710

Width = 1545

Text = ""

End

Begin VBCE.Label Label12

Height = 255

Left = 90

Top = 1770

Width = 645

Caption = "Fax : "

End

Begin VBCE.TextBox Text5

Height = 285

Left = 810

Top = 1410

Width = 1545

Text = ""

End

Begin VBCE.Label Label11

Height = 225

Left = 90

Top = 1470

Width = 675

Caption = "Celular :"

End

Begin VBCE.TextBox Text4

Height = 285

Left = 810

Top = 1110

Width = 1545

Text = ""

End

Begin VBCE.Label Label10

Height = 255

Left = 90

Top = 1140

Width = 705

Caption = "Telefono:"

End

Begin VBCE.TextBox Text3

Height = 285

Left = 810

Top = 810

Width = 2505

Text = ""

End

Begin VBCE.Label Label9

Height = 195

Left = 90

Top = 840

Width = 675

Caption = "Direcc. :"

End

Begin VBCE.TextBox Text2

Height = 255

Left = 810

Top = 540

Width = 2505

Text = ""

End

Begin VBCE.Label Label8

Height = 255

Left = 90

Top = 540

Width = 735

Caption = "Nombre :"

End

Begin VBCE.TextBox Text1

Height = 255

Left = 960

Top = 240

Width = 2055

Text = ""

End

Begin VBCE.Label Label7

Height = 255

Left = 90

Top = 240

Width = 945

Caption = "Id Cliente :"

End

End

Ahora ya tenemos la pantalla para capturar los clientes de nuestra aplicación. Entonces vamos a crear también la pantalla para capturar las aplicaciones que vamos a atender y enlazar a una tarea:

Begin VBCE.Frame fraAplicaciones

Height = 1215

Left = 3510

Top = 2940

Visible = 0 'False

Width = 3435

Caption = "[Aplicaciones]"

Begin VBCE.TextBox Text9

Height = 285

Left = 1230

Top = 570

Width = 2145

Text = ""

End

Begin VBCE.Label Label15

Height = 285

Left = 150

Top = 570

Width = 1005

Caption = "Aplicacion : "

End

Begin VBCE.TextBox Text8

Height = 255

Left = 1170

Top = 240

Width = 1725

Text = ""

End

Begin VBCE.Label Label14

Height = 285

Left = 120

Top = 270

Width = 1035

Caption = "Id Aplicacion :"

End

End

Quizás en este punto a muchos les es difícil colocar los controles en la misma posición en la cual yo estoy dando y esto se debe a que tienen la grilla (los puntos que aparecen en la forma) muy separados y no saben como configurarlos. Entonces, vamos a configurar el espacio de los puntos de la grilla, en el menú Tools, escogemos la opción Options... y nos muestra la siguiente pantalla:

En donde vamos a escoger la pestaña General y vamos a modificar los datos Width y Height del recuadro Form Grid Settings, tal como se muestra en la figura.

Una vez hecho esto presionamos el botón OK para guardar los cambios.

Publicar un comentario