05/02/2008, 07:31
|
| | | Fecha de Ingreso: enero-2008
Mensajes: 3
Antigüedad: 17 años, 3 meses Puntos: 0 | |
| urgente porfas necesito cancelar sentencias de un boton
este codigo esta en eun button al darle clic el msgbox preguntara si o no el problema es q si le doy no quiero q las demas sentencias queden canceladas osea el if de abajo ya no se ejecute haber si ayudan porfas es urgeee
If MsgBox("¿Funciona Bomba 1?", vbQuestion + vbYesNo) = vbYes Then
Shape1.FillColor = &HFF00&
Else
Shape1.FillColor = &HFF&
MsgBox ("ERROR!!! - FALLA EN PROCESO")
Text10.Visible = True
Text10.ForeColor = &HFF&
Text10.Text = "ERROR!!!"
End If
If MsgBox("¿Funciona Bomba 2?", vbQuestion + vbYesNo) = vbYes Then
Shape23.FillColor = &HFF00&
Else
Shape23.FillColor = &HFF&
MsgBox ("ERROR!!! - FALLA EN PROCESO")
Text10.Visible = True
Text10.ForeColor = &HFF&
Text10.Text = "ERROR!!!"
End If |