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.
No hay comentarios.:
Publicar un comentario