Ejercicio 10: Inter Compras Net

Crea un formulario con siete etiquetas, cinco cuadros image, un botón y escribe el siguiente código:

Dim total As Double

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

Source.Move X, Y

End Sub

El botón Cuenta Nueva

Private Sub Command1_Click()

Label7 = ""

total = o

End Sub

Private Sub Image5_DragDrop(Source As Control, X As Single, Y As Single)

If Source = Image1 Then

total = total + 250#

ElseIf Source = Image2 Then

total = total + 375#

ElseIf Source = Image3 Then

total = total + 400#

ElseIf Source = Image4 Then

total = total + 500#

End If

Label7 = "$" & total & ".00"

End Sub

Cursos similares a Manual de Visual Basic Intermedio

1. Manual de Visual Basic Principiante En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]				155.711
2. Visual Basic Express. Crear alarma (1/4) Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]				884
3. Visual Basic Express. Crear una alarma (2/4) Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]				352