vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ActiveX-Programmierung
Re: ocx 
Autor: Ir0nhead7
Datum: 15.04.03 11:17

mhh also soweit so gut. vieleicht ist der Quelltext an der falschen Oosition.

Wenn ich das Control doppelt anklicke komme ich in einen Code Fenster. Und da habe ich folgendes stehen:

Event click()

Private Sub UserControl11_click()
RaiseEvent click
End Sub

Private Sub UserControl11_lostFocus()
DrawWidth = 2
Line (0, 0)-(ScaleWidth, ScaleHeight), BackColor, B
DrawWidth = 1
End Sub

Private Sub UserControl11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
BorderStyle = 1
End Sub

Private Sub UserControl11_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

DrawWidth = 2
Line (0, 0)-(ScaleWidth, ScaleHeight), ForeColor, B
DrawWidth = 1
End Sub

Private Sub UserControl11_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

BorderStyle = 0
End Sub

Private Type PropertyType
Farbe As OLE_COLOR
End Type

Dim Prop As PropertyType

Public Property Get Farbe() As OLE_COLOR
Farbe = Prop.Farbe
End Property

Public Property Let Farbe(vNewValue As OLE_COLOR)
Prop.Farbe = vNewValue
UserControl.Farbe = vNewValue
PropertyChanged "Farbe"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Farbe", Farbe, vbRed
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Farbe = PropBag.ReadProperty("Farbe", vbRed)
End Sub



Wenn ich dann auf Ausführen starten gehe kann ich das Unsichtbare Usercontroll wohl anklicken aber irgendwie hat das Dingen keinen Rahmen und keine Farbe
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ocx1.076Ir0nhead714.04.03 14:59
Re: ocx734Ir0nhead715.04.03 08:31
Re: ocx756Master15.04.03 10:59
Re: ocx836Ir0nhead715.04.03 11:07
Re: ocx717Master15.04.03 11:12
Re: ocx760Ir0nhead715.04.03 11:17
Re: ocx777E716.04.03 20:08

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel