QuickOPC User's Guide and Reference
_OpcBrowseDialog Interface
Members  Example 



OpcLabs.EasyOpcForms Assembly > OpcLabs.EasyOpc.Forms.Browsing.ComTypes Namespace : _OpcBrowseDialog Interface
Exposes OpcLabs.EasyOpc.Forms.Browsing.OpcBrowseDialog to COM clients.
Object Model
_OpcBrowseDialog InterfaceEasyAEClientSelector ClassEasyDAClientSelector ClassOpcBrowseInputs ClassOpcBrowseInputsOutputs ClassOpcBrowseMode ClassOpcBrowseOutputs Class
Syntax
'Declaration
 
<CLSCompliantAttribute(False)>
<ComVisibleAttribute(True)>
<GuidAttribute("0AA07238-D0EB-44A6-B1A4-C18F6BF4DE44")>
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)>
Public Interface _OpcBrowseDialog 
'Usage
 
Dim instance As _OpcBrowseDialog
[CLSCompliant(false)]
[ComVisible(true)]
[Guid("0AA07238-D0EB-44A6-B1A4-C18F6BF4DE44")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface _OpcBrowseDialog 
[CLSCompliant(false)]
[ComVisible(true)]
[Guid("0AA07238-D0EB-44A6-B1A4-C18F6BF4DE44")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface class _OpcBrowseDialog 
Example

.NET

COM

// This example shows how to let the user browse for an OPC Data Access node in a dialog.

using System.Windows.Forms;
using OpcLabs.EasyOpc.Forms.Browsing;

namespace FormsDocExamples._OpcBrowseDialog
{
    static class ShowDialog
    {
        public static void Main1(IWin32Window owner)
        {
            var browseDialog = new OpcBrowseDialog();

            DialogResult dialogResult = browseDialog.ShowDialog(owner);
            if (dialogResult != DialogResult.OK)
                return;

            // Display results
            MessageBox.Show(owner, browseDialog.Outputs.CurrentNodeElement.DANodeElement);
        }
    }
}
# This example shows how to let the user browse for an OPC Data Access node in a dialog.

# The path below assumes that the current directory is [ProductDir]/Examples-NET/PowerShell/Windows .
Add-Type -Path "../../../Components/Opclabs.QuickOpc/net472/OpcLabs.EasyOpcForms.dll"

$browseDialog = New-Object OpcLabs.EasyOpc.Forms.Browsing.OpcBrowseDialog

$dialogResult = $browseDialog.ShowDialog()
if ($dialogResult -ne [System.Windows.Forms.DialogResult]::OK) {
    return
}

# Display results
Write-Host $browseDialog.Outputs.CurrentNodeElement.DANodeElement
# This example shows how to let the user browse for an OPC Data Access node in a dialog.

# The QuickOPC package is needed. Install it using "pip install opclabs_quickopc".
import opclabs_quickopc

# Import .NET namespaces.
from System.Windows.Forms import *
from OpcLabs.EasyOpc.Forms.Browsing import *


browseDialog = OpcBrowseDialog()

dialogResult = browseDialog.ShowDialog()
print(dialogResult)
if dialogResult != DialogResult.OK:
    exit()

# Display results.
print('DANodeElement: ', browseDialog.Outputs.CurrentNodeElement.DANodeElement, sep='')
// This example shows how to let the user browse for an OPC Data Access node.

class procedure ShowDialog.Main;
var
  BrowseDialog: OpcLabs_EasyOpcForms_TLB._OpcBrowseDialog;
begin
  // Instantiate the dialog object
  BrowseDialog := CoOpcBrowseDialog.Create;

  BrowseDialog.ShowDialog(nil);

  // Display results
  WriteLn(BrowseDialog.Outputs.CurrentNodeElement.DANodeElement.ToString);
end;
Rem This example shows how to let the user browse for an OPC Data Access node.

Private Sub ShowDialog_Main_Command_Click()
    OutputText = ""

    ' Instantiate the dialog object
    Dim browseDialog As New OpcBrowseDialog
    Dim dialogResult
    dialogResult = browseDialog.ShowDialog
    
    OutputText = OutputText & dialogResult & vbCrLf
    If dialogResult <> 1 Then   ' OK
        Exit Sub
    End If
    
    ' Display results
    OutputText = OutputText & browseDialog.Outputs.CurrentNodeElement.DANodeElement & vbCrLf
End Sub
Rem This example shows how to let the user browse for an OPC Data Access node.

Option Explicit

Const DialogResult_OK = 1

Dim BrowseDialog: Set BrowseDialog = CreateObject("OpcLabs.EasyOpc.Forms.Browsing.OpcBrowseDialog")
Dim dialogResult: dialogResult = BrowseDialog.ShowDialog
WScript.Echo dialogResult

If dialogResult <> DialogResult_OK Then
    WScript.Quit
End If

' Display results
WScript.Echo BrowseDialog.Outputs.CurrentNodeElement.DANodeElement
Requirements

Target Platforms: .NET Framework: Windows 10 (selected versions), Windows 11 (selected versions), Windows Server 2016, Windows Server 2022; .NET: Linux, macOS, Microsoft Windows

See Also