vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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

Fortgeschrittene Programmierung
Selektionsrechteck 
Autor: Philipp
Datum: 07.02.11 16:23
Hallo und einen schönen Tag,
ich fange gleich mal mit meinem Problem an.
Also ich habe ein Picturebox-Array.Wenn man mit der linken Maustaste auf eine Picturebox klickt kann
man die Startfarbe und Endfarbe sich für diese Picturebox aussuchen.
Das habe ich mittels Option-Buttons realisiert.
Die Mehrfachselektierung habe ich mit Check-Buttons realisiert.
nun meine Frage. ist es möglich die Einzelselektierung mit einem Picture-Click event zu realisieren und die Mehrfachselektierung mittels eines Selektierungsrechteck? Wenn Ja wie geht diese.

Hier der Code für den Farbverlauf: 

Public Sub Farbverlauf()
 Dim Beginn As Integer
 Dim Index As Integer
 Dim B As Integer, H As Integer
 Dim x As Double, XX As Double
 Dim AktuelleFarbe As Long
 Dim i As Integer
For i = 0 To Picture1.Count - 1
If Option1(i).Value = True Then
         FrmDraw = Picture1(i).AutoRedraw
         Picture1(i).AutoRedraw = True
         B = Picture1(i).ScaleWidth
         H = Picture1(i).ScaleHeight       '
         Picture1(i).Cls
 
 
             Beginn = 0
             For x# = Beginn To 1 Step 0.01
                 XX# = x#
 
                    XX# = (1 - x#)
 
                 AktuelleFarbe& = RGB(Rot(0) - (Rot(0) - Rot(1)) * XX#, Gruen( _
                   0) - (Gruen(0) - Gruen(1)) * XX#, Blau(0) - (Blau(0) - Blau( _
                   1)) * XX#)
                 Picture1(i).Line (x# * B, 0)-((x# + 0.01) * B, H), _
                 AktuelleFarbe&, BF
             Next
          Picture1(i).AutoRedraw = FrmDraw
 End If
 Next i
 
 
Public Sub Farbverlauf1()
  Dim Beginn As Integer
 Dim Index As Integer
 Dim B As Integer, H As Integer
 Dim x As Double, XX As Double
 Dim AktuelleFarbe As Long
 Dim i As Integer
 
 
For i = 0 To Picture1.Count - 1
If Check1(i).Value = 1 Then
         FrmDraw = Picture1(i).AutoRedraw
         Picture1(i).AutoRedraw = True
         B = Picture1(i).ScaleWidth
         H = Picture1(i).ScaleHeight       '
         Picture1(i).Cls
 
 
             Beginn = 0
             For x# = Beginn To 1 Step 0.01
                 XX# = x#
 
                    XX# = (1 - x#)
 
                 AktuelleFarbe& = RGB(Rot(0) - (Rot(0) - Rot(1)) * XX#, Gruen( _
                   0) - (Gruen(0) - Gruen(1)) * XX#, Blau(0) - (Blau(0) - Blau( _
                   1)) * XX#)
                 Picture1(i).Line (x# * B, 0)-((x# + 0.01) * B, H), _
                 AktuelleFarbe&, BF
             Next
          Picture1(i).AutoRedraw = FrmDraw
 
End If
'Check1(i).Value = 0
Next i
 
End Sub
Vielen Dank und Gruß
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Selektionsrechteck1.411Philipp07.02.11 16:23
Re: Selektionsrechteck955Zardoz07.02.11 21:01
Re: Selektionsrechteck922Philipp08.02.11 08:26
Re: Selektionsrechteck922Rippler08.02.11 12:19
Re: Selektionsrechteck960Philipp10.02.11 04:52
Re: Selektionsrechteck876Zardoz10.02.11 06:59

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