Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Dark Spirit en 27 Noviembre 2006, 20:02 pm

Título: SMS SENDER
Publicado por: Dark Spirit en 27 Noviembre 2006, 20:02 pm

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!!

Título: Re: SMS SENDER
Publicado por: WarGhost en 27 Noviembre 2006, 20:14 pm

Código:

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

;D Salu2

Título: Re: SMS SENDER
Publicado por: Dark Spirit en 29 Noviembre 2006, 03:26 am

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

Título: Re: SMS SENDER
Publicado por: Dark Spirit en 29 Noviembre 2006, 03:52 am

Me explicas eso de Int , Len?!!

Título: Re: SMS SENDER
Publicado por: Magic_Key en 29 Noviembre 2006, 17:03 pm

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

Código:

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:

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 ;)