frmserverbrowser.vb

OPC CLIENT开发包

Option Strict Off
Option Explicit On
Friend Class frmServerBrowser
	Inherits System.Windows.Forms.Form

	Public ComputerName As String
	Public ServerName As String
	Public ServerClassID As String
	
	Public Version As Integer
    Public gServerID As Integer

	Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
        Me.Close()
    End Sub

	Private Sub cbHost_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cbHost.SelectedIndexChanged
		Call cmdFind_Click(cmdFind, New System.EventArgs())
	End Sub
	
	Private Sub cmdFind_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdFind.Click
        listServer.Items.Clear()
        ComputerName = cbHost.Text
		txtServerName.Text = ""
		txtServerClassID.Text = ""
        If ckVer1.Checked = True Then
            Version = 1
        ElseIf ckVer2.Checked = True Then
            Version = 2
        Else
            Version = 3
        End If
        gServerID = 0
        Dim myAddOPCname As New AddOPCnameProxy(AddressOf AddOPCname)
        EnumOPCNameA(cbHost.Text, Version, myAddOPCname)
        '    Count = OPC_GetServers(txtComputer.Text, Version, ServerNames, ServerClassIDs)
        '    For I = 0 To Count - 1
        '        ServerItems(I).ServerName = ServerNames(I)
        '        ServerItems(I).ServerClassID = ServerClassIDs(I)
        '        listServer.AddItem ServerNames(I)
        '    Next I

    End Sub
	
	Private Sub frmServerBrowser_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Version = 2
        ckVer2.Checked = True
		txtComputer.Text = ""
		txtServerName.Text = ""
        txtServerClassID.Text = ""
        Dim tmp As New AddLandHostIPProxy(AddressOf AddLandHostIP)
        EnumLanHostIPA(tmp)
    End Sub
	
    Private Sub listServer_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles listServer.SelectedIndexChanged
        If listServer.SelectedIndex = -1 Then Exit Sub
        txtServerName.Text = ServerItems(listServer.SelectedIndex).ServerName
        txtServerClassID.Text = ServerItems(listServer.SelectedIndex).ServerClassID
        ServerName = txtServerName.Text
        ServerClassID = txtServerClassID.Text
    End Sub
	
	Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub

    Private Sub cmdFind_MouseCaptureChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdFind.MouseCaptureChanged

    End Sub

    Private Sub frmServerBrowser_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

    End Sub
End Class