SegundaEntrega

Visual Basic .Net 2003

Mejorando el Aspecto de Los Formularios

Joel Martin Chuco Marrufo 1


Aplicacin N 22

Esta aplicacin nos mostrara el funcionamiento del control Timer con el control PictureBox, haremos un pequeo protector de pantalla, que cambia imgenes y al dar clic en el formulario o la imagen, este terminara la ejecucin. Antes que todo, necesitan tener imgenes del mismo tamao, voy a ver si puedo cargar las imgenes con este manual, para que as lo puedan ejecutar.

Paso N 1: Disear el formulario, ingresar un PictureBox y un Timer, a comparacin del control Timer en la versin anterior, este Timer de esta versin se visualizara en la parte inferior (fuera del formulario), igual que otros controles que ya veremos en adelante.



Paso N 2: Asignar los nombres a los controles.

Control

Name

PictureBox1 Timer1

imgimagen tmrpresentacion

Paso N 3: Codificar, es pequea la codificacin.

Antes que todo, cambiaremos algunas cosas en propiedades del control Timer.

Por Default el control Timer, tiene la propiedad Enabled en False, as que cambiaremos esa propiedad a Trae, y en la propiedad Interval, pondremos a 5000.

Y en el control PictureBox nos ubicaremos en la propiedad de Imagen, para ubicar una imagen que se va a presentar al comienzo.

frmaplicacion22 (Evento clic)

Me.Close()

imgimagen (Evento clic)

Me.Close()

tmrpresentacion (Evento Tick)

Static Imagen As Integer Dim Direccion As String Dim X, Y As Integer Direccion = "C:\Imagenes\WINNIE" Randomize() Imagen = CInt((6 - 1 + 1) * Rnd() + 1) X = CInt((656 - 0 + 1) * Rnd() + 1) Y = CInt((392 - 0 + 1) * Rnd() + 1) imgimagen.Location = New Point(X, Y) If Imagen > 6 Or Imagen < 1 Then Imagen = 1 Direccion = Direccion + Microsoft.VisualBasic.Right(Imagen, 2) + ".jpg" imgimagen.Image = Image.FromFile(Direccion)



Como se habrn dado cuenta, en este control han cambiado algunas cosas, como es la ubicacin del control, ya que para ubicar el control en el formulario. Por ejemplo, para ubicar el control PictureBox en el formulario.

En el Visual Basic 6.0

Picture1.ScaleWidth = 656 Picture1.ScaleHeight = 392

En el Visual Basic .Net 2003

PictureBox1.Location = New Point(656, 392)

Antes en la versin anterior tenamos que darle el punto por separado ahora no, solo nos basta darle la ubicacin del control en la propiedad Location y de ah decirle al que hay un nuevo punto, pero en ingles New Point, fcil no?, ahora veremos como antes le asignbamos una imagen en tiempo de ejecucin al control PictureBox en la versin antigua y en la moderna.

En el Visual Basic 6.0

Picture1.Picture = "C:\Imagenes\WINNIE"

En el Visual Basic .Net 2003

imgimagen.Image = Image.FromFile(C:\Imagenes\WINNIE)

Ahora para asignarle la direccin de la imagen que vamos a insertar tendremos que poner Image y seguido lo que es FromFlie, que en espaol es procedencia del archivo, se que es un poco mas tedioso que en la versin antigua, pero tiene mas lgica, ahora veremos el siguiente ejemplo.



Aplicacin N 23

Esta aplicacin nos hallar el subtotal, IGV y el total de la venta del producto, tambin aprenderemos a mostrar la fecha y la hora del sistema, con el control Timer.

Paso N 1: Disear el formulario, ingresar un PictureBox y un Timer. Paso N 2: Asignar los nombres a los controles.



Control

Name

Label2 Label4 Label9 Label11 Label13 TextBox1 TextBox2 TextBox3 Button1 Button2 Button3

lblfecha lblhora lblsubtotal lbligv lbltotal txtnomprod txtprecuni txtcant btnnuevo btnresultados btnsalir

Paso N 3: Codificar.

frmaplicacion23 (Evento load)

lblfecha.Text = Format(Now, "dd - MM - yyyy") Me.Text = Space(60) + "Ventas"

btnsalir (Evento clic)

If MsgBox("Desea Salir de la Aplicacion", MsgBoxStyle.Question.YesNo, "Ventas") = MsgBoxResult.Yes Then Me.Close()

btnnuevo (Evento clic)

txtnomprod.Text = "" txtprecuni.Text = "" txtcant.Text = "" lblsubtotal.Text = "" lbligv.Text = "" lbltotal.Text = "" txtnomprod.Focus()

btnresultados (Evento clic)

Dim ST, IGV, TP As Single ST = Val(txtprecuni.Text) * Val(txtcant.Text) IGV = ST * 19 / 100 TP = ST + IGV lblsubtotal.Text = Format(ST, "###,##0.00") lbligv.Text = Format(IGV, "###,##0.00") lbltotal.Text = Format(TP, "###,##0.00")


lblhora.Text = Format(Now, "hh:mm:ss tt")



Aplicacin N 24

En esta aplicacin utilizaremos tres controles avanzados, el primero que es el ProgressBar, TrackBar, NotifyIcon y NumericUpDonw.

Paso N 1: Disear el formulario, ingresar un ProgressBar, TrackBar, NumericUpDonw y un NotifyIcon. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label1 Label2 ProgressBar1 TrackBar1 NumericUpDonw1 NumericUpDonw1 Button1 Button2 NotifyIcon1

lblporcentaje lblavance lblresultado tkbavance nudN1 nudN2 btncomenzar btnsumar NotifyIcon




tkbavance (Evento Scroll)

lblavanze.Text = tkbavance.Value

btncomenzar (Evento clic)

Dim I As Integer Dim J, K As Single For I = 0 To 100 lblprogreso.Text = Str(I) & " %" pgbprogreso.Value = I For J = 0 To 10000 For K = 0 To 500 Next Next Next

btnsumar (Evento clic)

lblresultado.Text = nupdN1.Value + nupdN2.Value

El control NotifyIcon, su funcionalidad es de poner un icono en la barra de tareas programadas, este a la hora de agregarlo se visualiza en la parte inferior de la ventana de diseo, como el control Timer.

Como lo ven al costado del icono del programa Perantivirus.



Aplicacin N 25

En esta aplicacin utilizaremos el control ImageList, y visualizaremos las imgenes que almacenaremos all.

Paso N 1: Disear el formulario, ingresar un ImageList, PictureBox. Paso N 2: Esta vez no asignaremos nombre alguno a los controles, solo a los controles Buttons, que van a ser lo siguientes

Control

Name

Button1 Button2

btnmostrar btnsalir


btnmostrar (Evento clic)

Static P As Integer P=P+1 If P = ImageList1.Images.Count Then P=0 End If PictureBox1.Image = ImageList1.Images(P)


Me.Close()



Control ImageList: Este control, en realidad no ha cambiado mucho, en lo que es su utilizacin, solo ha cambiado en el cuadro de dialogo de insertar imagen, para insertar imgenes en el control tendremos que ir a la opcin de Images del cuadro de propiedades, y daremos clic en el botn de tres puntos.

Para agregar cual icono o imagen daremos clic en el botn de agregar y de ah seleccionaremos la imagen que queramos almacenar, como se han dado cuenta la primera imagen que se almacena toma el nombre de Index 0, y as sucesivamente.



Aplicacin N 26

En esta aplicacin utilizaremos el control StatusBar, PictureBox, Timer.

Paso N 1: Disear el formulario, ingresar un StatusBar, PictureBox y Timer. Paso N 2: Asignar nombres a los controles.

Control

Name

PictureBox1 StatusBar Timer

PictureBox1 stbinformacion tmrhora


stbinformacion (Evento PanelClick)

Select Case stbinformacion.Panels.IndexOf(e.StatusBarPanel) Case 3 Shell("D:\WINDOWS\system32\calc.exe", AppWinStyle.NormalFocus) End Select

Frmaplicacion26 (Evento Load)

stbinformacion.Panels.Item(0).Text = Format(Now, "dd - MMM - yyyy") tmrhora.Interval = 100



tmrhora (Evento Tick)

stbinformacion.Panels.Item(2).Text = Format(Now, " hh:mm:ss tt")

Control StatusBar: Para insertar paneles en el control StatusBar, tendremos que ir a la ventana de propiedades a la opcin Panels, y darle clic, pero antes tendremos que cambiar la propiedad ShowPanels de False a True, para que as ustedes puedan visualizar los paneles que ingresan, igual que suceda con el control Timer, tenamos que poner la propiedad Enabled de False a True.

Para agregar un Panel tendremos que darle clic en Agregar y luego seleccionar el icono que queramos que se presente ya sea con el texto que le pongamos en la Propiedad Text, y la propiedad Width sirve para cambiar el tamao del panel.



Aplicacin N 27

En esta aplicacin aprenderemos a utilizar dos tipos de controles de fecha como lo es el MonthCalendar y el DateTimePicker, los dos nos permiten ingresar la fecha que queramos, y mostraremos la fecha ingresada en etiquetas, ya sea el nmero de da, mes, ao, nombre del da y del mes. Sus propiedades siguen siendo iguales no se preocupen.

Paso N 1: Disear el formulario, ingresar un GroupBox, MonthCalendar y un DateTimePicker. Paso N 2: Asignar los nombres a los controles, solo le asignaremos a los controles Button y Label, y los otros no.



Control

Name

Label2 Label4 Label6 Label8 Label10 Label12 Label14 Label16 Label18 Label20 Button1 Button2

lbldia lblmes lblanio lblnombdia lblnombmes lbldia1 lblmes2 lblanio1 lblnombdia1 lblnombmes1 btnverDC btnverDTP


Declaracin de variables a nivel del Formulario

Dim NumMes, NumDia As Integer

Funcin NombreMes

Function NombreMes(ByVal Mes As Integer) Select Case Mes Case 1 : NombreMes = "Enero" Case 2 : NombreMes = "Febrero" Case 3 : NombreMes = "Marzo" Case 4 : NombreMes = "Abril" Case 5 : NombreMes = "Mayo" Case 6 : NombreMes = "Junio" Case 7 : NombreMes = "Julio" Case 8 : NombreMes = "Agosto" Case 9 : NombreMes = "Septiembre" Case 10 : NombreMes = "Octubre" Case 11 : NombreMes = "Noviembre" Case 12 : NombreMes = "Diciembre" End Select End Function

Funcin NombreMes

Function NombreDia(ByVal Dia As Integer) Select Case Dia Case 1 : NombreDia = "Domingo" Case 2 : NombreDia = "Lunes" Case 3 : NombreDia = "Martes" Case 4 : NombreDia = "Miercoles" Case 5 : NombreDia = "Jueves" Case 6 : NombreDia = "Viernes" Case 7 : NombreDia = "Sbado" End Select End Function



btnverMC (Evento clic)

NumMes = Microsoft.VisualBasic.Month(MonthCalendar1.SelectionEnd) NumDia = Microsoft.VisualBasic.Weekday(MonthCalendar1.SelectionEnd) lbldia.Text = Microsoft.VisualBasic.Day(MonthCalendar1.SelectionEnd) lblmes.Text = NumMes.ToString lblanio.Text = Microsoft.VisualBasic.Year(MonthCalendar1.SelectionEnd) lblnombmes.Text = NombreMes(NumMes) lblnombdia.Text = NombreDia(NumDia)

btnverDTP (Evento clic)

NumMes = Microsoft.VisualBasic.Month(DateTimePicker1.Value) NumDia = Microsoft.VisualBasic.Weekday(DateTimePicker1.Value) lbldia1.Text = Microsoft.VisualBasic.Day(DateTimePicker1.Value) lblmes1.Text = NumMes.ToString lblanio1.Text = Microsoft.VisualBasic.Year(DateTimePicker1.Value) lblnombmes1.Text = NombreMes(NumMes) lblnombdia1.Text = NombreDia(NumDia)



Ingreso Personalizado de Datos



Aplicacin N 28

En esta aplicacin ausaremos el control ComboBox.

Paso N 1: Disear el formulario, ingresar un ComboBox. Paso N 2: Asignar los nombres a los controles.

Control

Name

TextBox1 ComboBox1 ComboBox2 Button1 Button2

txtalumno cboespecialidad cboturno btnotro btnfinalizar


btnotro (Evento clic)

txtnombre.Text = "" cboespecialidad.SelectedIndex = 0 cboturno.SelectedIndex = 0 txtnombre.Focus()

btnfinalizar (Evento clic)

Me.Close()



Control ComboBox: Que hay de nuevo en este control?, bueno la verdad que nada, hasta su propio codigo no ha cambiado mucho si se han dado cuenta, solo que ahora para poder poder tems al control tendremos que hacer clic en tems en la ventana de propiedades, y luego escribir el item que se mostrara (una linea por cada Item).

Editor de tems.



Aplicacin N 29

Este Formulario nos permite ingresar un nombre de un trabajador y al seleccionar el tipo de pago del trabajador, automticamente nos hallara el pago por hora, y tendremos que ingresar las horas trabajadas.

Tipo de Empleo

Sueldo

Permanente Contratado Eventual

15.00 10.00 5.00


Control

Name

TextBox1 TextBox2 Label4 Label7 ComboBox2 Button1 Button2

txtnombre txthorastrab lblpagoxhora lbltotal cbotipo btnnuevo btnsalir




Declaracin de Variables a Nivel del Formulario

Dim Index As Integer


Me.Close()

Frmaplicacion29 (Evento Load)

cbotipo.Items.Add("Permanente") cbotipo.Items.Add("Contratado") cbotipo.Items.Add("Eventual") imgimagen.Visible = False btnnuevo.Enabled = False

txtnombre (Evento TextChanged)

If Trim(txtnombre.Text) = "" Then btnnuevo.Enabled = False imgimagen.Visible = False Else btnnuevo.Enabled = True imgimagen.Visible = True End If

cbotipo (Evento SelectedIndexChanged)

Index = cbotipo.SelectedIndex Select Case Index Case 0 lblpagoxhora.Text = "15.00" Case 1 lblpagoxhora.Text = "10.00" Case 2 lblpagoxhora.Text = "5.00" End Select If Trim(txthorastrab.Text) = "" Then txthorastrab.Focus() Else lbltotal.Text = Format(Val(lblpagoxhora.Text) * Val(txthorastrab.Text), "###,##0.00") End If



txthorastrab (Evento TextChanged)

If Trim(txthorastrab.Text) = "" Or Val(txthorastrab.Text) = 0 Then btnnuevo.Enabled = False Else btnnuevo.Enabled = True lbltotal.Text = Format(Val(lblpagoxhora.Text) * Val(txthorastrab.Text), "###,##0.00") End If


txtnombre.Text = "" cbotipo.SelectedIndex = 0 lblpagoxhora.Text = "" txthorastrab.Text = "" lbltotal.Text = "" imgimagen.Visible = False txtnombre.Focus()

Solo hay una cosa que recalcar o mejor dicho aclara, ahora para insertar un nuevo elemento o eliminar, se har mediante el miembro de Item, por ejemplo:

Visual Basic 6.0

Combo1.AddItem Texto


ComboBox1.Items.Add(Texto)

Como se han dado cuenta, no ha cambiado casi nada, as que no van a tener problemas con este control.



Aplicacin N 30

Este Formulario nos permite seleccionar la operacin aritmtica que el usuarioa desee, tomando el valor de los controles NumericUpDonw y nos mostrara el resultado de las operaciones en un ListBox.

Paso N 1: Disear el formulario, ingresar un CheckedListBox, un ListBox y dos NumericUpDonw. Paso N 2: Asignar los nombres a los controles.

Control

Name

NumericUpDonw1 NumericUpDonw2 ListBox1 CheckedListBox1 Button1

nudVA nudVB ListBox1 CheckedListBox1 btncalcular




btncalcular (Evento clic)

Dim IndexChecked, Index As Integer Dim A, B As Single A = nudVA.Value B = nudVB.Value ListBox1.Items.Clear() For Each IndexChecked In CheckedListBox1.CheckedIndices Index = IndexChecked Select Case Index Case 0 : ListBox1.Items.Add("Suma = " & (A + B).ToString) Case 1 : ListBox1.Items.Add("Resta = " & (A - B).ToString) Case 2 : ListBox1.Items.Add("Multiplicacin = " & (A * B).ToString) Case 3 If B = 0 Then ListBox1.Items.Add("Error: Divisin entre 0") Else ListBox1.Items.Add("Divisin = " & (A / B).ToString) End If End Select Next



Control CheckedListBox: Este control nos permite tener varias opciones a elegir, en una sola caja parecida al ListBox, para poder editar este control y poner que opciones va a tener, tendremos que darle clic en la opcion tems de la ventana de propiedades del control.

Ventana de Propiedades

Recuerde que cada Linea es una opcion a mostrar:

Ventana de Edicion de los tems a Mostrar



Aplicacin N 31

Este Formulario nos permite seleccionar un curso y automticamente pondr los programas que se lleva en este, en un ComboBox.

Paso N 1: Disear el formulario, ingresar dos ComboBox. Paso N 2: Asignar los nombres a los controles.

Control

Name

TextBox1 ComboBox1 ComboBox2 Button1 Button2

txtprofesor cbotipodecurso cbonombdecurso btnnuevo btnsalir





Me.Close()


Nuevo()



cbotipodecurso (Evento SelectedIndexChanged)

Index = cbotipodecurso.SelectedIndex Select Case Index Case 0 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Windows Vista") cbonombdecurso.Items.Add("Word") cbonombdecurso.Items.Add("Excel") cbonombdecurso.Items.Add("Point") cbonombdecurso.SelectedIndex = 0 Case 1 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Foxpro") cbonombdecurso.Items.Add("Visual Basic") cbonombdecurso.Items.Add("Visual Foxpro") cbonombdecurso.Items.Add("Power Builder") cbonombdecurso.SelectedIndex = 0 Case 2 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Internet") cbonombdecurso.Items.Add("Correo Electrnico") cbonombdecurso.Items.Add("Ingles Tcnico") cbonombdecurso.SelectedIndex = 0 End Select


Nuevo() txtprofesor.Text = "" txtprofesor.Focus()

Funcin Nuevo

Function Nuevo() cbotipodecurso.Items.Clear() cbonombdecurso.Items.Clear() cbotipodecurso.Items.Add("Aplicativos") cbotipodecurso.Items.Add("Programacin") cbotipodecurso.Items.Add("Otros") cbonombdecurso.Items.Add("Windows Vista") cbonombdecurso.Items.Add("Word") cbonombdecurso.Items.Add("Excel") cbonombdecurso.Items.Add("Point") cbotipodecurso.SelectedIndex = 0 cbonombdecurso.SelectedIndex = 0 End Function



Control ComboBox: Este control nos permite mostrar una serie de lista de elementos para escoger, igual que el control Combo en Visual Basic 6.0. Para insertar los elementos tendremos que dar clic en la opcin tems de la ventana de propiedades, igual que muchos elementos que veremos en adelante y hemos visto.

Ventana de Propiedades

Igual que otros, cada lnea es una opcin

Editor de Coleccin o de Elementos



Aplicacin N 32

Este Formulario nos permite realizar una pro forma de compra de una computadora, mostrndonos el precio de la computadora, impresora, el subtotal, IGV y el total a pagar.

Paso N 1: Disear el formulario, ingresar dos ComboBox. Paso N 2: Asignar los nombres a los controles.

Control

Name

TextBox1 TextBox2 Label2 Label7 Label8 Label9 Label10 Label11 ComboBox1 ComboBox2 Button1 Button2 Button3

txtcliente txtdireccion lblfecha lblpreccomp lblprecimp lblsubtotal lbligv lbltotal cbocomputadoras cboimpresoras btncalcular btnotra btnsalir







Me.Close()


cbocomputadoras.Items.Clear() cboimpresoras.Items.Clear() cbocomputadoras.Items.Add("IBM") cbocomputadoras.Items.Add("Packer Bell") cbocomputadoras.Items.Add("Acer") cboimpresoras.Items.Add("Epson LX-300") cboimpresoras.Items.Add("Deskject 400") cboimpresoras.Items.Add("IBM graphics") cbocomputadoras.SelectedIndex = 0 cboimpresoras.SelectedIndex = 0 lblfecha.Text = "Fecha " & Format(Now, "dd/MM/yyyy") Borrar()

cbocomputadoras (Evento SelectedIndexChanged)

Index = cbocomputadoras.SelectedIndex Select Case Index Case 0 lblpreccomp.Text = "850.00" Case 1 lblpreccomp.Text = "700.00" Case 2 lblpreccomp.Text = "600.00" End Select

cboimpresoras (Evento SelectedIndexChanged)

Index = cboimpresoras.SelectedIndex Select Case Index Case 0 lblprecimp.Text = "180.00" Case 1 lblprecimp.Text = "270.00" Case 2 lblprecimp.Text = "380.00" End Select




Dim ST, IGV, TT As Single ST = Val(lblpreccomp.Text) + Val(lblprecimp.Text) IGV = ST * 19 / 100 TT = ST + IGV lblsubtotal.Text = "Sub Total " & Format$(ST, "###,##0.00") lbligv.Text = "I.G.V. " & Format$(IGV, "###,##0.00") lbltotal.Text = "Total " & Format$(TT, "###,##0.00")

btnotra (Evento clic)

Borrar()

Funcin Borrar

Function Borrar() txtcliente.Text = "" txtdireccion.Text = "" lblpreccomp.Text = "" lblprecimp.Text = "" lblsubtotal.Text = "" lbligv.Text = "" lbltotal.Text = "" cbocomputadoras.SelectedIndex = 0 cboimpresoras.SelectedIndex = 0 txtcliente.Focus() End Function



Aplicacin N 33

Este Formulario no deber de solicitar diferente tipo de dato, dependiendo del estado civil de la persona.



Paso N 1: Disear el formulario. Paso N 2: Asignar los nombres a los controles.

Control

Name

TextBox1 TextBox2 TextBox3 Label3 Label4 Label5 RadioButton1 RadioButton2 Button1 Button2

txtnombre txttiempest txtnumest lblsueldo lblestado lbltiempoest rdbsoltero rdbcasado btnnuevo btnsalir



Me.Close()

rdbsoltero (Evento CheckedChanged)

lblestado.Text = "N de Hermanos" lblsueldo.Text = "200.00" lbltiempoest.Text = "Edad" txttiempest.Focus()

rdbcasado (Evento CheckedChanged)

lblestado.Text = "N de Hijos" lblsueldo.Text = "250.00" lbltiempoest.Text = "Tiempo de Servicio" txttiempest.Focus()


Iniciar()


Iniciar()



Funcin Iniciar

Function Iniciar() txtnombre.Text = "" txttiempest.Text = "" txtnumest.Text = "" rdbsoltero.Checked = True lblestado.Text = "N de Hermanos" lblsueldo.Text = "200.00" lbltiempoest.Text = "Edad" txtnombre.Focus() End Function

Aplicacin N 34

Este Formulario es un tipo de presentacin que podramos poner en nuestros programas.

Paso N 1: Disear el formulario, ingresar un PictureBox. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label2 Label3 Timer Button1

lblcurso lblnombre tmrpresentacion btnok





Me.Close()


Dim J, k As Integer Static X1, X2, Y As Integer If X1 > 180 Xor X2 < 440 Xor Y > 212 Then X1 = 12 X2 = 608 Y = 44 End If X1 = X1 + 4 X2 = X2 - 4 Y=Y+4 lblcurso.Location = New Point(X1, Y) lblnombre.Location = New Point(X2, Y)



Aplicacin N 35

Este pequeo programa nos enseara a como utilizar los colores y el tipo de presentacin de un label.


Control

Name

Label1 CheckedBox1 CheckedBox2 CheckedBox3 ComboBox1 Button1

lbltexto chknegrita chksubrayado chkcursiva cbocolor btnsalir





Me.Close()

Funcion Fuente

Function Fuente() If chknegrita.Checked = True AndAlso chksubrayado.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Italic + FontStyle.Underline) ElseIf chknegrita.Checked = True AndAlso chksubrayado.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Underline) ElseIf chknegrita.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Italic) ElseIf chknegrita.Checked = False AndAlso chksubrayado.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Underline + FontStyle.Italic) ElseIf chknegrita.Checked = False AndAlso chksubrayado.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Underline) ElseIf chknegrita.Checked = False AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Italic) ElseIf chknegrita.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold) Else lbltexto.Font = New Font(lbltexto.Font, FontStyle.Regular) End If End Function

chknegrita (Evento CheckedChanged)

Fuente()

chksubrayado (Evento CheckedChanged)

Fuente()

chkcursiva (Evento CheckedChanged)

Fuente()



frmaplicacion35 (Evento Load)

cbocolor.Items.Add("Negro") cbocolor.Items.Add("Rojo") cbocolor.Items.Add("Azul") cbocolor.Items.Add("Verde") cbocolor.Items.Add("Rosado") cbocolor.Items.Add("Blanco") cbocolor.Items.Add("Amarillo") cbocolor.Items.Add("Anaranjado") cbocolor.SelectedIndex = 0

cbocolor (Evento SelectedIndexChanged)

Dim Index As Integer Index = cbocolor.SelectedIndex Select Case Index Case 0 : lbltexto.ForeColor = Case 1 : lbltexto.ForeColor = Case 2 : lbltexto.ForeColor = Case 3 : lbltexto.ForeColor = Case 4 : lbltexto.ForeColor = Case 5 : lbltexto.ForeColor = Case 6 : lbltexto.ForeColor = Case 7 : lbltexto.ForeColor = End Select

System.Drawing.Color.Black System.Drawing.Color.Red System.Drawing.Color.Blue System.Drawing.Color.Green System.Drawing.Color.Pink System.Drawing.Color.White System.Drawing.Color.Yellow System.Drawing.Color.Orange



Aplicacin N 36

Este programa nos permitir seleccionar un destino e inmediatamente nos mostrara el precio del pasaje y si activamos el descuento, nos aparecer automticamente el descuento respectivo y el total.

Paso N 1: Disear el formulario, ingrear un ListBox. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label6 Label7 Label9 CheckedBox1 ListBox1 TextBox1 TextBox2 Button1 Button2

lblprecio lbldescuento lbltotal chkdescuento lstdestino chkcursiva chknegrita btnnuevo btnsalir





Me.Close()

frmaplicacion36 (Evento Load)

lstdestino.Items.Add("Lima") lstdestino.Items.Add("Chimbote") lstdestino.Items.Add("Trujillo") lstdestino.Items.Add("Piura") lstdestino.Items.Add("Tumbes") Limpiar()

lstdestino (Evento SelectedIndexChanged)

Dim Index As Integer Index = lstdestino.SelectedIndex Select Case Index Case 0 : lblprecio.Text = "60.00" Case 1 : lblprecio.Text = "50.00" Case 2 : lblprecio.Text = "30.00" Case 3 : lblprecio.Text = "30.00" Case 4 : lblprecio.Text = "50.00" End Select If chkdescuento.Checked = True Then lbldescuento.Text = Format(Val(lblprecio.Text) * 10 / 100, "###,##0.00") lbltotal.Text = Format(Val(lblprecio.Text) - Val(lbldescuento.Text), "###,##0.00") Else lbldescuento.Text = "0.00" lbltotal.Text = lblprecio.Text End If

chkdescuento (Evento CheckedChanged)

If chkdescuento.Checked = True Then lbldescuento.Text = Format(Val(lblprecio.Text) * 10 / 100, "###,##0.00") lbltotal.Text = Format(Val(lblprecio.Text) - Val(lbldescuento.Text), "###,##0.00") Else lbldescuento.Text = "0.00" lbltotal.Text = lblprecio.Text End If


Limpiar()



Funcion Limpiar

Function Limpiar() txtpasajero.Text = "" txtdni.Text = "" lblprecio.Text = "" lbldescuento.Text = "" lbltotal.Text = "" chkdescuento.Checked = False lstdestino.SelectedIndex = 0 txtpasajero.Focus() End Function

Control TabControl: Este control, como en el Visual Basic 6.0 nos permite colocar controles en cada pagina que creamos, para crear una pgina en el TabControl, nos ubicaremos en la propiedad TabPages de la ventana de propiedades del control, y le daremos clic.

Al dar clic en la propiedad TabPages nos aparecer la siguiente ventana:



Ventana de propiedades, para insertar pginas en el TabControl, daremos clic en la propiedad TabPages

Aplicacin N 37

En este programa aprenderemos a utilizar el TabControl, ya sea para evitar tener que realizar varios formularios.



Paso N 1: Disear el formulario, ingresar un TabPages. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label5 Label11 Label15 Label17 Label19 Label21 Label23 TrackBar1 TabControl TextBox1 ComboBox1 ComboBox2 NumericUpDonw1 NumericUpDonw2 NumericUpDonw3 NumericUpDonw4 DateTimePicker1 Button1

lbledad lblfaltas lblsueldo lbldescuento lbladelanto lblfecha lbltotal tkbfaltas TabControl txtnombre cbocargo cbocondicion nuddia nudmes nudao nudadelanto dtpfecha btncalcular




nudao (Evento ValueChanged)

lbledad.Text = Microsoft.VisualBasic.Year(Now) - nudao.Value


Dim Faltas As Integer If cbocondicion.SelectedIndex = 0 Then lblsueldo.Text = "1000.00" ElseIf cbocondicion.SelectedIndex = 1 Then lblsueldo.Text = "1500.00" Else MsgBox("Error: Especifique La Condicin del Empleado") Exit Sub End If lblfecha.Text = Format(dtpfecha.Value, "dd/MM/yyyy") lbladelantos.Text = Format(nudadelanto.Value, "###,##0.00") Faltas = Val(lblfaltas.Text) * 10 lbldescuentos.Text = Format(Val(lbladelantos.Text) + Faltas, "###,##0.00") lbltotal.Text = Format(Val(lblsueldo.Text) - Val(lbldescuentos.Text), "###,##0.00")

tkbfaltas (Evento Scroll)

lblfaltas.Text = (tkbfaltas.Value).ToString



Aplicacin N 38

Este programa nos calculara recibo a emitir tras una matricula, para esto cumplir las siguientes caractersticas:

Condicin:

Si es invicto su matricula ser 200 Si es repitente su matricula ser 300 Si es traslado su matricula ser 200

Categora:

Si es Nuevo tendr 0 % de descuento Si es Antiguo tendr 25 % de descuento Si es Becado tendr 50 % de descuento

Al dar clic en procesar este nos mostrara el avance en un ProgressBar.



Paso N 1: Disear el formulario, ingresar un TabPages. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label6 Label8 Label10 Label12 Label14 Label16 TextBox1 TextBox2 ComboBox1 ComboBox2 ComboBox3 NumericUpDonw1 NumericUpDonw2 NumericUpDonw3 DomainUpDonw1 DateTimePicker1 ProgressBar1 Button1

lblcondicion lblcategoria lblmatricula lblcargo lbldescuento lbltotal txtalumno txtcodigo cbocondicion cbocatgoria cboturno nudcargo nuddia nudao dudmes dtpfecha pgbavance btnprocesar




btnprocesar (Evento clic)

Dim J, K As Integer For J = 0 To 100 For K = 0 To 500000 Next pgbavance.Value = J Next Select Case cbocondicion.SelectedIndex Case 0 lblmatricula.Text = "200.00" lblcondicion.Text = cbocondicion.SelectedItem Case 1 lblmatricula.Text = "300.00" lblcondicion.Text = cbocondicion.SelectedItem Case 2 lblmatricula.Text = "400.00" lblcondicion.Text = cbocondicion.SelectedItem End Select Select Case cbocategoria.SelectedIndex Case 0 lbldescuento.Text = "0.00" lblcategoria.Text = cbocategoria.SelectedItem Case 1 lbldescuento.Text = Format(Val(lblmatricula.Text) * 0.25, "###,##0.00") lblcategoria.Text = cbocategoria.SelectedItem Case 2 lbldescuento.Text = Format(Val(lblmatricula.Text) * 0.5, "###,##0.00") lblcategoria.Text = cbocategoria.SelectedItem End Select lblcargo.Text = Format(nudcargo.Value * 10, "###,##0.00") lbltotal.Text = Format(Val(lblmatricula.Text) + Val(lblcargo.Text) Val(lbldescuento.Text), "###,##0.00")



Insertar Controles: Para insertar controles que no aparecen en la Caja de Herramientas, solo nos bastar darle clic derecho en la caja de herramientas y escoger la opcin de Personalizar cuadro de herramientas.

Ventana de Cuadro de herramientas, en este caso ingresaremos un control Masked Edit del Visual Basic 6.0, para poder usarlo en la siguiente aplicacin.



Aplicacin N 39

En esta aplicacin aprenderemos a entrar un dato con una mascara de entrada, utilizando el MaskEdit y tambien aprenderemos a utilizar el LinkLabel.

Paso N 1: Disear el formulario, ingresar dos MaskEdBox (MaskEdit) y un LinkLabel. Paso N 2: Asignar los nombres a los controles.

Control

Name

LinkLabel1 MaskEdBox1 MaskEdBox2

lblsalir MaskEdBox1 MaskEdBox2



Me.Close()



Manejo de Varios Formularios



Aplicacin N 40

En esta aplicacin aprenderemos a utilizar varios formularios a la vez, as que veremos cada formulario con su respectivo cdigo.


Control

Name

TextBox1 TextBox2 TextBox3 TextBox4 TextBox5 Button1 Button2

txtce txtespecialidad txtciclo txtturno txtaula btnnuevo btnsalir



Dim formulario As New frmmenu() formulario.Show() Me.Close()




txtce.Text = "" txtespecialidad.Text = "" txtciclo.Text = "" txtturno.Text = "" txtaula.Text = "" txtce.Focus()


Control

Name

Timer1 Label1 Label2 Button1 Button1

txtce txtespecialidad txtciclo btnok btnCancelar


btncancelar (Evento clic)

Me.Close()



btnok (Evento clic)

Dim Formulario As New frmingreso() Me.Hide() Formulario.Show()

frmbienvenida (Evento Load)

lblfecha.Text = "Fecha:

" & Format(Now, "dd - MMM - yyyy")

tmrhora (Evento Tick)

lblhora.Text = "Hora:

" & Format(Now, "hh:hh:ss tt")


Control

Name

TextBox1 TextBox2 TextBox3 TextBox4 Button1 Button2

txtapoderado txtnumherm txtorigen txtvivienda btnnuevo btnsalir





Dim Formulario As New frmmenu() Formulario.Show() Me.Close()


txtapoderado.Text = "" txtnumherm.Text = "" txtorigen.Text = "" txtvivienda.Text = "" txtapoderado.Focus()


Control

Name

Button1 Button2 Button3 Button4

btndatopers btndatoacad btndatofam btnsalir





End

btndatopers (Evento clic)

Dim Formulario As New frmpersonales() Me.Hide() Formulario.Show()

btndatoacad (Evento clic)

Dim Formulario As New frmacademicos() Me.Hide() Formulario.Show()

btndatofam (Evento clic)

Dim Formulario As New frmfamiliares() Me.Hide() Formulario.Show()


Control

Name

TextBox1 TextBox1 Button1 Button1

txtusuario txtpassword btnok btncancelar




btnsok (Evento clic)

If txtusuario.Text = "Joel" AndAlso txtpassword.Text = "visualbasic" Then Dim Formulario As New frmmenu() Formulario.Show() Me.Close() Else MsgBox("Clave Incorrecta", MsgBoxStyle.Information, "Seguridad") txtusuario.Text = "" txtpassword.Text = "" txtusuario.Focus() End If

btncancelar (Evento clic)

End


Control

Name

TextBox1 TextBox2 TextBox3 TextBox4 TextBox5 Button1 Button2

txtnombre txtdireccion txttelefono txtfecnac txtsexo btnnuevo btnsalir





Dim Formulario As New frmmenu() Formulario.Show() Me.Close()


txtnombre.Text = "" txtdireccion.Text = "" txttelefono.Text = "" txtfecnac.Text = "" txtsexo.Text = "" txtnombre.Focus()



Aplicacin N 41

En esta aplicacin aprenderemos a utilizar dos formulariomy adicionar o poder utilizar los controles que tenga el formulario que queramo abrir.


Control

Name

TextBox1 TextBox2 TextBox3 TextBox4 Button1 Button2 Button3

txtnombre txtedad txtdistrito txtsexo btnadicionar btnregistros btnsalir


Declarar las Variables a Nivel del Formulario

Dim Formulario As New frmadicionados()


End



Funcin Activar

Function Activar() If txtnombre.Text = "" Or txtedad.Text = "" Or txtdistrito.Text = "" Or txtsexo.Text = "" Or IsNumeric(txtedad.Text) = False Then btnadicionar.Enabled = False Else If txtsexo.Text = "F" Or txtsexo.Text = "M" Then btnadicionar.Enabled = True Else MsgBox("Debe de Ingresar Los Datos Correctos Sexo (M/F)", MsgBoxStyle.Information, "Error") txtsexo.Text = "" txtsexo.Focus() End If End If End Function

frmdatos (Evento Load)

Activar()

txtnombre (Evento TextChanged)

Activar()

txtedad (Evento TextChanged)

Activar()

txtdistrito (Evento TextChanged)

Activar()

txtsexo (Evento TextChanged)

Activar()

btnadicionar (Evento clic)

Formulario.lstnombre.Items.Add(txtnombre.Text) Formulario.lstedad.Items.Add(txtedad.Text) Formulario.lstdistrito.Items.Add(txtdistrito.Text) Formulario.lstsexo.Items.Add(txtsexo.Text) txtnombre.Text = "" txtedad.Text = "" txtdistrito.Text = "" txtsexo.Text = "" txtnombre.Focus()



btnregistros (Evento clic)

Formulario.Show() Me.Hide()


Control

Name

ListBox1 ListBox1 ListBox1 ListBox1 Button1 Button2 Button3

lstnombre lstedad lstdistrito lstsexo btnmodificar btneliminar btnsalir


Declarar las Variables a Nivel del Formulario



End



lstnombre (Evento SelectedIndexChanged)

Index = lstnombre.SelectedIndex lstedad.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True

lstedad (Evento SelectedIndexChanged)

Index = lstedad.SelectedIndex lstnombre.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True

lstdistrito (Evento SelectedIndexChanged)

Index = lstdistrito.SelectedIndex lstedad.SelectedIndex = Index lstnombre.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True

lstsexo (Evento SelectedIndexChanged)

Index = lstsexo.SelectedIndex lstedad.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstnombre.SelectedIndex = Index btneliminar.Enabled = True

btneliminar (Evento clic)

Dim Seleccion As Integer Seleccion = Index If MsgBox("Desea Eliminar el Registro Seleccionado", MsgBoxStyle.Question.YesNo, "Cuidado") = MsgBoxResult.Yes Then lstnombre.Items.RemoveAt(Seleccion) lstedad.Items.RemoveAt(Seleccion) lstdistrito.Items.RemoveAt(Seleccion) lstsexo.Items.RemoveAt(Seleccion) End If



btnmodificar (Evento clic)

Dim Formulario As New frmdatos() With lstnombre Formulario.txtnombre.Text = .GetItemText(.SelectedItem) End With With lstedad Formulario.txtedad.Text = .GetItemText(.SelectedItem) End With With lstdistrito Formulario.txtdistrito.Text = .GetItemText(.SelectedItem) End With With lstsexo Formulario.txtsexo.Text = .GetItemText(.SelectedItem) End With Dim Seleccion As Integer Seleccion = Index lstnombre.Items.RemoveAt(Seleccion) lstedad.Items.RemoveAt(Seleccion) lstdistrito.Items.RemoveAt(Seleccion) lstsexo.Items.RemoveAt(Seleccion) Formulario.Show() Me.Hide()

Como ustedes saben la instruccin With nos permite un ahorro de tiempo a la hora de programar, ya que evita referirnos varias veces al nombre de un control, aunque esto ya lo saben, pero por si ac se los hago recordar.

Control ListView: Este control, bueno para mi es nuevo ya que recin lo veo en esta versin, aunque no crean es muy fcil de utilizar, para agregar tems al control, nos dirigiremos a la propiedad tems, pero primero seleccionaremos el objeto de donde utilizaremos las imgenes para mostrar en el control, esto se har en la propiedad LargeImageList.



Una vez seleccionado nos mostrar la siguiente ventana.

Igual que otros editores de Coleccin (tems) tendremos que darle clic en agregar y de ah seleccionaremos en ImageIndex la imagen que queremos que se muestre en ese Item y en la propiedad Text escribiremos el texto que se muestre con la imagen, si se han dado cuenta un Item puede tener un SubItem, solo tedrian que darle clic en la propiedad SubItems de la ventana de propiedades del Item en donde desean agregar un SubItmen

Control TreeView: Este control como en la versin anterior, es muy utilizado para crear ayuda y tendremos que hacer lo mismo que hicimos en el control anterior, para insertar Nodo.



Primero elegiremos de que control ImageList utilizaremos las imgenes a mostrar con los Nodos y de ah daremos clic en la propiedad Nodes, para insertar los nodos a mostrar, y luego cisulizaremos lel editor del control.

Como lo ven es mucho ms fcil que el control de la versin anterior, ya que solo tendremos que darle clic en Agregar raz, Agregar secundario o en Eliminar si queremos eliminar un Nodo, la opcin de imagen seleccionaremos que imagen queremos que se vea cuando el nodo este cerrado y en Imagen Seleccionada, seleccionaremos cuando queramos que se muestre una imagen cuando un nodo este seleccionado o abierto, lo nico tedioso es que para cada Nodo tendremos que hacer esto, pero de ah la utilizacin es bien sencilla.

Ahora veremos un ejemplo utilizando estos dos controles.



Aplicacin N 43

Seguro se estarn preguntando, y la aplicacin 42?, bueno no se preocupen, que la aplicacin 42 lo haremos en el prximo capitulo, ya que pertenece all, por que es un formulario MDI, mientras tanto veremos como utilizar dos contres que pueden de ser de gran utilidad como es el ListView y el TreeView.

Paso N 1: Disear el formulario, ingresar un ListView, TreeView, y dos ImageList. Paso N 2: Asignar los nombres a los controles.

Control

Name

Label1 Label2 Button1

lblelegido lblseleccion btnsalir




ListView1 (Evento SelectedIndexChanged)

If ListView1.Items(0).Selected = True Then lblelegido.Text = "Usted Eligio Abrir" ElseIf ListView1.Items(1).Selected = True Then lblelegido.Text = "Usted Eligio Guardar" ElseIf ListView1.Items(2).Selected = True Then lblelegido.Text = "Usted Eligio Disco Duro" ElseIf ListView1.Items(3).Selected = True Then lblelegido.Text = "Usted Eligio CD" ElseIf ListView1.Items(4).Selected = True Then lblelegido.Text = "Usted Eligio Mi Pc" ElseIf ListView1.Items(5).Selected = True Then lblelegido.Text = "Usted Eligio Hora" ElseIf ListView1.Items(6).Selected = True Then lblelegido.Text = "Usted Eligio Scaner" End If

TreeView1 (Evento AfterSelect)

lblseleccion.Text = e.Node.Text


Me.Close()



Bueno seores, con esto acabo con la Segunda entrega, se que me he demorado un poco, pero ustedes saben pues, las fiestas y adems estaba acabando la primera entrega del manual de Lenguaje de Programacin Aprendiendo a Programar con Visual Basic 2005, bueno la primera entrega ya esta hecha, pero hasta el momento no recibo nunca notificacin de la pgina que me diga que ya ha sido publica, espero que la publiquen, en caso de que no sea as, tratare de publicarlo en otra pagina web y les avisare en cual, para que puedan descargarlo, mientras tanto seguir avanzando la tercera entrega en que consiste Formularios MDI, Diseo de Mens, Manejo de Archivos y si me alcanza tiempo har lo mas esperado, las conexiones a base de datos.

Bueno se que esta entrega debera incluir formularios MDI, pero no me alcanzo el tiempo, pero no se preocupen que ya lo veremos en la prxima entrega, y espero que les sea de bastante utilidad esta entrega, ya saben que para cualquier cosa esta mi correo [email protected] que les responder lo mas rpido posible, bueno ya me despido, aqu en Per estamos en verano as que todos a la playa, hasta la prxima entrega bye y cudense.

Donaciones a la Cuenta de Ahorros del Banco Interbank del Per Cuenta en Soles:

067-3008573552 Cuenta en Dlares:

067-3008573560

www.interbank.com.pe

Lima, 06 de Enero de 2006


SegundaEntrega

Documents

Transcript of SegundaEntrega