Imprimir Página - ayuda con picturebox

Título: ayuda con picturebox
Publicado por: titan6146 en 17 Noviembre 2009, 19:49 pm

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!!

Título: Re: ayuda con picturebox
Publicado por: BlackZeroX 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

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 17 Noviembre 2009, 20:15 pm

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

Título: Re: ayuda con picturebox
Publicado por: Castg! en 17 Noviembre 2009, 22:02 pm

mira si recien comenzas yo te recomiendo este para que vallas acostumbranote al ambiente de elhacker.net aca el tuto (http://www.google.com)

Título: Re: ayuda con picturebox
Publicado por: Dessa en 17 Noviembre 2009, 23:05 pm

Código:


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

Título: Re: ayuda con picturebox
Publicado por: agus0 en 17 Noviembre 2009, 23:15 pm

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

Código:


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

Título: Re: ayuda con picturebox
Publicado por: Castg! en 17 Noviembre 2009, 23:16 pm

muy bueno esa, me sirve para proyectos futuros xD!

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 18 Noviembre 2009, 19:23 pm

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

Título: Re: ayuda con picturebox
Publicado por: BlackZeroX en 19 Noviembre 2009, 05:20 am

Código

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

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

Dulces Lunas!¡.

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 19 Noviembre 2009, 19:31 pm

Cita de: ░▒▓BlackZeroҖ▓▒░ en 19 Noviembre 2009, 05:20 am

Código

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

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

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

Título: Re: ayuda con picturebox
Publicado por: ssccaann43 © en 19 Noviembre 2009, 19:38 pm

Ok, te explico lo que está en el codigo...

Código

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.

Código

'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

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 19 Noviembre 2009, 20:03 pm

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 ;-)

Título: Re: ayuda con picturebox
Publicado por: ssccaann43 © en 19 Noviembre 2009, 20:05 pm

Buenisimo, si hay muchas cosas fabulosas. Acá es mucho lo que puedes aprender. Saludos

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 20 Noviembre 2009, 00:25 am

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.

Título: Re: ayuda con picturebox
Publicado por: xkiz ™ en 20 Noviembre 2009, 00:46 am

Código

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?

Título: Re: ayuda con picturebox
Publicado por: titan6146 en 20 Noviembre 2009, 01:01 am

Cita de: xkiz en 20 Noviembre 2009, 00:46 am

Código

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

Título: Re: ayuda con picturebox
Publicado por: BlackZeroX en 20 Noviembre 2009, 03:23 am

Cita de: xkiz en 20 Noviembre 2009, 00:46 am

Código

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:

Código

Private Sub Command1_Click()
    Label1.Visible = not Label1.Visible
End Sub

Dulces Lunas!¡.

Título: Re: ayuda con picturebox
Publicado por: MCKSys Argentina en 20 Noviembre 2009, 04:50 am

Hola!

Puedes probar con:

Código:

Private Sub Command5_Click()
Label1.Visible = IIf(Command5.Caption = "", False, True)
end sub

Saludos!

Título: Re: ayuda con picturebox
Publicado por: BlackZeroX en 20 Noviembre 2009, 07:00 am

Cita de: MCKSys Argentina en 20 Noviembre 2009, 04:50 am

Hola!

Puedes probar con:

Código:

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:

Código

 
Private Sub Command5_Click()
    Label1.Visible = Command5.Caption = ""
end sub

aun que mas correcto seria asi:

Código

 
Private Sub Command5_Click()
    Label1.Visible = cbool(Command5.Caption = "")
end sub

Dulces Lunas!¡

Título: Re: ayuda con picturebox
Publicado por: MCKSys Argentina en 20 Noviembre 2009, 21:36 pm

Ups! Je,je,je

Asi es... :P

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: titan6146 en 17 Noviembre 2009, 19:49 pm