Mensajes

Código [Seleccionar] Expandir

Private Sub Form_Load()
Timer1.Interval = 1750
End Sub

Private Sub Timer1_Timer()
If ws.State <> 7 Then
ws.Close
ws.Listen
End If
End Sub



Salu2

eso quiere decir que no esta conectado.

puede ser que una vez conectado el server no se vuelve a poner en Listen.

Salu2

yo te recomiendo imageshack es una de las mas usadas.

salu2

Código [Seleccionar] Expandir

Dim Texto As String
Texto = "Hola" & vbCrLf & "Me llamo David :D"
MsgBox Mid(Texto, InStrRev(Texto, vbCrLf) + 2)

¿Que error te sale?

no tengo ni idea de porque pasa, pon el codigo aver si hay algun tipo de error

http://foro.elhacker.net/index.php/topic,147741.msg693546.html#msg693546

creo que eso si que funciona y tan complicado no es 

Creo que lo del filtro es tu tema que cuando se empieza no se sabe pero vamos esto:

Código [Seleccionar] Expandir


Private Sub Text1_Click()
Text1.Text = ""
End Sub

xDDD, eso no es programacion solo son las propiedades no creo que tenga mucho secreto xDD.


Salu2, David

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Dim Char(1 To 8) As String
Char(1) = "(": Char(2) = ")": Char(3) = "[": Char(4) = "]"
Char(5) = "=": Char(6) = "/": Char(7) = "-": Char(8) = "%"

Dim i As Long
For i = 1 To 8
If InStr(1, Text1.Text, Char(i)) <> 0 Then
    Text1.Text = Replace(Text1.Text, Char(i), "")
End If
Next i
End Sub

te dejo un ejemplo de como hacer un filtro:

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Char(1 To 8) As String

Char(1) = "(": Char(2) = ")": Char(3) = "[": Char(4) = "]"
Char(5) = "=": Char(6) = "/": Char(7) = "-": Char(8) = "%"

Dim i As Long
For i = 1 To 8
If Chr(KeyAscii) = Char(i) Then KeyAscii = 0
Next i
End Sub

Salu2, David