Oppure

Loading
27/07/08 19:13
wolfslair
Salve, ho creato un controllo (o meglio una bozza) che analizza la potenza del segnale Wireless.

Per ora il segnale lo simulo con una trackbar

Se salgo nessun problema, il problema si pone quando diminuisco il valore..
L'intenzione era di impostare il backcolor di ogni rettangolo a "trasparente".
Ho provato ad impostare il backcolor= color.transparent ma senza risultato.

Grazie per l'eventuale aiuto !!
aaa
28/07/08 9:27
Il Totem
Scusa, ma di quale rettangolo si sta parlando? A parte la trackbar, non mi sembra che tu abbia menzionato niente sul colore...
aaa
28/07/08 10:08
wolfslair
Che Razza di Post ho Scritto.! :-|
Eppure non avevo bevuto !! (commento :ot: )

Allora Cerchiamo di migliorarlo:

Sto Creando un controllo che dovrebbe segnalare la potenza del segnare wireless.
Il Controllo è composto da 7 PictureBox (p0:p6), di larghezza uguale e di altezza differente

Per ora ho messo una trackbar per simulare il segnale.
Ho una variabile "Passo" che è data dal massimo diviso le sette picture.

Al variare del valore della trackbar vado ad "illuminare" in modo graduale le picture.

Arrivando al Dunque il problema è che aumentanto il valore si illuminano correttamente le picture, diminuendolo no riesco a "regredire" ho provato ad invalidare i controlli o a mettere il backcolor= color.transparent ma senza un risultato buono.

Scusandomi per il vecchio Post, ringrazio le eventuali risposte
Ultima modifica effettuata da wolfslair 28/07/08 10:09
aaa
28/07/08 12:23
Mte90
non fai prima a creare 7 immagini diverse con una sola picturebox che a seconda della potenza ne viene visualizzata una diversa?
aaa
28/07/08 14:55
wolfslair
Per la Serie a volte la soluzione più semplice è la prima a cui non si pensa..

Comunque Grazie !!
aaa
28/07/08 19:08
Mte90
:rotfl:;):D:k:
aaa
29/07/08 9:40
Il Totem
Potevi anche usare qualcosa con la classe Graphics:
Dim Power As Int16 = 0
    Private Sub imgRandom_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles imgRandom.Paint
        Dim P As New Drawing2D.GraphicsPath

        P.AddLines(New Point() {New Point(50, 80), New Point(150, 80), New Point(150, 40)})
        P.CloseFigure()

        Dim B As New LinearGradientBrush(New Point(50, 80), New Point(150, 81), Color.Green, Color.Transparent)
        Dim Blend As New ColorBlend(3)

        Blend.Colors = New Color() {Color.Green, Color.Transparent, Color.Transparent}
        Blend.Positions = New Single() {0, (Power / 7), 1}
        B.InterpolationColors = Blend
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.FillPath(B, P)
    End Sub

Questo crea un trinagolo riempito di verde, sfumato a transparent: più Power è grande, più grande sarà l'area coperta di verde.
aaa