Mensajes

no creo q los firewall lo hagan a si

Los firewalls no los programan en VB

NOTA: Te falta un "]" al final de tu firma xD

salu2

[AWicons Lite]

Otro extractor y creador de iconos & cursores muy bueno es el AWicons Lite

salu2

Hay q acostumbrarse a visitar los post pegad0s de vez en cuando ...

salu2

G0nz4

Aca te dejo algunos, los mas usados:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
'Cuando le haces Click

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Apenas apretas el boton, dsp tenes alguanas variables:
Button: puede ser 1, 2 y creo q 3... (es el boton con el q se apreto)
Shift: si esta la tecla Shift oprimida
X: la posicion X del mouse
Y: la posicion Y del mouse

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Cuando pasas el mouse por arriva del control

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Cuando levantas el boton del control

Command1_ KeyPress(KeyAscii As Integer)
'Cuando se aprieta alguna tecla
KeyAscii: Devuelve el valor de la tecla apretada (para ver la letra: "MsgBox Chr(KeyAscii)"

'...


Bueno espero q se entienda, estoy medio apurado y no puedo detallar todo muy bien xD
Pero mas o menos se repiten los mismos eventos en la mayoria de los controles estandares (Botones, Cajas de Texto, Etiquetas...)

Si necesitas mas informacion sobre los eventos avisame asi te pongo alg0 mas completito xDD

salu2

G0nz4

Yo buscaria un amigo para probarlo... Lo podes probar en tu pc, lo que pasa es con un amigo pueden aparecer errores que no aparecerian en tu pc (y asi poder corregirlos)

salu2

de nada

salu2

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Text2.Text = Text2.Text & vbNewLine & Text1.Text
End Sub


salu2 !

Gracias

jajaj bueno eso de buscarte a uan victima es problema tuyo xD

Hasta ahora le puse 2 funciones, abrir y cerrar el cd.

Ta bien, asi se empieza xD

salu2

-G0nz4-

si las palabras van a empezar con mayuscula podes hacer un bucle que busque letra x letra y si encuentra una mayusucla use la funcion Mid o Left para borrarla....

Diferenciar entre mayuscula y minuscula:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
   If Text1.Text = LCase(Text1.Text) Then
       MsgBox "MINUSCULA"
   End If
   If Text1.Text = UCase(Text1.Text) Then
       MsgBox "MAYUSCULA"
   End If
End Sub


salu2 !