|
1001
|
Programación / Programación Visual Basic / Re: Dudas en VB6
|
en: 2 Marzo 2008, 14:54 pm
|
Hola, tus dudas son fáciles de solucionar.. verás.. El MsgBox con VbQuestion+vbyesNo lo que hace es devolver True si pulsas en sí y False si pulsas en No, es como una variable Booleana por lo tanto si quieres que haga una cosa u otra dependiendo que botón pulse sólo tienes que meter el msgbox en un if que compare la respuesta con vbyes o vbno. Ejemplo: Private Sub Command1_Click() If MsgBox("Texto", vbQuestion + vbYesNo, "Título") = vbYes Then MsgBox "has pulsado SI" Else MsgBox "Has pulsado NO" End If End Sub
Para que te pregunte al cerrar el programa tienes que colocar tu código en Form_Unload. La función Form_Unload lleva un parámetro Cancel con el que podrás decidir si cerrar o no el formulario, lo pones a 1 si quieres impedir que se cierre tu programa y a 0 en caso contrario, es más claro con un ejemplo. Ejemplo: Private Sub Form_Unload(Cancel As Integer) If MsgBox("Desea Salir", vbQuestion + vbYesNo, "Título") = vbYes Then Cancel = 0 Else Cancel = 1 End If End Sub
Espero que te sea de ayuda, Saludos!!
|
|
|
1002
|
Programación / Programación Visual Basic / Re: usuario i contraseña
|
en: 2 Enero 2008, 22:29 pm
|
Si, tughack el texto cifrado también es texto plano, pero como piensas desencriptarlo si no sabes el algoritmo que usó de cifrado?? Obviamente es más seguro usar una cifrado en la contraseña... yo lo veo obvio al menos.. si alguien no lo ve puedo poner una sencilla prueba.. xD Saludos!
|
|
|
1004
|
Media / Multimedia / ¿Programa de edicion de video?
|
en: 28 Diciembre 2007, 14:49 pm
|
Hola a todos, quería haceros una pregunta. A ver si conociáis algún programa bueno para la edición de vídeo, cortar el vídeo, añadir efectos, poner música, añadirle textos y demás. Quiero que tenga bastantes posibilidades, digamos que si yo preguntase en el foro de diseño gráfico por un buen programa de diseño de imagen me dirían: Photoshop, Gimp, Corel Draw... o alguno así porque son los más potentes, pues quería preguntar aquí si alguien conoce programas potentes pero para la edición de vídeo porque la verdad no conozco este tema y necesito editar algunos vídeos, espero vuestra respuesta. Un saludo y gracias
|
|
|
1006
|
Programación / Programación Visual Basic / Re: [Ayuda] Función IF
|
en: 15 Diciembre 2007, 18:22 pm
|
Pues puedes cambiar la ruta, mira: Private Sub Command1_Click() Dim Pass, ruta As String Dim Temp As String ruta = "C:\LOKEKIERAS" ' AKI PONES LA RUTA DEL ARCHIVO QUE QUIERAS COMPROBAR nFic = FreeFile Open ruta For Input As nFic Do Until EOF(nFic) Input #nFic, Temp Text1.Text = Text1.Text + Temp Loop Close nFic Pass = Text1.Text If Pass = "x" Then ' ESTA X LA SUSTITUYES POR LO QUE QUIERAS QUE COMPRUEBE QUE PONE EN EL FICHERO Form2.Show Else MsgBox "Error, vuelva a intentarlo", vbCritical End End If End Sub
Y ya está, así de simple.
|
|
|
1008
|
Programación / Programación Visual Basic / Re: Casi nada de Programación solo de Logica. :O
|
en: 15 Diciembre 2007, 17:35 pm
|
Pues eso, tu has puesto la cadena y yo te puesto la solución para esa cadena hombre.. xD pero vamos no se donde está el problema: Mete un textbox y haces así y en teoría debería de meter todos los mails... Private Sub Form_Load() Dim i as integer Dim data, datos As String Dim vdata, vdatos As Variant Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1 data = Input(LOF(1), #1) Close #1 vdata = Split(data, "@") For i = 0 To Numero de Entradas del localhost.sql datos=vdata(i) vdatos = Split(datos, "'") Text1.Text = Text1.Text & vdatos(3) & vbcrlf Next i End Sub
Creo que así iría bien, prueba y me dices, esque sin el archivo no puedo probarlo.. xD
|
|
|
1009
|
Programación / Programación Visual Basic / Re: Casi nada de Programación solo de Logica. :O
|
en: 15 Diciembre 2007, 17:24 pm
|
Hay muchas formas de hacer eso, yo haría un split... algo así Private Sub Command1_Click() Dim data As String Dim vdata As Variant data = "'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'" vdata = Split(data, "'") MsgBox vdata(3) End Sub
Y ya devuelve el valor del e-mail. Haces que en data se almacene la cadena correspondiente y ya está :¡ Saludos.
|
|
|
1010
|
Programación / Programación Visual Basic / Re: [Ayuda] Función IF
|
en: 15 Diciembre 2007, 17:16 pm
|
Buenas amigo, pues mira principalmente decirte que el código de Lambda es más simple y también funciona, pero de todas formas yo te explico si quieres el que yo puse: Private Sub Command1_Click() Dim Pass As String 'variable de tipo cadena que almacena el password Dim Temp As String 'variable tipo cadena que va almacenando datos del fichero que se importa nFic = FreeFile 'liberamos el canal del fichero nFic Open "C:\a.txt" For Input As nFic 'Abrimos el archivo, AQUÍ ES DONDE PONES LA RUTA Do Until EOF(nFic) ' Esto es un bucle que lee el fichero hasta que llegue al final del fichero Input #nFic, Temp ' Importas lo que va leyendo el fichero a la variable temp Text1.Text = Text1.Text + Temp ' por eso aqui hacemos text1.text = text1.text + temp (lo importado del fichero) Loop Close nFic Pass=Text1.Text ' Ahora lo que hemos importado del fichero lo almacenamos en la variable Pass If Pass = "x" Then ' Y ahora si el pass coincide con lo introducido por el usuario, en este caso "x" Form2.Show ' entonces mostramos el form2 Else MsgBox "Error, vuelva a intentarlo", vbCritical 'sino tiramos error y cerramos el programa End End If End Sub
Espero que más o menos lo entiendas, y si me equivoqué en cualquier cosa espero que alguien me corrija. Y de todas formas como ya te dije el código de Lambda es más simple y funciona perfectamente aunque este también funciona sólo que es más largo, bueno espero que te sea de ayuda al menos y aprendas algo nuevo Saludos.
|
|
|
|
|
|
|