visual basic .Net manual

Visual Basic .Net 2003

Mejorando el Aspecto de Los
Formularios

Joel Martin Chuco Marrufo
1

Visual Basic .Net 2003

Aplicación N° 22

Esta aplicación nos mostrara el funcionamiento del control Timer con el
control PictureBox, haremos un pequeño protector de pantalla, que cambia
imágenes y al dar clic en el formulario o la imagen, este terminara la ejecución.
Antes que todo,necesitan tener imágenes del mismo tamaño, voy a ver si puedo
cargar las imágenes con este manual, para que así lo puedan ejecutar.

Paso Nº 1: Diseñar el formulario, ingresar un PictureBox y un Timer, a
comparación del control Timer en la versión anterior, este Timer de esta
versión se visualizara en la parte inferior (fuera del formulario), igual que
otros controles que ya veremos en adelante.

Joel Martin Chuco Marrufo
2

Visual Basic .Net 2003

Paso Nº 2: Asignar los nombres a los controles.


Control

Name

PictureBox1
Timer1

imgimagen
tmrpresentacion

Paso Nº 3: Codificar, es pequeña la codificación.


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 AsInteger
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)

Joel Martin Chuco Marrufo3

Visual Basic .Net 2003

 Como se habrán dado cuenta, en este control han cambiado algunas cosas,
como es la ubicación 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 = NewPoint(656, 392)

Antes en la versión anterior teníamos que darle el punto por separado
ahora no, solo nos basta darle la ubicación del control en la propiedad Location y de
ahí decirle al que hay un nuevo punto, pero en ingles New Point, fácil no?, ahora
veremos como antes le asignábamos una imagen en tiempo de ejecución al control
PictureBox en la versión antigua y en la moderna.

En elVisual 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 dirección de la imagen que vamos a insertar
tendremos que poner Image y seguido lo que es FromFlie, que en español es
procedencia del archivo, se que es un poco mas tedioso que en la versión antigua,
pero tiene maslógica, ahora veremos el siguiente ejemplo.

Joel Martin Chuco Marrufo
4

Visual Basic .Net 2003

Aplicación N° 23

Esta aplicación nos hallará el subtotal, IGV y el total de la venta del
producto, también aprenderemos a mostrar la fecha y la hora del sistema, con el
control Timer.




Paso Nº 1: Diseñar el formulario, ingresar un PictureBox y un Timer.
Paso Nº 2: Asignar los nombresa los controles.

Joel Martin Chuco Marrufo
5

Visual Basic .Net 2003

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 =...