Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Steuerelement (OCX) zur Laufzeit auf Form setzen

Frage Entwicklung VB for Applications

Mitglied: miniversum

miniversum (Level 3) - Jetzt verbinden

06.12.2008, aktualisiert 08.12.2008, 5769 Aufrufe, 3 Kommentare

Hallo
Ich schreibe gerade unter VBA in Excel 2003 an einem Programm zur Ansteuerung von verschiedenen Geräten für die Datenerfassung und -auswertung. Diese Geräte liefern, zur Ansteuerung, einen Treiber mit der installiert wird. So kann man dann manuel auf eine Form im VBA diese OCX Komponente als Steuerelement auf die Form ziehen und diese dann benutzen. Nun könnte es vorkommen das ich so ein Steuerelement ncith nur einmal plazieren muss sondern mehrmals, abhängig von verschiedenen Gegebenheiten. Daher würde ich gerne, statt dieser manueller Plazierung, das ganze zur Laufzeit machen.
Für einen CommandButton geht das ja z.B. so:
Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)
Aber wie bekomem ich das für eine andere Komponente hin?
Oder muss ich das mit einem ganz anderen Befehl angehen?

miniversum
Mitglied: 16568
06.12.2008 um 21:32 Uhr
Warum platzierst Du die Elemente nicht schon vorher, aber stellst sie auf invisible, und zur benötigten Aktion eben auf sichtbar?


Lonesome Walker
Bitte warten ..
Mitglied: miniversum
07.12.2008 um 10:24 Uhr
Weil ich dann begrenzt wäre auf eine bestimmte Anzahl. Das würd ich nur machen wenn es anders ncith geht. Da ich es eben flexibel gestallten möchte wäre mir eine dynamische plazierung zur Laufzeit lieber.
Bitte warten ..
Mitglied: miniversum
08.12.2008 um 16:42 Uhr
Problem gelöst!
Ich habe die Steuerelemente, da man sie sowieso ncith bedienen kann sondern nur zur Kommunikation dienen, nict auf eine Form gesetzt sondern einer Collection hinzugefügt.
Das ganze sieht dann so aus:
01.
Private ComColl As New collection 
02.
 
03.
Private Sub NewDevice(DeviceDescriptor As String) 
04.
 
05.
    Dim COMObjekt As New tvc 
06.
 
07.
    COMObjekt.Descriptor = DeviceDescriptor  
08.
     
09.
    ComColl.Add COMObjekt 
10.
 
11.
End Sub 
12.
 
13.
Private Sub SendString(DeviceDescriptor As String, Command As String) 
14.
    i = 0 
15.
    For x = 1 To ComColl.Count 
16.
        If ComColl.Item(x).Descriptor = DeviceDescriptor Then i = x 
17.
    Next x 
18.
     
19.
    If i > 0 Then 
20.
        ComColl.Item(i).WriteString Command  
21.
    End If 
22.
End Sub
ComColl ist die Colection der jeweils ein neues Gerät zur Laufzeit, hinzugefügt wird.

NewDevice wird aufgerufen wen ein neues Gerät hinzu kommt.
tvc ist dabei der Datentyp der Schnitstelle.
Descriptor ist eine Beschreibung über die jedes Gerät einen eindeutigen Namen zugeteilt bekommt.

SendString sendet an das jeweilige Gerät einen String. Hierzu wird das zugehörige Steuerelement in der Collection gesucht und über dieses Steuerelement gesendet.
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Visual Studio
gelöst (VB) Form-Elemente nicht wie im Entwurf angeordnet (2)

Frage von MrCount zum Thema Visual Studio ...

Batch & Shell
Variable setzen können während timeout (3)

Frage von DontFlameMeITryMyBest zum Thema Batch & Shell ...

Exchange Server
Powershell Abwesenheitsnotiz für Gruppe setzen (3)

Frage von 124611 zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...