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!!
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
PRECISAMENTE ESO!! Ahora, como hago para enviar mensajes mail alguna funcion?.. Saliudos
Me explicas eso de Int , Len?!!
Mira, Int te devuelve la parte entera de un numero. Por ejemplo:
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:
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 ;)