Исключение при отсутствие Dll

[edyapd]

Подскажите, что делаю не так:

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

Imports My_Dll
Imports System
Public Class Form1
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myDll As New Class1
        Try
              ' Здесь обращение к Dll
        Catch ex As Exception
            MsgBox("Отсутствует Dll")
        End Try
    End Sub
End Class

Когда Dll на месте, всё нормально. Стоит её удалить программа вываливается при обращение к Dll, вместо того чтобы перейти в обработчик.

[Admiralisimys]

edyapd не так часто использую исключения, может добавить FileSystem.FileExists оставив Try(будет, по идеи, проверять исправность dll)?

[Qwertiy]

Потому что отсутствие dll определяется в момент запуска, а не в момент обращения, скорее всего.
Если такая конструкция действительно нужна, попробуй использовать другие варианты, без внесения dll в зависимости. Например, объявление её функций или рефлексию.

Кстати, As New - это уже обращение. А может, и просто As - тоже.

[edyapd]

Потому что отсутствие dll определяется в момент запуска, а не в момент обращения, скорее всего.
Кстати, As New - это уже обращение. А может, и просто As - тоже.

Программа вылетает имено при нажатии на Button1.
Тогда получается, что я не туда Try воткнул. Сейчас попробую перед Dim

[edyapd]

Заработала такая конструкция:

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            call_Dll()
        Catch ex As Exception
            MsgBox("Отсутствует Dll")
        End Try
    End Sub

    Sub call_Dll()
        Dim myDll As New Class1
        ' Здесь обращение к Dll
    End Sub

Всем спасибо

[Qwertiy]

Не за что.

А зачем вообще нужна такая штука с dll?

[edyapd]

А зачем вообще нужна такая штука с dll?

Хочу попробовать написать программку, чтобы без dll работала в Демо режиме.
А в dll засунуть подпрограммы, до полного функционала.