// This example shows how to let the user browse for an OPC Data Access node in a dialog.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// OPC client and subscriber examples in C# on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-CSharp .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
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.
#
# Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
# OPC client and subscriber examples in PowerShell on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-PowerShell .
# Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
# a commercial license in order to use Online Forums, and we reply to every post.
# 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.
'
' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
' OPC client and subscriber examples in VB.NET on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBNET .
' Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
' a commercial license in order to use Online Forums, and we reply to every post.
Imports OpcLabs.EasyOpc.Forms.Browsing
Namespace FormsDocExamples._OpcBrowseDialog
Friend Class ShowDialog
Shared Sub Main1(owner As IWin32Window)
Dim browseDialog = New OpcBrowseDialog()
Dim dialogResult As DialogResult = browseDialog.ShowDialog(owner)
If dialogResult <> DialogResult.OK Then
Return
End If
' Display results
MessageBox.Show(owner, browseDialog.Outputs.CurrentNodeElement.DANodeElement)
End Sub
End Class
End Namespace
// This example shows how to let the user browse for an OPC Data Access node.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// OPC client and subscriber examples in Object Pascal (Delphi) on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-OP .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
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.
Rem
REM Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
REM OPC client and subscriber examples in Visual Basic on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VB .
REM Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
REM a commercial license in order to use Online Forums, and we reply to every post.
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.
Rem
Rem Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBScript .
Rem Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
Rem a commercial license in order to use Online Forums, and we reply to every post.
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