Programación General > Visual Basic 6.0 e inferiores

 Manejo De Errore De Vb 6.0

(1/1)

jamamoto:
:P bueno les escribo para ver si me pueden alludar nesesito saber cual es el  codigo para un driverlistbox,es desir si yo elijo una unidad que no este en uso como A: es desir la disquetera, para que no se caiga el programa, y por ultimo un filelistbox, my ptrograma ase lo siguiente me posisiono sobre el  filelisttbox elijo una imagen y carga la imagen eso lo ase bien per si elijo cualquier otro archivo se cae  ;)  bup les agradeseria montones su alluda

ArKaNtOs:
para el manejo de errores es asi :
al principio de tu sub pon esto

--- Código: Text ---public....on error goto mierror........code.......exit submierror:msgbox "Hubo un error"exit sub 
para lo de la imagen restringe tu filelist.. con el pattern

Mollense:

--- Código: Text ---On Error Resume Next Para Ignorar los errores, aunque no creo que quieras hacer eso  :P
 :hola:

cpmario:
El manejo de errores de Unidades de Disco extraíbles como los floppys son los más difíciles de manejar.

Te muestro la rutina que uso para los errores que no pueden manejarse:

--- Código: Text ---Sub GenErrorHandler(Location As String, ErrNum As Integer, ErrorText As String)    Screen.MousePointer = vbDefault    gstrMsg = "Error no. " & CStr(ErrNum) & " en " & Location & "."    gstrMsg = gstrMsg & vbCrLf & ErrorText    Select Case ErrNum        Case 7            gstrMsg = "Existe error por falta de memoria " & _            "o de recursos del sistema de Windows. " & _            "Cierre otras aplicaciones que tenga abiertas e inténtelo de nuevo."              Case 52        gstrMsg = "ERROR: Nombre de archivo incorrecto."      Case 53         gstrMsg = "ERROR: No se encontró el archivo."      Case 54        gstrMsg = "ERROR: Modo de acceso erroneo."      Case 55         gstrMsg = "ERROR: El archivo ya está abierto."      Case 57        gstrMsg = "ERROR: I/O Error."      Case 58         gstrMsg = "ERROR: El archivo ya existe."      Case 61        gstrMsg = "ERROR: Disco lleno."      Case 64         gstrMsg = "ERROR: Nombre de archivo incorrecto."      Case 67        gstrMsg = "ERROR: Hay muchos archivos abiertos."      Case 71         gstrMsg = "ERROR: La unidad de discos no está lista."    End Select        MsgBox gstrMsg, vbOKOnly + vbCritical, gstrAppTitleEnd Sub 
Esta rutina se llama de la siguiente manera:

--- Código: Text ---Sub DelCharsFromEmail()        On Error GoTo ErrorDelCharsFromEmail     'Tu código va aquí Exit SubErrorDelCharsFromEmail:    GenErrorHandler "modMain\DelCharsFromEmail", Err.Number, Err.DescriptionEnd Sub 
 :comp:

jamamoto:
muchas gracias  :D se le agradese montones me sirvio bastante, muy
bueno el sitio  :comp: gracias :hola:

Navegación

[0] Índice de Mensajes