SMS SENDER

[Dark Spirit]

Gente del Hacker tengo problemillas con mi programa!!!
Quiero hacer esto :

Tengo un text Box y lo hice asi

Text2.Maxlength= 150, hasta ahi bien
pero despues quiero que un label me lo reste osea que sea caracteres restantes... como lo puedo hacer

otra cosa.. me orientan como puedo mandar e mails? Funciones? OCX.. saludos!!

[WarGhost]

Código [Seleccionar] Expandir

Private Sub Form_Load()
Text1.MaxLength = 150
Label1.Caption = Str(Text1.MaxLength)
End Sub

Private Sub Text1_Change()
Label1.Caption = Int(Text1.MaxLength) - Int(Len(Text1.Text))
End Sub

Salu2

[Dark Spirit]

PRECISAMENTE ESO!! Ahora, como hago para enviar mensajes mail alguna funcion?.. Saliudos

[Dark Spirit]

Me explicas eso de Int , Len?!!

[Magic_Key]

Mira, Int te devuelve la parte entera de un numero. Por ejemplo:

Código [Seleccionar] Expandir


dim a as integer

a= int(6.7)
msgbox a

en este caso te devolvera un mensaje con 6, porque le quita los decimales.

Len te dice el numero de caracteres que hay en una cadena, su longitud. Ej:

Código [Seleccionar] Expandir


dim b as integer

b = Len("adfghiergh")
MsgBox b

te devolvera 10 pq hay diez caracteres.

El codigo de WarGhost resta a el nº maximo de caracteres establecidos, los que tu tienes.

Salu2