• Miércoles 6 de Noviembre de 2024, 06:53
« anterior próximo »
Páginas: [1]

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

jamamoto

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Manejo De Errore De Vb 6.0
« en: Lunes 6 de Noviembre de 2006, 22:28 »
0
: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

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Manejo De Errore De Vb 6.0
« Respuesta #1 en: Lunes 6 de Noviembre de 2006, 23:03 »
0
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

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Manejo De Errore De Vb 6.0
« Respuesta #2 en: Martes 7 de Noviembre de 2006, 02:02 »
0
Código: Text
  1. On Error Resume Next
  2.  
Para Ignorar los errores, aunque no creo que quieras hacer eso  :P
 :hola:
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Manejo De Errore De Vb 6.0
« Respuesta #3 en: Martes 7 de Noviembre de 2006, 06:20 »
0
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:

jamamoto

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Re: Manejo De Errore De Vb 6.0
« Respuesta #4 en: Martes 7 de Noviembre de 2006, 13:24 »
0
muchas gracias  :D se le agradese montones me sirvio bastante, muy
bueno el sitio  :comp: gracias :hola:
Páginas: [1]
« anterior próximo »