Visual Basic - Problema con CommandButton

Life is soft - evento anual de software empresarial
   
Vista:

Problema con CommandButton

Publicado por Joaquín Beneyto Sánchez (2 intervenciones) el 23/08/2011 20:18:09
Buenas tardes. Soy novato en esto del VisualBasic y tengo un problema al que no encuentro respuesta.

He hecho un programita para mover unos motores por el puerto paralelo con VB 6.0 y quisiera modificar una cosa pero no se como hacerlo. Para explicaros mi problema os cuento que el programa consta de cinco CommandButtons :

- avanzar, retroceder, izquierda, derecha y parar

Lo que me gustaria es poder eliminar el de parar y que el puerto paralelo volviera al estado de reposo al soltar el click del raton sobre cualquiera de los otros cuatro botones.

Adjunto el codigo que tengo

Option Explicit
Dim Value As Integer
Dim PortAddress As Integer

Private Sub CmdAvanzar_Click()
Value = 5
Out PortAddress, Value
End Sub

Private Sub CmdDerecha_Click()
Value = 9
Out PortAddress, Value
End Sub

Private Sub Cmdizquierda_Click()
Value = 6
Out PortAddress, Value
End Sub

Private Sub CmdParar_Click()
Value = 0
Out PortAddress, Value
End Sub

Private Sub CmdRetroceder_Click()
Value = 10
Out PortAddress, Value
End Sub

Private Sub Form_Load()
Value = 0
PortAddress = &H378
End Sub

Private Sub Form_Unload(Cancel As Integer)
Value = 0
Out PortAddress, Value
End Sub


He leido varios manuales sobre V.B. 6, pero no he encontrado nada, ya que la mayoria están enfocados al tratamiento de bases de datos. De todas formas, si sabeis de algun manual donde haya información sobre este tema, ruego que me informeis, mientras seguire buscando.

Si necesitaís más info no dudeis en preguntar.

Saludos y gracias de antemano.
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
Imágen de perfil de Antoni Masana

Problema con CommandButton

Publicado por Antoni Masana (88 intervenciones) el 26/08/2011 06:53:30
Una forma de aprender más es expedimentando y como los manuales de microsoft brillan por su ausencia es la mejor forma.

El objeto Boton o CommandButton tiene muchos eventos y es cueston de probarlos haber que pasa.

Este es un ejemplo de mi prueba:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_KeyPress(KeyAscii As Integer)
    Label1.Caption = Val(Label2.Caption) + 1
End Sub
 
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
    Label2.Caption = Val(Label2.Caption) + 1
End Sub
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label3.Caption = Val(Label3.Caption) + 1
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label4.Caption = Val(Label4.Caption) + 1
End Sub


El Primero se ejecuta cuando pulsas una tecla con el teclado.
El Segundo se ejecuta cuando sueltas la tecla del teclado.

El Tercero se ejecuta cuando pulsas el boton del ratón.
El Cuarto se ejecuta cuando sueltas el botón del ratón.

Ahora es solo cuestión de probar y combinar las funciones.
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

Problema con CommandButton

Publicado por Joaquin (1 intervención) el 29/08/2011 18:21:07
Muchas gracias por la info.

La verdad es que no tenia mucha idea de los eventos disponibles, pero creo que con alguno de ellos voy a poder hacer un apaño......

De nuevo gracias.... voy a probar a ver si consigo algo mejor de lo que tengo......
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

Problema con CommandButton

Publicado por Joaquín (2 intervenciones) el 30/08/2011 10:32:54
Muchas gracias por tu información, con los eventos "mouse up & down" he conseguido justo lo que necesitaba.


De nuevo gracias.... ahora veo muchas más posibilidades con los eventos.....GRACIAS
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