ayuda con picturebox

Iniciado por titan6146, 17 Noviembre 2009, 19:49 PM

0 Miembros y 1 Visitante están viendo este tema.

titan6146

buenas tardes les cuento que estoy haciendo un programita en el cual necesito que dada una condicion en una "label" me muestre una imagen u otra.
Osea si el valor de la label es positivo el picturebox muestra "imagen 1.jpg" si es negativo muestra "imagen 2.jpg"
Gracias de antemano saludos!!

BlackZeroX

leete un manual basico de basic ya que eso se hace facil con un evento x  con un if y un loadpicture() o x.picture=x.picture
The Dark Shadow is my passion.

titan6146

me recomendas alguno, como veras recien estoy comenzando y estoy aprendiendo solo, no tengo ningun curso hecho, gracias igualmente

Castg!

mira si recien comenzas yo te recomiendo este para que vallas acostumbranote al ambiente de elhacker.net aca el tuto

Dessa




Private Sub Command1_Click()
  WebBrowser1.Navigate "http://www.google.com.ar/"
  While WebBrowser1.ReadyState <> 4: DoEvents: Wend
  WebBrowser1.Document.f.q.Value = "Control PictureBox - Recursos Visual Basic"
  WebBrowser1.Document.f.btnG.Click
End Sub

Adrian Desanti

agus0

Cita de: Dessa en 17 Noviembre 2009, 23:05 PM



Private Sub Command1_Click()
  WebBrowser1.Navigate "http://www.google.com.ar/"
  While WebBrowser1.ReadyState <> 4: DoEvents: Wend
  WebBrowser1.Document.f.q.Value = "Control PictureBox - Recursos Visual Basic"
  WebBrowser1.Document.f.btnG.Click
End Sub



Jajaj Bien pensado

Castg!

muy bueno esa, me sirve para proyectos futuros xD!

titan6146

Cita de: ░▒▓BlackZeroҖ▓▒░ en 17 Noviembre 2009, 20:08 PM
leete un manual basico de basic ya que eso se hace facil con un evento x  con un if y un loadpicture() o x.picture=x.picture

Gracias con lo que me dijiste lo pude solucionar me quedo asi
If Text7 > "0" Then
With Picture1
    .Picture = LoadPicture("E:\1.jpg")
    End With
Else
    With Picture1
    .Picture = LoadPicture("E:\2.jpg")
    End With
End If

otra cosa la desventaja de esto es que las imagenes las carga de un lugar del disco en mi caso "E:" la idea es que sea un programa portable quiero saber si se pueden cargar las imagenes dentro del programa no se picturebox ocultos y cuando llame a cargar que las tome de ahi no se si me explico
gracias 

BlackZeroX

Código (vb) [Seleccionar]

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = LoadPicture("E:\1.jpg")
    Else
        .Picture = LoadPicture("E:\2.jpg")
    End If
End With


Código (vb) [Seleccionar]

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = Pic_nega.picture
    Else
        .Picture = Pic_posi.picture
    End If
End With



Dulces Lunas!¡.
The Dark Shadow is my passion.

titan6146

Cita de: ░▒▓BlackZeroҖ▓▒░ en 19 Noviembre 2009, 05:20 AM
Código (vb) [Seleccionar]

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = LoadPicture("E:\1.jpg")
    Else
        .Picture = LoadPicture("E:\2.jpg")
    End If
End With


Código (vb) [Seleccionar]

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = Pic_nega.picture
    Else
        .Picture = Pic_posi.picture
    End If
End With



Dulces Lunas!¡.


A ver si me quedo claro me decis que reemplace el codigo mio por el que me escribiste abajo osea
Código (vb) [Seleccionar]

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = Pic_nega.picture
    Else
        .Picture = Pic_posi.picture
    End If
End With


puse esto en lugar de lo que tenia pero me dice que "se requiere un objeto" aparte come le indico que imagen cargar probe cargar la imagen en el cuadro de propiedades de picturebox le modifique la opcion de visible o no pero no me funciona. Gracias de nuevo