Ejemplos de programación en VB

Primero agregue un formulario, agregue un control de cuadro de texto a este formulario y escriba el siguiente programa en el evento de clic de este cuadro de texto:

Dim num, sum, it(1 ), n, t, h

Sub privado Form_Click()

Archivo1.Refresh

suma = 0

Lista1.Borrar

Para i = 0 A File1.ListCount - 1

t = Split(File1.List(i), ".")(UBound(Split(File1.List (i), ".")))

Si LCase(t) = LCase("jpg") O LCase(t) = LCase("bmp") O LCase(t) = LCase(" gif") Entonces List1.AddItem File1.List(i): suma = suma 1

Siguiente

h = Rnds(suma)

Imprimir h

Imagen1.Picture = LoadPicture(List1.List(h))

End Sub

Sub privado Form_Load()

File1.Visible = 0

List1.Visible = 0

num = -1

End Sub

Función Rnds(ByVal Value)

re :

DoEvents

Aleatorio

n = Fix(Rnd * Valor)

Si num = 1 Entonces num = -1

num = num 1

it(num) = n

Si it(0) = it(1) Entonces GoTo re

Rnds = n

Función final

'Agregar un control de imagen1, archivo1 y lista1