Mensajes

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

ya lo he hecho, los he mostrado en textbox´s, es mas he utilizado el metodo:

Código [Seleccionar] Expandir


Private Sub Text1_Change()
        Select Case Buffer
                  case "Tiempo"
                        timer1.enabled = true
                        timer2.enabled = true
       end select
End Sub

todas las variables han sido declaradas como publicas, porl o cual por ahi no hay error...
Detodas maneras le voy a seguir intentando.... Gracias


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

si, esta en www.lawebdelprogramador.com yo nunca dije que lo habia hecho.... lo tenia



JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

yo tengo un codigo el cual bloquea el mouse y el teclado por un determinado tiempo:

Código [Seleccionar] Expandir


Bloquea el mouse y el teclado
'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados

Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub



Espero que esto te sirva


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[JUAN MANUEL LOMBANAMADELLÍN - COLOMBIA]

no realmente la palabra no la ecribo, asigno el valor "Tiempo" a la Variable Buffer cuando hago click sobre un boton es como si en la  comunicacion con el cliente a la palabra se le agrgara algun caracter pues nunca responde....

De todos modos muchas gracias por tu atencion



JUAN MANUEL LOMBANA
MADELLÍN - COLOMBIA

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

Hola
Este Tema Ya lo Habia POSTEADO antes pero nadie me respondio,
Depronto no fui muy claro en mis ideas...
por lo cual me decidi a postearlo de nuevo...
Explivo:
estoy Haciendo Una Aplicación Cliente / Servidor, Utilizando winsock hasta aqui todo muy bien, lo que quiero hacer es que cuando yo mande (Servidor) como mensaje la palabra "tiempo" en el en clinte se activen 2 Timers, he tratado haciendo lo siguiente:
Esto Va en el Cliente.

Código [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Winsock1.GetData Buffer
    Select Case Buffer
          case "Tiempo"
                   timer1.enabled = true
                   timer2.enabled = true
   end select
End Sub

pero  esto no funciona !!!
ya he comprobado todo, y todo funciona bien menos esto..
Como mas puedo activar los timers...
Nota: Tambien he probado mandarme solo mensajes y el winsock responde correctamente....
Gracias de Antemano,


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA   

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

ahhhhhhhh!!!
estaba haciendo algo parecido,
sera que me podrias pasar una lista de codigos
como esos
para tenerlos pues esta preguntadera me tiene loco
muchas gracias
cordialmente

JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

hola, me ha surgido una duda
despues de haber creado el archivo txt
como puedo hacer para mostrarlo en un textbox

[JUAN MANUEL LOMBANAMEDELLÍN - COLOMBIA]

Muchas Gracias todas las respuestas me sirvieron.

Cordilamente


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

hola,
Muchas gracias por su colaboracion
tambien me he dado cuenta de que el archivo txt queda con comillas hay alguna manera de eliminarlas...

Muchas gracias

JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

listo
pero tengo una duda donde queda guardo el archivo .txt

Gracias

JUAN MANUEL LOMBANA
Medellín - Colombia