Autor Tema: Manejo De Errore De Vb 6.0 (Leído 1842 veces)

jamamoto · « **en:** Lunes 6 de Noviembre de 2006, 22:28 »

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 sub
mierror:
msgbox &#34;Hubo un error&#34;
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

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 = &#34;Error no. &#34; & CStr(ErrNum) & &#34; en &#34; & Location & &#34;.&#34;
    gstrMsg = gstrMsg & vbCrLf & ErrorText
    Select Case ErrNum
        Case 7
            gstrMsg = &#34;Existe error por falta de memoria &#34; & _
            &#34;o de recursos del sistema de Windows. &#34; & _
            &#34;Cierre otras aplicaciones que tenga abiertas e inténtelo de nuevo.&#34;
        
      Case 52
        gstrMsg = &#34;ERROR: Nombre de archivo incorrecto.&#34;
      Case 53
         gstrMsg = &#34;ERROR: No se encontró el archivo.&#34;
      Case 54
        gstrMsg = &#34;ERROR: Modo de acceso erroneo.&#34;
      Case 55
         gstrMsg = &#34;ERROR: El archivo ya está abierto.&#34;
      Case 57
        gstrMsg = &#34;ERROR: I/O Error.&#34;
      Case 58
         gstrMsg = &#34;ERROR: El archivo ya existe.&#34;
      Case 61
        gstrMsg = &#34;ERROR: Disco lleno.&#34;
      Case 64
         gstrMsg = &#34;ERROR: Nombre de archivo incorrecto.&#34;
      Case 67
        gstrMsg = &#34;ERROR: Hay muchos archivos abiertos.&#34;
      Case 71
         gstrMsg = &#34;ERROR: La unidad de discos no está lista.&#34;
    End Select
    
    MsgBox gstrMsg, vbOKOnly + vbCritical, gstrAppTitle
End Sub
 

Esta rutina se llama de la siguiente manera:

Código: Text

Sub DelCharsFromEmail()
    
    On Error GoTo ErrorDelCharsFromEmail
 
    'Tu código va aquí
 
Exit Sub
ErrorDelCharsFromEmail:
    GenErrorHandler &#34;modMain&#092;DelCharsFromEmail&#34;, Err.Number, Err.Description
End Sub
 

jamamoto

muchas gracias

se le agradese montones me sirvio bastante, muy
bueno el sitio

gracias

SoloCodigo

Autor Tema: Manejo De Errore De Vb 6.0 (Leído 1842 veces)

jamamoto

Manejo De Errore De Vb 6.0

ArKaNtOs

Re: Manejo De Errore De Vb 6.0

Mollense

Re: Manejo De Errore De Vb 6.0

cpmario

Re: Manejo De Errore De Vb 6.0

jamamoto

Re: Manejo De Errore De Vb 6.0