Mensajes

[Un saludo y gracias]

Solo tienes que filtrar el user y combalidar el password del usuario y ya tienes el login lo puedes hacer con el componente ado que es muchop mas facil

Lo de la revision a la sql del user y pass ya lo sabia pero lo del componente ado... xD, no tengo ni idea de lo que significa ado... 

Un saludo y gracias

[Un saludo]

Creo que te entendí  .

Mírate este Source code. Es un programa que envía E-Mails ya creado.



http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/enviar-mail-en-formato-html.htm

Por cierto, el Source está hecho por el maestro LeandroA  , el que está en el foro sí, jeje.

Un saludo

Buenas, pues querría crear un Login.

De forma que tengo un form que tiene dos textbox (una de usuario y otro de la pass), un Label1 y un botón. De forma que cuando le des al botón (command1) revise la base de datos (donde estan los usuarios).

He buscadp y encontrado datos en www.recursosvisualbasic.com pero ninguno me servía :S, tras mucho intentarlo, acudo al foro para ver si podéis ayudarme.

Por cierto, la base de datos es de 000webhost, osea, tiene usuario contraseña... (no es libre, porque en algunos ejemplos de RVB no venía lo de user pass host name de la DB...

Muchas gracias  Un saludo 

[/b]

[Un saludo]

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
Image2.Picture = LoadPicture(App.Path & "\images\cerrar.gif")
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadPicture(App.Path & "\images\cerrariluminado.gif")
End Sub

, ahora mismo no estoy en el PC que tiene el Visual basic, pero en cuanto vaya lo pruebo.

Por cierto, cuanto pasas el ratón por encima se pone la otra imágen pero, cuando deja de estar el ratón encima de la imágen, ¿vuelve a la imágen principal?

Un saludo

[LoadImage]

Hola, es que no es LoadImage es LoadPicture 

saludos.

Haha, ya no me aparece el error ese, pero me aparece otro  .

Run-Time Error '13':
Type mismatch

Y el código es éste:

Código (vb) [Seleccionar] Expandir


Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadPicture(App.Path & "\images\cerrar.gif" Or App.Path & "\images\cerrariluminado.gif")
End Sub


Y como ya dije, todo el project está guardado en una carpeta y dentro de esa carpeta hay otra que se llama "images" que dentro de esa es donde se encuentran las imágenes .GIF.

Un saludo y gracias nuevamente

[LoadImage]

Código (vb) [Seleccionar] Expandir

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture=LoadImage(path1 or path2)
End Sub

Gracias  .

Código (vb) [Seleccionar] Expandir


Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadImage(App.Path & "\cerrar.gif" Or App.Path & "\cerrariluminado.gif")
End Sub


Ese es el código que he puesto (ya creé la carpeta con images y todo eso... ahí no está el error.

Al iniciar el programa y pasar el cursor por encima de la Imagen 2 me da un error: "Sub or fuction not defined" o algo así... Y el error me lo marca en: LoadImage.

¿Qué hay que declarar alguna función o algo?.

Muchas gracias

[Un saludo y gracias]

Disculpa mi ignorancia, pero no encuentro la propiedad MouseMove... Uso el VB 6.

Y, ¿Este código dónde iría, en un timer? :

Código (vb) [Seleccionar] Expandir


Image1.Picture=LoadImage(path1 or path2)


Y respecto a las Bd´s, es cuestión de práctica, es verdad  , pero es que llevo 1 mes intentándolo y aún no lo conseguí, por eso a ver si me podríais hechar una mano  .

Un saludo y gracias

[1ª pregunta:]

Buenas a todos, antes de todo, gracias de antemano  ,

Bueno, iré directo al grano:

1ª pregunta:

Tengo una imágen (Image1), quiero saber qué código poner para que cuando el ratón pase por encima de esa imágen la Image1 pase a ser otra (Image2), pero que cuando el ratón deje de estar encima de la Image2 pues se cambie de nuevo a la Image 1.

Un ejemplo es, los botones cerrar, minimizar y maximizar de una ventana del navegador por ejemplo, cuando pones el ratoón por encima cambia de imágen.

2ª pregunta:

He leído muchísimo sobre relaciones de base de datos (SQL) con Visual Basic. Pero aún así no llegué a nada  . 

Pues lo que querría hacer es lo siguiente: Tengo un Form (Form1), en ese form hay dos textbox, un commandbutton, un label y un Image. Pus quiero hacer que al pulsar en ese Commandbutton (command1) se revise en una base de datos SQL (por ejemplo una que tengo que se llama blabla_db1) el usuario y contraseña introducidos, y ponga en el Label (label1) si el usuario/ contraseña fue aceptada o fueron erróneas y, finalmente, si fueron aceptadas el usuario/ contraseña, que la Image1 pase de Enabled = False a Enabled = True.

Ya sé, ya sé. Es difícil, busqué en el foro y en todos lados, encontré cosillas sobre relaciones de bases de datos SQL con VB pero la verdad, me sirvieron de poco  .

Bueno, eso es todo, muchas gracias de antemano  .

Un saludo

[creado.txt]

Eso es muy fácil de hacer, mira;

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
if dir("C:\creado.txt")=0 Then
'Se crea el creado.txt vacio
else
'No es la primera vez que se inicia en el PC
End IF
End Sub

No se si lo has entendido, yo lo que hago es buscar como referencia al creado.txt y si no existe se crea y si existe se procede ha hacer el código de los 3 botones y eso. Puedes cambiar el código con otras referencias como buscando en el registro..

WOW, buenisima tu respuesta, y tambien la del otro user.

Muchas gracias a todos, TEMA RESUELTO.

[Un saludo y gracias de antemano]

Buenas,
pues tengo un Form con un código, os pondré un ejemplo:

Ok, pues me gustaría hacer que la primera vez que ejecutes ese programa en un PC (que se guarde en un registro o algo y lo compruebe al iniciar el programa si existe ese valor, o algo asi creo que sería) aparezcan los botones 1, 2 y 3 con enabled en False, el Textbox con el enabled en true y el botón de "->" con enabled en True y también que el BorderStyle del form pase de ser 1 - Fixed Single a ser 0 - None.

En cambio, que una vez que ya hayas iniciado ese programa una vez en esa pc, que cuando inicies de nuevo el programa en ese mismo PC, aparezcan los botones 1, 2 y 3 con enabled en True, el textbox con enabled en false y el botón de "->" con enabled en False y también el BorderStyle del form pase de ser 0 - none a ser 1 - Fixed Single.

Sé que esto se haría con el registro de Windows, así que otra pregunta, ¿Qué podría hacer para que un usuario que no sea Administrador de esa PC (por ejemplo, hay dos cuntas de usuario, Administrador y Tony, y yo me meto en la de Tony) pueda arrancar el programa sin fallos?

Un saludo y gracias de antemano