SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jamamoto en Lunes 6 de Noviembre de 2006, 22:28

Título: Manejo De Errore De Vb 6.0
Publicado por: jamamoto en Lunes 6 de Noviembre de 2006, 22:28
: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
Título: Re: Manejo De Errore De Vb 6.0
Publicado por: ArKaNtOs en Lunes 6 de Noviembre de 2006, 23:03
para el manejo de errores es asi :
al principio de tu sub pon esto
Código: Text
  1. public....
  2. on error goto mierror
  3. ....
  4. ....
  5. code
  6. ....
  7. ...
  8. exit sub
  9. mierror:
  10. msgbox "Hubo un error"
  11. exit sub
  12.  

para lo de la imagen restringe tu filelist.. con el pattern
Título: Re: Manejo De Errore De Vb 6.0
Publicado por: Mollense en Martes 7 de Noviembre de 2006, 02:02
Código: Text
  1. On Error Resume Next
  2.  
Para Ignorar los errores, aunque no creo que quieras hacer eso  :P
 :hola:
Título: Re: Manejo De Errore De Vb 6.0
Publicado por: cpmario en Martes 7 de Noviembre de 2006, 06:20
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
  1. Sub GenErrorHandler(Location As String, ErrNum As Integer, ErrorText As String)
  2.     Screen.MousePointer = vbDefault
  3.     gstrMsg = "Error no. " & CStr(ErrNum) & " en " & Location & "."
  4.     gstrMsg = gstrMsg & vbCrLf & ErrorText
  5.     Select Case ErrNum
  6.         Case 7
  7.             gstrMsg = "Existe error por falta de memoria " & _
  8.             "o de recursos del sistema de Windows. " & _
  9.             "Cierre otras aplicaciones que tenga abiertas e inténtelo de nuevo."
  10.        
  11.       Case 52
  12.         gstrMsg = "ERROR: Nombre de archivo incorrecto."
  13.       Case 53
  14.          gstrMsg = "ERROR: No se encontró el archivo."
  15.       Case 54
  16.         gstrMsg = "ERROR: Modo de acceso erroneo."
  17.       Case 55
  18.          gstrMsg = "ERROR: El archivo ya está abierto."
  19.       Case 57
  20.         gstrMsg = "ERROR: I/O Error."
  21.       Case 58
  22.          gstrMsg = "ERROR: El archivo ya existe."
  23.       Case 61
  24.         gstrMsg = "ERROR: Disco lleno."
  25.       Case 64
  26.          gstrMsg = "ERROR: Nombre de archivo incorrecto."
  27.       Case 67
  28.         gstrMsg = "ERROR: Hay muchos archivos abiertos."
  29.       Case 71
  30.          gstrMsg = "ERROR: La unidad de discos no está lista."
  31.     End Select
  32.    
  33.     MsgBox gstrMsg, vbOKOnly + vbCritical, gstrAppTitle
  34. End Sub
  35.  

Esta rutina se llama de la siguiente manera:
Código: Text
  1. Sub DelCharsFromEmail()
  2.    
  3.     On Error GoTo ErrorDelCharsFromEmail
  4.  
  5.     'Tu código va aquí
  6.  
  7. Exit Sub
  8. ErrorDelCharsFromEmail:
  9.     GenErrorHandler "modMain\DelCharsFromEmail", Err.Number, Err.Description
  10. End Sub
  11.  

 :comp:
Título: Re: Manejo De Errore De Vb 6.0
Publicado por: jamamoto en Martes 7 de Noviembre de 2006, 13:24
muchas gracias  :D se le agradese montones me sirvio bastante, muy
bueno el sitio  :comp: gracias :hola: