Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ActiveX-Control geht nicht, warum?
Autor: Pluto
Datum: 02.06.02 16:42
Hallo... kann mir bitte jemand helfen! Ich benötige ein ActiveX-Control welches ich als OCX-Datei in einen anderen Programm einbinden kann. Dabei soll lediglich ein grüner Balken vor einen rotem Hintergrund von links nach rechts durchlaufen. Die Position und Breite muß von dem "anderen Programm" aus einstellbar sein. Dazu habe ich über "Public Property Get..." und "Public Property Let..." die beiden Variablen Position und Breite als Public Property "angelegt". Aber es funktioniert einfach nicht. Wer kann mir bitteehelfen? Vielen Dank im voraus! Neptun15 Option Explicit Private pPosition As Integer Private pBreite As Integer Public Property Get Position() As Integer Position = pPosition End Property Public Property Let Position(New_Position As Integer) pPosition = New_Position End Property Public Property Get Breite() As Integer Breite = pBreite End Property Public Property Let Breite(New_Breite As Integer) pBreite = New_Breite End Property Private Sub UserControl_InitProperties() Dim AX As Integer ' Anfang X-Wert Dim AY As Integer ' Anfang Y-Wert Dim EX As Integer ' Ende X-Wert Dim EY As Integer ' Ende Y-Wert Dim DX As Integer ' Position des Balkens Dim DB As Integer ' Breite des Balken AX = 0 AY = 0 EX = 185 EY = 20 DB = Breite DX = Position ' roter Grundbalken 'Picture1.Line (AX, AY)-(EX, EY), RGB(255, 0, 0), BF ' grüner beweglicher Balken Picture1.Line (DX, AY)-((DX + DB), EY), RGB(0, 255, 0), BF End Sub

ActiveX-Control geht nicht, warum?	177	Pluto	02.06.02 16:42
Re: ActiveX-Control geht nicht, warum?	595	Dieter	02.06.02 17:22
Re: ActiveX-Control geht nicht, warum?	114	Pluto	03.06.02 13:12

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