ayuda con picturebox

[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

[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]

Código [Seleccionar] Expandir



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



[agus0]

Código [Seleccionar] Expandir



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]

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] Expandir


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] Expandir


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



Dulces Lunas!¡.

[titan6146]

Código (vb) [Seleccionar] Expandir


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] Expandir


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] Expandir


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