Regístrate gratis para participar de los foros, o si ya estás registrado haz login.
| comentario del autor | Mie Abr 23, 2008 2:41 am | |
|
Private Sub Check1_Click() If TextBox1.Text = "I" And TextBox2.Text = "N" And TextBox3.Text = "T" And TextBox4.Text = "E" And TextBox5.Text = "R" And TextBox6.Text = "P" And TextBox7.Text = "O" And TextBox8.Text = "L" And TextBox9.Text = "A" And TextBox10.Text = "C" And TextBox10.Text = "I" And TextBox12.Text = "O" And TextBox13.Text = "N" Then Image1.Picture=LoadPicture[c:\users\juan\documents\crucigrama\bien.jpg] Else 'Sino Image1. Picture =LoadPicture(c:\users\juan\documents\crucigrama\mal.jpg) End Sub en la parte que direcciono que esta la imagen despues del c: me marka error en los dos puntos.... espero puedan ayudarme ya que es para mañana mi trabajo jeje.... me lo habian devuelto y me dijieron que no me lo aceptaba la ingeniera... pero oi me lo pide para mañana muchas grax |
||
| sin valorar | Mie Abr 23, 2008 8:33 pm | |
|
Te conviene referenciar teniendo en cuenta la carpeta donde se esta ejecutando la aplicación concatenada con el nombre de la imagen. Menos problemas en caso de que cambies algo en la parte c:\users\juan\documents\crucigrama. Se entiende? la idea es tenern una variable donde guardes de la aplicacion y luego cuando queres referenciar una imagen haces: path_crucigrama = funcion_path_cucrigrama <----- debe ser un string image.Picture = LoadPicture(path_cucrigrama+'nombre_imagen') Saludos, Sergio. |
||