Imprimir Página

Título: eventos
Publicado por: abel_xtnt en 6 Octubre 2005, 03:12 am

bueno no se si me podrian ayudar en lo q son eventos espero si ya tengo una idea pero no muy clara espero
q me digan .bueno ya q yo se usar el evento click espero q me ayuden
a usar los demas y como los utilizaria cuando programe
·Command1_ Click(): No recibe argumentos

·Command1_ KeyPress(KeyAscii As Integer)
·Command1_KeyDown(KeyCode As Integer)

·Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
espero sus repuestas gracias :)

Título: Re: eventos
Publicado por: NYlOn en 6 Octubre 2005, 03:26 am

Aca te dejo algunos, los mas usados:

Código:

Private Sub Command1_Click()
'Cuando le haces Click

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Apenas apretas el boton, dsp tenes alguanas variables:
Button: puede ser 1, 2 y creo q 3... (es el boton con el q se apreto)
Shift: si esta la tecla Shift oprimida
X: la posicion X del mouse
Y: la posicion Y del mouse

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Cuando pasas el mouse por arriva del control

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Cuando levantas el boton del control

Command1_ KeyPress(KeyAscii As Integer)
'Cuando se aprieta alguna tecla
KeyAscii: Devuelve el valor de la tecla apretada (para ver la letra: "MsgBox Chr(KeyAscii)"

'...

Bueno espero q se entienda, estoy medio apurado y no puedo detallar todo muy bien xD
Pero mas o menos se repiten los mismos eventos en la mayoria de los controles estandares (Botones, Cajas de Texto, Etiquetas...)

Si necesitas mas informacion sobre los eventos avisame asi te pongo alg0 mas completito xDD

salu2 ;)

G0nz4

Título: Re: eventos
Publicado por: abel_xtnt en 6 Octubre 2005, 04:04 am

Cita de: NYlOn en 6 Octubre 2005, 03:26 am

muchasa gracias man , eso me ayudo mucho , bueno me podrias algunos eventos mas si no es molestia ;) , gracias a ti entendi sobre:

Private Sub Command1_Click()
Command1_ KeyPress(KeyAscii As Integer)

si la verdad creo q necesito unos eventos mas si no molestia eso del evento mouse ,keydown y si hay mas para saber usarlo no se si podrias poner en codigo fuente sencillo para aprenderlo mejor ante todo gracias man ;D

Título: Re: eventos
Publicado por: Kizar en 9 Octubre 2005, 02:42 am

Esto es facil, los nombres de los eventos tan en ingles, traducelos.
;)
Salu2

Título: Re: eventos
Publicado por: Slasher-K en 11 Octubre 2005, 00:28 am

Eventos en Visual Basic (http://www.elguille.info/vb/cursos_vb/basico/basico22.htm)

El curso del guille es bastante bueno, aunque le faltan algunas cosas.

Saludos.

Título: Re: eventos
Publicado por: MaLkAvIaN_NeT en 11 Octubre 2005, 00:39 am

Primero tienes que empezar por lo básico, que es una clase, una instancia, propiedades, eventos, metodos,, En otras palabras tener una noción de lo que es programación orientada a objetos.
También debes de saber de que en VB sólo los controles tienen eventos. Si por ejemplo al crear un control activeX desde visual basic al cual le llamas Persona, al cual le implementarás una interzas gráfica, además le implementarás un método Caminar, a la vez también podría ejecutarse el método PisarTierra,, vemos un ejemplo:

Citar

Public Event PisarTierra

Public Sub Caminar(by val Velocidad as Double)
'cada ves que se produzca éste evento se desencadenará un 'evento:
Raise Event PisarTierra
End sub

salu2

Título: Re: eventos
Publicado por: Slasher-K en 11 Octubre 2005, 00:47 am

Las clases también pueden tener eventos, ya que los controles son clases con interfaz gráfica.

Si se define un evento en una clase luego se puede responder al evento desde un formulario u otro objeto declarando la variable como WithEvents.

Código:

'
'Objeto MyObject
'
Event MiEvento()

Sub HacerAlgo()
  RaiseEvent MiEvento
End Sub

Código:

'
'Formulario frmMain
'
Private csObject As MyObject

Private Sub Form_Load()
  Set csObject = New MyObject
End Sub

Private Sub cmdTest_Click()
  Call csObject.HacerAlgo
End Sub

Private Sub csObject_MiEvento()
  Call MsgBox("Se desencadenó el evento del objeto", vbInformation)
End Sub

En el caso anterior cuando se aprete el botón cmdTest se va a llamar al método HacerAlgo del objeto, por consiguiente se va a desencadenar el evento MiEvento.

Saludos.

Título: Re: eventos
Publicado por: MaLkAvIaN_NeT en 11 Octubre 2005, 00:55 am

Polux tiene razon, gracias por la aclaración ,, ahora recuerdo la instrucción WithEvents para obtener hacer un llamado a los eventos de cierta clase,, por ejemplo al usar el control Microsoft Agent Control 2.0 (par sacar a un asistente), puedes hacerlo creando tu clase, pero para esto aparte de las librerías tendrás que agregar el código:

Citar

Public LoadAsist As IAgentCtlCharacterEx
Private WithEvents objAsist As Agent

salu2

Título: Re: eventos
Publicado por: abel_xtnt en 14 Octubre 2005, 21:12 pm

Cita de: .PoluX. en 11 Octubre 2005, 00:47 am

Código:

'
'Objeto MyObject
'
Event MiEvento()

Sub HacerAlgo()
  RaiseEvent MiEvento
End Sub

Código:

'
'Formulario frmMain
'
Private csObject As MyObject

Private Sub Form_Load()
  Set csObject = New MyObject
End Sub

Private Sub cmdTest_Click()
  Call csObject.HacerAlgo
End Sub

Private Sub csObject_MiEvento()
  Call MsgBox("Se desencadenó el evento del objeto", vbInformation)
End Sub

En el caso anterior cuando se aprete el botón cmdTest se va a llamar al método HacerAlgo del objeto, por consiguiente se va a desencadenar el evento MiEvento.

Saludos.

hola entendi todo lo de focos pero tu vodigo ??? no lo entendi podrias por fa explicarlo espero q si byessss :)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: abel_xtnt en 6 Octubre 2005, 03:12 am