vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 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

Suche Visual-Basic Code
Re: Grafik ausfüllen 
Autor: Zardoz
Datum: 30.05.03 21:30

Hallo guenter,
ich habe mich verschrieben. Ich meinte Line-Control und schrieb Shape. Zur Not
würde es auch mit einem Shape gehen, aber Line ist besser.
Hier ein Beispiel:
'Benötigt wird: 1 Line-Control bei dem die Index-Eigenschaft auf 0 gesetzt ist.
Private Sub Form_Activate()
 
Dim R%, i%, P1%, P2%, P3%, P4%, Z%, T1!
 
Me.ScaleMode = vbPixels
R = 7 'Zahl der Leitungen
P3 = 50
P4 = 50
Randomize 0.6
For i = 0 To R - 1
  If i > 0 Then Load Line1(i)
  Load Line1(R + i)
  P1 = P3
  P2 = P4
  P3 = Rnd * (Me.ScaleWidth - 20)
  P4 = Rnd * (Me.ScaleHeight - 20)
  With Line1(i)
  .X1 = P1
  .Y1 = P2
  .X2 = P3
  .Y2 = P4
  .BorderWidth = 9
  .BorderColor = vbBlack
  .Visible = True
  End With
  With Line1(R + i)
  .X1 = P1
  .Y1 = P2
  .X2 = P3
  .Y2 = P4
  .BorderWidth = 7
  .Visible = True
  .ZOrder
  End With
Next i
 
Do
  For i = 0 To R - 1
    Line1(R + i).BorderColor = IIf(Z = 0, vbBlue, Me.BackColor)
  Next i
  Z = 1 - Z
  T1 = Timer + 0.5
  Do
    DoEvents
  Loop While T1 > Timer
Loop
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

Gruß

Zardoz
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Grafik ausfüllen1.081guenter30.05.03 11:56
Re: Grafik ausfüllen294Zardoz30.05.03 14:36
Re: Grafik ausfüllen753guenter30.05.03 14:55
Re: Grafik ausfüllen280Zardoz30.05.03 21:30
Re: Grafik ausfüllen750guenter30.05.03 21:47

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