• Home
 · 
• Miscellaneous
 · 
• Using your PHP Functions in VB.NET

Using your PHP Functions in VB.NET

Using your PHP Functions in VB.NET

Rate Using your PHP Functions in VB.NET

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public Class Form1

    Dim my_webService As New MyInfo.MyPHPNET    '<------ Declare the variable that will set

    '                                                    your PHP functions.

    Dim myInfo As New MyInfo.my_info            '<------ Declare the variable that will

    '                                                    handle the return or input for your

    '                                                    PHP functions.

    Dim msg As String                           '<------ Message handler

    Private Sub Button1_Click(ByVal sender As System.Object, _

                              ByVal e As System.EventArgs) Handles Button1.Click

        Try

            myInfo.my_name = InputBox("Enter you name:", "PHP in VB.NET", "unknown")

            myInfo.my_work = InputBox("Enter you work:", "PHP in VB.NET", "nowork")

            msg = my_webService.setMyInfo(myInfo)

            MsgBox("SetMyInfo: " & msg)

        Catch ex As Web.Services.Protocols.SoapException

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _

                              ByVal e As System.EventArgs) Handles Button2.Click

        Try

            Dim name As String

            name = InputBox("Enter you name:", "PHP in VB.NET", "unknown")

            myInfo = my_webService.getMyInfo(name)

            MsgBox("GetMyInfo: '" & myInfo.my_name & _

                   "' with a work as '" & myInfo.my_work & "'")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Class