Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: #Region " Windows Form Designer generated code " Fehlt bei neu erstellten Formen
Autor: VBMader
Datum: 07.01.09 10:03
Danke für den Tip. Aber dann finde ich den Teil in meinem Code immer noch nicht. Mein Code sieht so aus:   Explicit On Option Strict On Imports OPCDA Public Class Form1 Dim srv As OPCDA.NET.OpcServer Dim grp As OPCDA.NET.OpcGroup Dim Item() As OPCDA.NET.OPCItemState Dim OpcSrv As OPCDA.NET.OpcServer = Nothing Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbOPCServers.Click Dim SrvList As OPC.OpcServerBrowser Dim Servers As String() tbStatus.Text = "browsing OPC servers..." Me.Update() SrvList = New OPC.OpcServerBrowser() SrvList.GetServerList(Servers) tbStatus.Text = "" If Not (Servers Is Nothing) Then cbOPCServers.Items.AddRange(Servers) cbOPCServers.SelectedIndex = 0 btnConnect.Enabled = True End If End Sub Private Sub btnConnect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConnect.Click tbStatus.Text = "" Me.Update() Try OpcSrv = New OPCDA.NET.OpcServer Dim rtc As Int32 = OpcSrv.Connect(cbOPCServers.Text) If OPC.HRESULTS.Failed(rtc) Then Throw New OPC.OPCException(rtc) End If btnConnect.Enabled = False 'btnDisconnect.Enabled = True 'btnBrowseItems.Enabled = True 'btnAddSelected.Enabled = True 'btnRead.Enabled = True 'btnWrite.Enabled = True tbStatus.Text = "Connected" Catch ex As Exception tbStatus.Text = ex.Message OpcSrv = Nothing End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try 'Dim tvBranches As System.Windows.Forms.TreeView = Nothing ' Dim lvItems As System.Windows.Forms.ListView = Nothing ' show branch tree / item list Dim TreeList As OPCDA.NET.ShowBrowseTreeList = OpcSrv.ShowBrowseTreeList(tvBranches, lvItems) Dim err As Int32 = TreeList.Show(cbOPCServers.Text) ' all branches with items in ListView Catch ex As Exception tbStatus.Text = ex.Message End Try End Sub Private Sub lvItems_CursorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvItems.CursorChanged End Sub Private Sub lvItems_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvItems.ItemActivate 'tbAktItem.Text = OpcSrv.Read(lvItems.SelectedItems, )) End Sub End Class ] ... und direkt oben sollte es ja so aussehen: Option Explicit On Option Strict On Imports OPCDA #Region " Windows Form Designer generated code " .... MFg Marco Beitrag wurde zuletzt am 07.01.09 um 10:06:06 editiert.

#Region " Windows Form Designer generated code " Fehlt bei n...	1.049	VBMader	07.01.09 09:32
Re: #Region " Windows Form Designer generated code " Fehlt b...	727	cookstdu	07.01.09 09:45
Re: #Region " Windows Form Designer generated code " Fehlt b...	801	VBMader	07.01.09 10:03
Re: #Region " Windows Form Designer generated code " Fehlt b...	813	DaveS	07.01.09 10:15
Re: #Region " Windows Form Designer generated code " Fehlt b...	741	VBMader	07.01.09 10:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen