Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 5887 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
Visual Studio
gelöst (VB) Form-Elemente nicht wie im Entwurf angeordnet (2)

Frage von MrCount zum Thema Visual Studio ...

Visual Studio
WPF Form in Windows Forms Multi Document Interface (11)

Frage von Herbrich19 zum Thema Visual Studio ...

Festplatten, SSD, Raid
Laufzeit von Festplatten im RAID anzeigen (20)

Frage von 114801 zum Thema Festplatten, SSD, Raid ...

Microsoft Office
Problem mit User Form in Liste

Frage von kluthi69 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(5)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...