Как реализовать пользовательскую DLL, которую я сделал с Public Subs - PullRequest
0 голосов
/ 26 ноября 2018

Я работаю над созданием своей собственной игры и хочу реализовать созданную мной собственную DLL.Он использует пользовательские аргументы Public Sub, и кажется, что я не могу его правильно реализовать.Код для DLL выглядит следующим образом:

Public Class EventChanger
    Public Sub StopEvent()
        'code here to stop event
    End Sub
    Public Sub StartEvent()
        'code here to start event
    End Sub
End Class

Я скомпилировал его, добавил ссылку на него и добавил код.

Imports EventChanger

И когда я сделаюкод выглядит следующим образом:

Imports EventChanger
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        EventChanger.EventChanger.StopEvent()
        'other code
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'other code unrelated to event
    End Sub
End Class

Я получаю такую ​​ошибку, поэтому я попытался это сделать:

Imports EventChanger

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        EventChanger.StopEvent()
        'other code
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'other code unrelated to event
    End Sub
End Class

Но я все еще получаю ошибку.Может ли кто-нибудь помочь мне?Спасибо!

1 Ответ

0 голосов
/ 27 ноября 2018

Изменение кода на

Public Class EventChanger
    Public Shared Sub StopEvent()
        'code here to stop event
    End Sub
    Public Shared Sub StartEvent()
        'code here to start event
    End Sub
End Class

Сработало.Теперь я могу сделать следующий код:

Imports EventChanger

And when I make the code it looks like this:

    Imports EventChanger
    Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        EventChanger.EventChanger.StopEvent()
        'other code
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'other code unrelated to event
    End Sub
End Class

Это работает для меня.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...