form2.vb

来自「ZNetAdv配置函数库,以太网函数,单片机使用」· VB 代码 · 共 24 行

Public Class Form2

    Dim g_result As Integer
    Dim g_strPwd As String

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        g_result = 1
        g_strPwd = textBox1.Text
        Hide()
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        g_result = 0
        Hide()
    End Sub
    Public Function isOK() As Integer
        isOK = g_result
    End Function

    Public Function GetPwd() As String
        GetPwd = g_strPwd
    End Function

End Class