Mensajes

Ah ok, esa no la sabia gracias, me funciono con la "L" minuscula. Saludos.

Hola, en el textbox ingresas la contraseña cuando el programa esta en ejecucion, para q despues se ejecute el evento click del boton y se comprube, tanto el tipo de ingreso como la contraseña misma, y le pones en la propiedad PasswordChar el caracter "* "por q creo q el caracter "•" lo toma asi -> "|"
Saludos.

hola brache, encontre este link hay una parte en donde usan esas apis con ejemplos, fijate espero q te sirva.

http://www16.brinkster.com/eduroam/api/default.asp?pag=cap11

Saludos.

Hola BlaKore_Alpha como estas, constestando a tus dudas.

Solo una pregunta: ¿por qué no abre ninguna aplicación (que quiza es lo que más me resulte), sino que sólo se escucha el sonido?

como la api sndPlaySoundA es una función propia del windows, esta en particular no necesita ejecutar un programa externo para reproducir el sonido de un archivo de audio, tal es el caso contrario de la api ShellExecute q al introducirle un parametro con la ruta del archivo de audio, ejecutará el mismo con un programa q tengas instalado para reproducirlo como puede ser el Winamp,WMP o el q tengas predeterminado.

no se cargará la RAM? ¿No se trabará la máquina, o se hará lenta, al ejecutar archivos de sonido en poco tiempo?

q yo sepa son funciones q no consumen mucha memoria, o si alguien tenga otra definicion.

Saludos.

Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    If Text1 = "" Then
        MsgBox "Ingrese una contraseña válida"
    End If
End Sub


o si se trata de un textbox q solamente ingresá numeros y el usuario ingresa letras podes comprobar el ingreso de esta forma:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    If Not IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente números"
    End If
End Sub


en el caso de q solamente se ingrese texto y el usuario ingrese números hace lo mismo q lo anterior pero sin el Not:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    If IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente letras"
    End If
End Sub


Hay varias formas de verificación queda despues a tu elección.
Saludos.

Hola, bueno llegue tarde, por lo menos te voy contestar la segunda pregunta sobre los manuales de visual basic aca te dejo algunos links donde podras encontrar, manuales desde los basicos hasta los avanzados:

http://www.visual-basic.com.ar/links-es.htm
http://www.canalvisualbasic.net
http://www.elguille.info
http://www.recursosvisualbasic.com.ar

no es por nada malo contra seba pero me gusto mas el codigo de naderST es mucho mas simplificado, pero ambos cumplen la misma funcion. 

Saludos.

Hola, o si queres reproducir desde visual basic, utiliza la api q t nombro anteriormente seba123neo la sndPlaySound.

Código [Seleccionar] Expandir


Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2

Private Sub Command1_Click()
Dim rst&
    rst = sndPlaySound("c:\windows\media\chimes.wav", SND_SYNC Or SND_NODEFAULT)
End Sub


Saludos.

Hola como estas, este codigo q hice, recorre todo los formularios q tiene tu proyecto y verifica los caption de cada uno con el nombre q ingresaste en el textbox, si se da la coincidencia pasa a mostrar el form llamado.
Al cargar el form "Principal" cargar en memoria tambien todos los form del proyecto.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim ok As Boolean
    For i = 0 To Forms.Count - 1 '---> Recorre todos los formularios con el objeto "Forms"
        If Text1 = Forms(i).Caption Then '---> Compara con el q tipeaste
            Forms(i).Show '---> Lo ejecuta
            ok = True
        End If
    Next
    If ok = False Then
        MsgBox "El Form " & Text1 & " no existe."
    End If
End Sub

Private Sub Form_Load()
    Form1.Hide '---> Carga el Form1 pero no lo muestra
    Form2.Hide '---> Carga el Form2 pero no lo muestra
End Sub

Private Sub Form_Unload(Cancel As Integer)
    For i = Forms.Count - 1 To 0 Step -1
        Unload Forms(i) '---> Cierra todos los form
    Next
End Sub


Esta es una forma de verificar, otra seria con un Select Case verifiques cada uno de los caption de todos los form con el q escribiste en el textbox, claro q, tendras q escribir todos los caption, de cada form para cada Case.

No se si sera lo q necesitas. Saludos.

hola, no entiendo en q parte debe realizar la busqueda de la palabra por ejemplo: en un textbox, en un richtextbox, en archivos, en base de datos explica un poco mas.
Saludos.

hola de nuevo, lo q entendi fue q queres q el puntero del mouse se posicione al final de "[config]" proba en agregale esto:

Código [Seleccionar] Expandir


Text1.Text = text1.Text + vbCrLf
'----
Text1.SelStart = Len(Text1)
Text1.SetFocus


despues explicame lo del listbox y de la variable Code.