Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - NYlOn

#471
Exacto.

Podes realizar cualkier accion, como x ejemplo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'el 13 es el codigo ascii del Enter
        SendKeys "{Tab}"
    End If
End Sub


eso seria para simular la tecla TAB y que cambie al siguiente objeto...

salu2 !
#472

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'el 13 es el codigo ascii del Enter
        Command1_Click 'aca que keres q pase si se aprieta enter
    End If
End Sub


;)
#473
Q tiene q ver el puerto 138 ??
Yo crei que se keria cerrar cualquier purto ...

salu2 ! ;D
#474
Programación Visual Basic / Re: Reducir imágen
15 Octubre 2005, 03:33 AM
No c si entendi bien :S
Pero si es como yo pienso, tenes q usar una Image y poner la propiedad Strech en True...
#475
MANDAR EMAIL POR SMTP[/b]

Citarel codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email

Modificalo y usa solo la parte que necesites
#476

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Private Sub Command1_Click()
    Dim Secury As SECURITY_ATTRIBUTES
    CreateDirectory "C:\Carpeta", Secury
End Sub


Con este code tenes que hacer lo mismo q con MkDir (es decir, sirve para crear carpetas dentro de las ya existentes)... me parece xDDD

salu2 !
#477
mmm.. para que kede tenes q crear la variable ne las declaracones generales:
x ej:

Dim i As Integer

Private Sub Command1_Click()
    Timer1.Enabled = 1
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = 0
    MsgBox i
End Sub

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

Private Sub Timer1_Timer()
    i = i + 1
End Sub


ahi t keda la variable guardada..

salu2 !
#478
CitarPlay c:\windows\ringin.wav

Los .wav son diferentes a los .mp3 .............

Che G4rBag3 existen OCX q te permieten escuchar mp3
www.lawebdelprogramador.com
;)
#479
Pero no es tan dificil... vago xD

Yo creo q si debe haber otra forma pero en este momento no la recuerdo ;D...
buscala q la vas a encontrar... un salud0
#480
codificalo... hay mucho en el foro, BUSCA !

salu2 !