gracias aora tengo lio con un codigo por mas q le haga periqitos osea arreglos o sea lo q sea me da error se trata de llamar una imagen con los option button y mostrar su nombre en un label. ya nos e q acer!!!! por mas q le ponga las extansiones de jpg o bmp nada no muestra la imagen!!!
Private Sub Command1_Click()
If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.bmp")
Label1.Caption = "ES UN DJ"
End If
If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\mini.bmp")
Label1.Caption = "ES UNA MINITECA"
End If
If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\cerw.bmp")
Label1.Caption = "ES UN CAJON CERWIN VEGA"
End If
If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\car.bmp")
Label1.Caption = "ES CARIBBEAN"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ tri.bmp ")
Label1.Caption = "ES TRIDIMENSION"
End If
End Sub
-Programa que a través de una selección de imágenes muestre la reconversión monetaria
Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\1.bmp")
Label1.Caption = "un bolivar fuerte"
End If
If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\2.bmp")
Label1.Caption = "dos bolivares fuertes"
End If
If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\5.bmp")
Label1.Caption = "cinco bolivares fuertes"
End If
If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\10.bmp")
Label1.Caption = "dies bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 10.bmp ")
Label1.Caption = "veinte bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 50.bmp ")
Label1.Caption = "cincuenta bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 100.bmp ")
Label1.Caption = "cien bolivares fuertes"
End If
End Sub
Private Sub Command1_Click()
If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.bmp")
Label1.Caption = "ES UN DJ"
End If
If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\mini.bmp")
Label1.Caption = "ES UNA MINITECA"
End If
If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\cerw.bmp")
Label1.Caption = "ES UN CAJON CERWIN VEGA"
End If
If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\car.bmp")
Label1.Caption = "ES CARIBBEAN"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ tri.bmp ")
Label1.Caption = "ES TRIDIMENSION"
End If
End Sub
-Programa que a través de una selección de imágenes muestre la reconversión monetaria
Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\1.bmp")
Label1.Caption = "un bolivar fuerte"
End If
If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\2.bmp")
Label1.Caption = "dos bolivares fuertes"
End If
If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\5.bmp")
Label1.Caption = "cinco bolivares fuertes"
End If
If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\10.bmp")
Label1.Caption = "dies bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 10.bmp ")
Label1.Caption = "veinte bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 50.bmp ")
Label1.Caption = "cincuenta bolivares fuertes"
End If
If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 100.bmp ")
Label1.Caption = "cien bolivares fuertes"
End If
End Sub