ayuda con picturebox

[ssccaann43 ©]

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

Código (vb) [Seleccionar] Expandir


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 (vb) [Seleccionar] Expandir


'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


[titan6146]

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 

[ssccaann43 ©]

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

[titan6146]

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.

[xkiz ™]

Código (vb) [Seleccionar] Expandir


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?

[titan6146]

Código (vb) [Seleccionar] Expandir


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

[BlackZeroX]

Código (vb) [Seleccionar] Expandir


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 (vb) [Seleccionar] Expandir


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


Dulces Lunas!¡.

[MCKSys Argentina]

Hola!

Puedes probar con:

Código [Seleccionar] Expandir


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


Saludos!

[BlackZeroX]

Hola!

Puedes probar con:

Código [Seleccionar] Expandir


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 (vb) [Seleccionar] Expandir



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



aun que mas correcto seria asi:

Código (vb) [Seleccionar] Expandir



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




Dulces Lunas!¡

[MCKSys Argentina]

Ups! Je,je,je

Asi es...