
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
Hay 19 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Corel Draw 11 Básico Corel Draw es una potente herramienta que utilizan los diseñadores profesionales para crear, logotipos, esquemas, ilustraciones, dibujos, etc. No se asuste, para usted am... [10/05/05] |
|
11.987 | ||
|
Cómo convertir una fotocaricatura en un dibujo de tinta y acuarela Tal y como se han presentado otros cursos en Mailxmail de fotocaricatura, este vez se ofrece la posibilidad de conocer cómo convertir una fotocaricatura en un dibujo de t... [19/07/06] |
|
4.410 | ||
|
Dibujar en perspectiva Todo aquel que decida pintar un cuadro o simplemente adquirir conocimientos de perspectiva, debe saber que si en el dibujo aparece una o varias personas, estará sometida ... [10/03/05] |
|
7.812 | ||
Publicar en
del.icio.us
digg
meneame