Visual Basic - Consultar nombre de Subrutina

Life is soft - evento anual de software empresarial
   
Vista:

Consultar nombre de Subrutina

Publicado por Gustavo (2 intervenciones) el 16/01/2009 20:09:36
Muy buenas a todos !!!
Estoy necesitando ayuda con los siguiente:

Quiero capturar los errores en Visual Basic 6 y llevarlos a un formulario para mostrarlos de forma mas ordenada.
No tengo problema con ningun dato salvo que quiero mostrar el nombre de la Subrutina y/o Proceso de donde salio el error ...

Ejemplo para que me entiendan
----------------------------------------------

Private Sub Command1_Click()
Call MuestroError(Err.Number, Err.Description, 0, <xxxxxxxx>, Me.Name)
'En este caso lo que quisiera es enviar "Command1_Click"
End Sub

Private Sub MuestroError(Numero As Long, _
Descripcion As String, _
Estado As Integer, _
Proceso As String, _
Formulario As String)
'0 - Critical | 1 - Exclamation | 2 - Information | 3 - Question
Dim Ruta As String

Ruta = App.Path & "imagenes" & Estado & ".ico"

With frmError
Select Case Estado
Case 0
.imgIcono.Picture = LoadPicture(Ruta)
Case 1
.imgIcono.Picture = LoadPicture(Ruta)
Case 2
.imgIcono.Picture = LoadPicture(Ruta)
Case 3
.imgIcono.Picture = LoadPicture(Ruta)
End Select

.txtError.Text = Numero
.txtDescripcion.Text = Descripcion
.txtProceso = Proceso
.txtFormulario.Text = Formulario
End With

frmError.Show vbModal
End Sub


El problema lo tengo en como hago para obtener el nombre del Proceso.
Espero alguien pueda ayudarme ....

Muchas gracias.
Gustavo desde Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consultar nombre de Subrutina

Publicado por P3L30N2009 (701 intervenciones) el 17/01/2009 12:33:04
No sé cual es el problema, si lo estás pasando como un string ponle el nombre del proceso y ya está

Private Sub Command1_Click()
Call MuestroError(Err.Number, Err.Description, 0, "Command1_Click", Me.Name)
End Sub

Private Sub Command2_Click()
Call MuestroError(Err.Number, Err.Description, 0, "Command2_Click", Me.Name)
End Sub

y así sucesivamente...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consultar nombre de Subrutina

Publicado por Gustavo (2 intervenciones) el 17/01/2009 19:36:31
Hola P3L30N2009

Agradezco tu respuesta pero justamente lo que no quiero es pasarlo a mano.
Quiero saber si existe algo para poder capturarlo automaticamente cuando esta en ejecucion para que no haya posibilidad de error, ya que justamente lo que quiero es mostrar de donde proviene exactamente el error.

Muchas Gracias,
Gustavo.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar