Red de conocimiento informático - Problemas con los teléfonos móviles - vb aleatorizar la visualización de imágenes

vb aleatorizar la visualización de imágenes

Código VB.NET

Forma de clase pública1

Dim a As Boolean = False

Subbotón privado1_Click (remitente ByVal como System.System.EventArgs) Maneja el botón1. Haga clic en

'Si a = False, entonces

a = True

'Si a = False, entonces

A = True

'Si a = False, entonces

A = True

'El botón Over se usa para iniciar y detener el cambio de imagen

Si a = False Entonces

a = True

Timer1.Enabled = True

De lo contrario

a = False

Timer1 .Enabled = False

End If

End Sub

Private Sub Timer1_Tick(ByVal remitente As System.Object.Object, ByVal e As System. EventArgs) Maneja Timer1.Tick

Dim b As Integer

b = CInt(Int((5 * Rnd()) 1)) 'Genera un entero aleatorio de 1 a 5

Label1.Text = "Esta es la primera " amp; b amp "imagen".

PictureBox1.Image = Image.FromFile(ListBox1.Items.Item(b - 1) ) ' El índice de ListBox comienza desde 0, por lo que -1

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.Object, ByVal e As System Object, ByVal y As System.Object, ByVal y As System.Object, ByVal y As System.Object)Object, ByVal y As System.EventArgs) Maneja MyBase.Load

Aquí se usa 'Listbox'. para almacenamiento La ruta de la imagen

Para cada archivo encontrado como cadena en My.Computer.FileSystem.GetFiles("F:\Pictures") 'Agrega todos los nombres de archivos y rutas en el directorio especificado al control ListBox

ListBox1.Items.Add(archivo encontrado)

上篇: ¿Qué debo hacer si la computadora portátil ASUS Win7 solicita la solicitud atk 0100 al iniciar? 下篇: ¿Qué debo hacer si mi teléfono vivo consume demasiada energía?

Artículos populares