Red de conocimiento informático - Problemas con los teléfonos móviles - Utiliza VB para crear un visor de imágenes sencillo. ¿Alguien tiene el código?

Utiliza VB para crear un visor de imágenes sencillo. ¿Alguien tiene el código?

Solo puedo ejecutar el siguiente código.

¿Dónde?

Dir1-DirectoryListControl

Drive1-DriveListControl

Archivo1-FileListControl

Imagen1-ImageControl

Text1-TextBoxControl

Opción1-RadioBoxControl(Título "Navegar haciendo clic")

Opción2RadioBoxControl(Título "Navegar haciendo clic")Navegar")

Opción2- radio control (Título : "Examinar con doble clic")

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

En caso de error, Ir a DriErr

Dir1.Path = Drive1.Drive

Salir de Sub

DriErr:

Si Err.Number = 68 Entonces

If MsgBox("¿Quiere volver a intentarlo o cancelarlo?"), vbRetryCancel(), vbRetryCancel vbCritical, "El disco duro no existe o la unidad de CD-ROM no tiene ningún disco insertado.")=vbRetry!") = vbRetry Then

Reanudar 0

Else

Drive1.Drive = "C:"

Continuar siguiente

Finalizar si

Finalizar si

Finalizar sub

Subarchivo privado1_Clic ()

Si Option2.Value = True, entonces salga de Sub

Dim picFile As String

If Right(Dir1.Path, 1) = "\" Entonces

picFile = Dir1.Path Archivo1.FileName

Else

picFile = Dir1.Path "\" Archivo1.FileName

Else

picFile = Dir1.Path "\" File1.FileNamePath "\" File1.FileName

End If

Imagen1.Picture = LoadPicture( picFile)

Text1.Text = picFile

End Sub

Sub File1_DblClick()

Si Option1.Value = True, entonces salga de Sub

Atenuar picFil

e como cadena

Si Right(Dir1.Path, 1) = "\" Entonces

picFile = Dir1.Path File1.FileName

De lo contrario

picFile = Dir1.File1.FileName

上篇: Cómo verificar la dirección del contrato del token weth 下篇: VS ¿Qué es Sassoon? ¿Qué significa el peinado Sassoon?

Artículos populares