Visual Basic - boton

Life is soft - evento anual de software empresarial
   
Vista:

boton

Publicado por ALONSITO (4 intervenciones) el 15/09/2009 05:18:25
HOLA DE NUEVO TRATE DE MEHORAR MI BOTON ME DEMORE PORQ ES UN LIO ME CONFUNDO BASTANTE PERO ALFINAL AVANCE UN POQO
KIERO Q AL MOMENTO DE DARLE CLICK MI BOTON SE QUEDE ESTATIQO NO PUEDO LLEVO MAS D UNA HORA INTENTANDOLO UNA AYUDITA PORFAs....


Option Explicit
Dim Flag As Boolean

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag Then
Image1.Visible = False
Image2.Visible = True
Flag = False
End If
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
Image3.Visible = False
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
Image3.Visible = True
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
Image2.Visible = False
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image2.Visible = True
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag = False Then
Image1.Visible = True
Image2.Visible = False
Flag = True
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:boton

Publicado por el_guarro (17 intervenciones) el 15/09/2009 18:10:25
OTRO TIO DE LA GRAN PU_TA

DEJA DE ESCRIBIR CON MAYUSCULA CON_CHE_TU_MA_DRE. Y DEJA DE REPETIR LOS MENSAJES. QUE CHINGADOS TE CREES, ACASO PIENSAS QUE ESTAMOS DE VAGOS Y TENEMOS TODO EL PU_TO DIA PARA RESPONDES TUS PREGUNTAS.

VETE A QUE TE CA_CHE UN BURRO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton

Publicado por juan carlos (518 intervenciones) el 16/09/2009 04:39:43
espero te sirva esto Alonsito, si no te sirve mandame el codigo fuente a
mega.juca@hotmail.es
para verlo

'Option Explicit
Dim Flag As Boolean

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag Then
Image1.Visible = False
Image2.Visible = True
Flag = False
End If
End Sub

Private Sub Image2_Click()
If Image2.Visible = True Then Image3.Visible = True
Set correr = CreateObject("wscript.shell")
correr.run "calc"
End Sub

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
Image3.Visible = False
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
Image3.Visible = True
End Sub

Private Sub Image3_Click()
If Image3.Visible = True Then Image2.Visible = True
Set correr = CreateObject("wscript.shell")
correr.run "charmap"
End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = True
Image2.Visible = False
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image2.Visible = True
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Flag = False Then
Image1.Visible = True
Image2.Visible = False
Flag = True
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar