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!!
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
me recomendas alguno, como veras recien estoy comenzando y estoy aprendiendo solo, no tengo ningun curso hecho, gracias igualmente
mira si recien comenzas yo te recomiendo este para que vallas acostumbranote al ambiente de elhacker.net aca el tuto (http://www.google.com)
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
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
muy bueno esa, me sirve para proyectos futuros xD!
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
With Picture1
If val(Text7.text) >= "0" Then
.Picture = LoadPicture("E:\1.jpg")
Else
.Picture = LoadPicture("E:\2.jpg")
End If
End With
With Picture1
If val(Text7.text) >= "0" Then
.Picture = Pic_nega.picture
Else
.Picture = Pic_posi.picture
End If
End With
Dulces Lunas!¡.
Cita de: ░▒▓BlackZeroҖ▓▒░ en 19 Noviembre 2009, 05:20 AM
With Picture1
If val(Text7.text) >= "0" Then
.Picture = LoadPicture("E:\1.jpg")
Else
.Picture = LoadPicture("E:\2.jpg")
End If
End With
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
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
Ok, te explico lo que está en el codigo...
With Picture1
'Si es mayor o igual a 0, busca la foto 1.jpg
If val(Text7.text) >= "0" Then
.Picture = LoadPicture("E:\1.jpg")
Else
'Si es negativo, busca la foto 2.jpg
.Picture = LoadPicture("E:\2.jpg")
End If
End With
Luego pides que te gustaría tener la imagen en objetos pictures ocultos y que se carguen desde allí, bueno la solución que te dio black es:
Agrega 2 pictures más, renombra los pictures asignados por Pic_nega y Pic_posi, luego asignales las imagenes y coloca los pictures ocultos.
'Luego coloca el codigo y listo
With Picture1
If val(Text7.text) >= "0" Then
.Picture = Pic_nega.picture
Else
.Picture = Pic_posi.picture
End If
End With
Gracias recien lo lei a tu post aunque no me creas ya lo habia solucionado. un millon de gracias muchachos recien empiezo con esto y me esta gustando el visual basic ;-)
Buenisimo, si hay muchas cosas fabulosas. Acá es mucho lo que puedes aprender. Saludos
otra vez yo pero ahora tengo otra cosita para hacer quiero programar una doble funcion a un Command Button al pulsar una vez que me haga visible label1 y al pulsarlo de nuevo que desaparezca label 1
gracias
edito:
Private Sub Command5_Click()
With Label1
If Command5.Caption Like "" Then
.Visible = False
Else
.Visible = True
End If
End With
esto es lo que logre hasta ahora pero no puedo hacerla desaparecer una vez que label1 tiene datos.
Private Sub Command1_Click()
Select Case Label1.Visible
Case False: Label1.Visible = True
Case True: Label1.Visible = False
End Select
End Sub
algo asi o entendi mal?
Cita de: xkiz en 20 Noviembre 2009, 00:46 AM
Private Sub Command1_Click()
Select Case Label1.Visible
Case False: Label1.Visible = True
Case True: Label1.Visible = False
End Select
End Sub
algo asi o entendi mal?
Correcto gracias muchas gracias son unos capos
Cita de: xkiz en 20 Noviembre 2009, 00:46 AM
Private Sub Command1_Click()
Select Case Label1.Visible
Case False: Label1.Visible = True
Case True: Label1.Visible = False
End Select
End Sub
algo asi o entendi mal?
que te parece mejor:
Private Sub Command1_Click()
Label1.Visible = not Label1.Visible
End Sub
Dulces Lunas!¡.
Hola!
Puedes probar con:
Private Sub Command5_Click()
Label1.Visible = IIf(Command5.Caption = "", False, True)
end sub
Saludos!
Cita de: MCKSys Argentina en 20 Noviembre 2009, 04:50 AM
Hola!
Puedes probar con:
Private Sub Command5_Click()
Label1.Visible = IIf(Command5.Caption = "", False, True)
end sub
Saludos!
No se nesesita el iif() ya que se evalua como "logico"
Solo con esto seria mas que suficiente:
Private Sub Command5_Click()
Label1.Visible = Command5.Caption = ""
end sub
aun que mas correcto seria asi:
Private Sub Command5_Click()
Label1.Visible = cbool(Command5.Caption = "")
end sub
Dulces Lunas!¡
Ups! Je,je,je
Asi es... :P