Как вызвать функцию в файле .vb через страницу aspx?

Question

Я создал файл aspx веб-формы, и у меня есть кнопка, чтобы сгенерировать PDF, а затем загрузить его в мою форму.Когда я нажимаю кнопку «Отправить», необходимо вызвать функцию в VB-файле, например CreateEnvelpoeAPI для DocuSign.В любом случае, как вызвать функцию через страницу aspx?

//form.aspx.vb
Protected Sub btSubmit_Click(sender As Object, e As EventArgs) Handles btSubmit.Click
    Response.Redirect("CreateEnvelopeAPI.vb") // I expecte to call function n in here.
End Sub

// CreateEnvelopeAPI.vb
Public Class CreateEnvelopeAPI

Public Function Init() As String
    Dim username As String = ""
    Dim password As String = ""
    Dim integratorKey As String = ""

    ' initialize client for desired environment (for production change to www)
    Dim apiClient As New ApiClient("https://demo.docusign.net/restapi")
    Configuration.[Default].ApiClient = apiClient

    ' configure 'X-DocuSign-Authentication' header
    Dim authHeader As String = (Convert.ToString((Convert.ToString((Convert.ToString("{""Username"":""") & username) + """, ""Password"":""") & password) + """, ""IntegratorKey"":""") & integratorKey) + """}"
    Configuration.[Default].AddDefaultHeader("X-DocuSign-Authentication", authHeader)

    ' we will retrieve this from the login API call
    Dim accountId As String = Nothing

    '''//////////////////////////////////////////////////////////////
    ' STEP 1: LOGIN API        
    '''//////////////////////////////////////////////////////////////

    ' login call is available in the authentication api 
    Dim authApi As New AuthenticationApi()
    Dim loginInfo As LoginInformation = authApi.Login()

    ' parse the first account ID that is returned (user might belong to multiple accounts)
    accountId = loginInfo.LoginAccounts(0).AccountId

    ' Update ApiClient with the new base url from login call
    apiClient = New ApiClient(loginInfo.LoginAccounts(0).BaseUrl)

    Return accountId
End Function
Public Sub CreateEnvelopeAPI()
    Dim accountId As String = Init()

    Dim fileBytes As Byte() = File.ReadAllBytes("Invoice.pdf")

    Dim envDef = New EnvelopeDefinition()
    envDef.EmailSubject = "[DocuSign C# SDK] - Custom Fields"
    envDef.Status = "sent"


    envDef.CustomFields = New CustomFields()

    Dim textCustomField = New TextCustomField()
    textCustomField.Name = "TransactionId"
    textCustomField.Value = "KTI456"

    Dim textCustomFields = New List(Of TextCustomField)()
    textCustomFields.Add(textCustomField)
    envDef.CustomFields.TextCustomFields = textCustomFields

    ' Add a recipient to sign the documeent
    Dim signer As New Signer()
    signer.Email = ""
    signer.Name = ""
    signer.RecipientId = "1"

    signer.Tabs = New Tabs()
    signer.Tabs.SignHereTabs = New List(Of SignHere)()

    Dim signHereTab = New SignHere()
    signHereTab.DocumentId = "1"
    signHereTab.PageNumber = "1"
    signHereTab.XPosition = "100"
    signHereTab.YPosition = "100"
    signer.Tabs.SignHereTabs.Add(signHereTab)

    envDef.Recipients = New Recipients()
    envDef.Recipients.Signers = New List(Of Signer)()
    envDef.Recipients.Signers.Add(signer)

    ' Add a document to the envelope
    Dim doc As New Document()
    doc.DocumentBase64 = System.Convert.ToBase64String(fileBytes)
    doc.Name = "Invoice.pdf"
    doc.DocumentId = "1"

    envDef.Documents = New List(Of Document)()
    envDef.Documents.Add(doc)


    Dim envelopesApi As New EnvelopesApi()
    Dim envelopeSummary As EnvelopeSummary = envelopesApi.CreateEnvelope(accountId, envDef)
    Console.WriteLine(envelopeSummary)
End Sub

End Class

Answer 1

Вы вызываете функцию, как и любую другую функцию в VB.Тот факт, что он находится в контексте страницы ASP.NET, не имеет к этому никакого значения.

Protected Sub btSubmit_Click(sender As Object, e As EventArgs) Handles btSubmit.Click
    Dim api = new CreateEnvelopeAPI() 'instantiate the class
    api.CreateEnvelopeAPI() 'call a function
End Sub

(NB. Предполагается, что файл CreateEnvelopeAPI.vb является частью вашего проекта, а класс находится вто же самое пространство имен. Если что-то из этого не так, то вам просто нужно включить файл и / или добавить оператор Imports, чтобы включить пространство имен в код aspx.)

PS Response.Redirectиспользуется, если вы хотите отправить браузер на другую страницу (т.е. на другой URL-адрес HTTP), а не для вызова функции в вашем коде.