Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB6: Tipp bei kleinem Programm mit Klassen
Autor: BenC
Datum: 18.10.03 12:21
Hallo Leute, bin noch eher VB-Anfänger und wollte mal fragen, ob mir jemand einen kleinen Tipp geben könnte, wie ich ein kleines VB6-Programm erstelle, dass Folgendes leisten soll. Habe zwar ein wenig schon gemacht, aber irgendwie klappt es noch nicht. Das Ganze besitzt ein Form, auf dem eine Command und eine Shape (Kreis) liegt. Mit der Command soll erreicht werden, dass durch ständiges Klicken (Methode) der Radius (Eigenschaft) eines Kreises immer größer wird. Ab einem bestimmten Radius (größer als 500) soll eine bestimmte Meldung (Ereignis) erscheinen. Durch Klick auf eine zweite Command wird ursprüngliche Größe des Radius erreicht. Das Beispiel möchte ich mit Klassen lösen. Es soll zu Demostrationszwecken dienen, um die Arbeitsweise mit Klassen zu zeigen. Habe bisher Folgendes erstellt: Klassenmodul: Option Explicit Private mRadius As Long Private Property Let Radius(ByVal r As Long) mRadius = r End Property Private Property Get Radius() As Variant Radius = mRadius End Property Public Event Grenze(ByVal GWert As Long) Function Vergroessern() As Long Dim x As Long Dim GWert As Long Dim Radius As Long GWert = 500 For x = Radius To GWert Radius = Radius + 50 Next x RaiseEvent Grenze(x) End Function Form: Option Explicit Private WithEvents kr As Class1 Private Sub Form_Load() Set kr = New Class1 shpKreis.Height = 200 shpKreis.BorderColor = vbRed End Sub Private Sub cmdVergroessern_Click() kr.Vergroessern (Radius) End Sub Private Sub Zurueck_Click() shpKreis.Height = 200 End Sub Private Sub kr_Grenze(ByVal GWert As Long) MsgBox "Maximaler Radius gezeichnet" End Sub Für jeden Verbesserungsvorschlag von Euch jetzt schon Danke. Wenn jemand eine besseres Beispiel hat, dann würde ich sehr darüber freuen. mfg BenC

VB6: Tipp bei kleinem Programm mit Klassen

499

BenC

18.10.03 12:21

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