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, 5838 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 ..
Ähnliche Inhalte
Outlook & Mail
OutlookSignature - Standardsignaturen per Registry setzen ab Office 2010 (12)

Frage von blackpearl00 zum Thema Outlook & Mail ...

C und C++
gelöst C-sharp Form buggt (2)

Frage von Yanmai zum Thema C und C ...

Windows Server
gelöst AD Userpasswörter setzen (11)

Frage von WPFORGE zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
MS: Update-Server-Adressen OHNE Wildcards (16)

Frage von mrserious73 zum Thema Windows Update ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (10)

Frage von Matsushita zum Thema Microsoft Office ...

Router & Routing
gelöst Netzwerk am einfachsten trennen (8)

Frage von geheimagent zum Thema Router & Routing ...