как передать переменной название события

[KatsuO]

необходимо переменной передать название события, типа btnTest_Click или frmTest_Load, если кто знает, подскажите

[ANDLL]

Название?? S="btnTest_Click";)

[KatsuO]

Название?? S="btnTest_Click";)

молодца, отличный совт...
и как это я сам не догадался? а если серьезно, то это должно быть универсальное решение... глобальной переменной должно передаваться название любого события... вот

[Viper]

Во-первых btnTest_CLick эт не название события, а имя процедуры-обработчика события, а во-вторых на кой тебе понадобилось получать название любого события и в каком месте ты хочешь их (названия то бишь) получать?

[KatsuO]

Во-первых btnTest_CLick эт не название события, а имя процедуры-обработчика события, а во-вторых на кой тебе понадобилось получать название любого события и в каком месте ты хочешь их (названия то бишь) получать?

идея такая: я создал класс, который вызывается при возникновении ошибки и в этом классе формируется sql-команда (Insert) и эта запись сохраняется в базе. это название необходимо для того, что бы знать, при исполнении какого событии возникла ошибка. я могу получить название проги, название формы, ip-машины и/или имя пользователя, текст ошибки, а вот какое событие вызвало ошибку... пока не могу...

[KatsuO]

Во-первых btnTest_CLick эт не название события, а имя процедуры-обработчика события, а во-вторых на кой тебе понадобилось получать название любого события и в каком месте ты хочешь их (названия то бишь) получать?

а как получить имя процедуры-обработчика события и присвоить ее переменной?

[Nord777]

Код: Выделить всё

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            'сгенерим ошибку деления на ноль
            Dim a As Integer = a \ 0
        Catch ex As Exception
            'покажем в каком событии она произошла
            MsgBox(ex.TargetSite.Name)
        End Try
    End Sub

[KatsuO]

Код: Выделить всё

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            'сгенерим ошибку деления на ноль
            Dim a As Integer = a \ 0
        Catch ex As Exception
            'покажем в каком событии она произошла
            MsgBox(ex.TargetSite.Name)
        End Try
    End Sub

спасибо Nord777. но я нашел другой путь... могу сохранить: имя формы.событие(делегаты) и путь к файлу.
задача решена... всем спасибо
вот код

Код: Выделить всё


Private Function test(ByVal str As String) As String       
        Try
            Dim fStream As New FileStream("C:\1.txt", FileMode.Open)
            Dim sReader As New StreamReader(fStream)
            Dim strOut As String
            strOut = sReader.ReadLine
            fStream.Close()
        Catch ex As Exception
            Dim str As String = ex.StackTrace.ToString
            Dim s, s1, l As String
            s = str.IndexOf(Me.Name)
            s1 = str.LastIndexOf(":l")           
            l = s1 - s
            Dim evnt As String = str.Substring(s, l)
        End Try
End Sub