GS-Zone

No escribe sendtext. Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

3

Nota » 15 Mar 2011 23:36

Hola, tengo el problema de que en el servidor mientras lo estoy corriendo quiero hablar (osea, apretar enter y que aparesca la sendtext) y no aparece por lo tanto no puedo escribir textos. =$ Esto me paso hace unos dias y no puedo poner ningun comando para configurar el server. No les pongo fotos porque supongo que se entiende lo que estoy diciendo. :ok:

Espero una solucion rapida :D Gracias de antemanoo!
Usuario Registrado
20
Newbie [1]
Registrado: Años de membresía
Mensajes: 9

Nota » 16 Mar 2011 11:07

Buescá en los VBKeys, ahí debe estar el problema.


OFF: Feliz cumpleaños ^^

Ahí te ves.

Imagen

Imagen

Imagen

Imagen
Software Developer
197
Legendario Inmortal [1]
Registrado: 5 Años de membresía!
Ubicación: Caseros
Mensajes: 5071
Aportes: 30

Nota » 16 Mar 2011 13:34

Ok me voy a fijar...

EDIT: Osea, en Sendtext hay muchas cosas que dicen VBkey! Nose que modificar ni nada, no quiero tocar para no mandarme cagada. Pongo el codigo de send text mio:

Private Sub SendTxt_Change()
'**************************************************************
'Author: Unknown
'Last Modify Date: 3/06/2006
'3/06/2006: Maraxus - impedí se inserten caractéres no imprimibles
'**************************************************************
If Len(SendTxt.Text) > 160 Then
stxtbuffer = "Soy un cheater, avisenle a un gm"
Else
'Make sure only valid chars are inserted (with Shift + Insert they can paste illegal chars)
Dim i As Long
Dim tempstr As String
Dim CharAscii As Integer

For i = 1 To Len(SendTxt.Text)
CharAscii = Asc(mid$(SendTxt.Text, i, 1))
If CharAscii >= vbKeySpace And CharAscii <= 250 Then
tempstr = tempstr & Chr$(CharAscii)
End If
Next i

If tempstr <> SendTxt.Text Then
'We only set it if it's different, otherwise the event will be raised
'constantly and the client will crush
SendTxt.Text = tempstr
End If

stxtbuffer = SendTxt.Text
End If
End Sub

Private Sub SendTxt_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = vbKeyBack) And _
Not (KeyAscii >= vbKeySpace And KeyAscii <= 250) Then _
KeyAscii = 0
End Sub

OFF: Gracias xD
Usuario Registrado
20
Newbie [1]
Registrado: Años de membresía
Mensajes: 9


Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados