frmserverbrowser.vb

OPC-Client sdk for vb/vb.net/c#

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 mbReturn As Boolean
	Public gServerID As Integer


	Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
		mbReturn = False
		Me.Close()
	End Sub
	
	
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 cbHost.SelectedIndexChanged。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"”
	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
        'Dim Count As Object
        'Dim I As Integer
		Dim B As Boolean
        'Dim ServerNames, ServerClassIDs As Object
		
		listServer.Items.Clear()
		ComputerName = cbHost.Text ' txtComputer.Text
		txtServerName.Text = ""
		txtServerClassID.Text = ""
		If ckVer1.CheckState = 0 Then Version = 1 Else Version = 2
        gServerID = 0
        Dim myAddOPCname As New AddOPCnameProxy(AddressOf AddOPCname)

		'UPGRADE_WARNING: 为 AddressOf AddOPCname 添加委托 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"”
        B = EnumOPCNameA(cbHost.Text, 2, 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
		mbReturn = False
		Version = 2
		ckVer1.CheckState = System.Windows.Forms.CheckState.Checked
		txtComputer.Text = ""
		txtServerName.Text = ""
        txtServerClassID.Text = ""
        Dim tmp As New AddLandHostIPProxy(AddressOf AddLandHostIP)
        EnumLanHostIPA(tmp)
		'UPGRADE_ISSUE: 未能分析上一行。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"”
		' cmdFind_Click
	End Sub
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 listServer.SelectedIndexChanged。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"”
	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
		mbReturn = True
		Me.Close()
	End Sub
End Class