Imagen en un userform de vba
Tengo un archivo el cual me genera un numero aleatorio y este se ve reflejado en un textbox, como le puedo hacer para que el numero reflejado en el textbox haga que me muestre una figura en este caso son los números de un dado.
Anexo el código que tengo
Dim R As Single
Private Sub CommandButton1_Click()
If (Rnd * 5 + 1) > 5.6 Then
R = 6
Else
R = Int(Rnd * 5 + 1)
End If
TextBox1.Value = R
Select Case R
Case 1 = TextBox1.Value
Image1 = True
Image2 = False
Image3 = False
Image4 = False
Image5 = False
Image6 = False
Case 2 = 2
Image1 = False
Image2 = True
Image3 = False
Image4 = False
Image5 = False
Image6 = False
Case 3 = 3
Image1 = False
Image2 = False
Image3 = True
Image4 = False
Image5 = False
Image6 = False
Case 4 = 4
Image1 = False
Image2 = False
Image3 = False
Image4 = True
Image5 = False
Image6 = False
Case 5 = 5
Image1 = False
Image2 = False
Image3 = False
Image4 = False
Image5 = True
Image6 = False
Case 6 = 6
Image1 = False
Image2 = False
Image3 = False
Image4 = False
Image5 = False
Image6 = True
End Select
End Sub
1 respuesta
Esto no es lo mío, pero por si te puede dar una idea, tengo un formulario con 6 cuadros de texto( no tengo círculos) llamados A1, A2,... y un cuadro de texto llamado Texto8 donde supongo que te pondrá el valor aleatorio de la función Rnd
Cuando pulso el botón
Vamos a suponer que sale otro valor
Pulso el botón y
En este caso, repito, en este caso el código del botón es
Private Sub Comando10_Click() Dim ctl As Control For Each ctl In Form.Controls If ctl.Name <> "A" & Texto8.Value Then Texto8.BackColor = vbWhite Comando10.BackColor = vbWhite ctl.BackColor = vbBlack End If Next End Sub
Le pongo que el fondo sea del color negro, ya que si lo oculta "queda" el hueco. Es decir, que todos aquellos controles A1, A2,... que no coincidan con el valor que hay en texto8, su fondo se ponga en negro.
