Я занимаюсь разработкой библиотеки DLL, поэтому мне не нужно копировать и вставлять один и тот же код, занимая место. Однако мне приходится иметь дело с проблемой, когда при импорте библиотеки в мой проект мне приходится набирать код, подобный следующему: ImportedFileName.ClassName.SubName(Argument1, Arugment2, "Argument3", [...])
.
Я работаю над утилитой обновления, которая позволяет вам pu sh игры для GameJolt и Itch.IO, и вот часть кода, над которым я работаю.
Public Class GJPush
' token separate from password
Public Shared Sub normalbuild(ByVal token As String, ByVal gameid As Integer, ByVal packageid As Integer, ByVal versionid As String, ByVal GameFile As String)
Dim SourcePathUpdateButler As String = "gjpush.exe" 'check for gamejolt push
Dim FilenameUpdate As String = System.IO.Path.GetFileName(SourcePathUpdateButler) 'get the filename of the original file without the directory on it
If System.IO.File.Exists(SourcePathUpdateButler) Then
Dim pHelp As New ProcessStartInfo
pHelp.FileName = "gjpush.exe" ' file found here: https://github.com/gamejolt/cli/releases/tag/v0.3.0
pHelp.Arguments = "-t " & token & " -g " & gameid & " -p " & packageid & " -r " & versionid & GameFile
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
Else
Dim pHelp As New ProcessStartInfo
pHelp.FileName = "cmd.exe"
pHelp.Arguments = "@echo off && cls && echo Error: Cannot run GameJolt Push, the file 'gjpush.exe' is missing! && pause"
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
End If
End Sub
End Class
Если я хочу запустить этот код в своем приложении, мне придется ввести следующий код:
Imports GJPush
Public Class form1
Private Sub buttonclick(sender As Object, e As EventArgs) Handles button1.Click
GJPush.GJPush.normalbuild("123456", 123456, 123456, "1.0.1", "C:\Example\Folder\ExampleBuild.exe")
End Sub
End Class
Я пытался удалить Public Shared Sub
, но я получаю ошибку в операторах If. Есть ли способ, которым я могу изменить его из приведенного выше кода, чтобы получилось так:
Imports GJPush
Public Class form1
Private Sub buttonclick(sender As Object, e As EventArgs) Handles button1.Click
GJPush.normalbuild("123456", 123456, 123456, "1.0.1", "C:\Example\Folder\ExampleBuild.exe")
End Sub
End Class
Спасибо за любую помощь заранее!