есть функция которая в итоге делает видимой другую форму
вызывала её из контекстного меню
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
AnalizUserDoubleClick(Replace(oExcel.ActiveCell.Address, "$", ""))
End Sub
решила перехватывать событие двойного щелчка на листе
Private WithEvents oWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Public Sub oWorkSheet_BeforeDoubleClick(ByVal Target As Microsoft.Office.Interop.Excel.Range, ByRef Cancel As Boolean) Handles oWorkSheet.BeforeDoubleClick
Cancel = True
AnalizUserDoubleClick(Replace(Target.Address, "$", ""))
End Sub
событие возникает, функция корректно отрабатывает, но в итоге форма не отвечает....
Ответить
|