C# / VB.NET - (vb.net) Come cambiare il colore di una ProgressBar ??

Forum - C# / VB.NET - (vb.net) Come cambiare il colore di una ProgressBar ?? - Pagina 2

Pagine: [ 1 2 ]

salva94 (Normal User)
Rookie

Messaggi: 57
Iscritto: 02/01/2010

Postato alle 13:48
Sabato, 03/04/2010

Grazie Totem , adesso non mi da nessun messsaggio di errore neanche quando parte , ma ancora non cambia colore la prgress...

Codice sorgente - presumibilmente VB.NET

Public Class Form1
    Public Declare Function SendMessage Lib _
  "user32" Alias "SendMessageA" _
  (ByVal hwnd As Integer, _
   ByVal wMsg As Integer, _
   ByVal wParam As Integer, _
   ByVal lParam As Int64) As Integer
 
    Public Const CCM_FIRST = &H2000
    Public Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
    Public Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
    Public Const WM_USER = &H400
    Public Const PBM_SETBARCOLOR = (WM_USER + 9)
 
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        SendMessage(ProgressBar1.Handle, PBM_SETBKCOLOR, 0, RGB(0, 0, 127))
 
    End Sub

In questa riga

Codice sorgente - presumibilmente Plain Text

SendMessage(ProgressBar1.Handle, PBM_SETBKCOLOR, 0, RGB(0, 0, 127))

c'era un Byval che però mi dava errore in vb.net ho pensato di toglierlo forse è questo , ma non so con cosa sotituirlo...

fabriziorocca (Normal User)
Guru

Messaggi: 1162
Iscritto: 22/03/2009

Postato alle 12:49
Domenica, 04/04/2010

Hei ne è passato di tempo da quando avevo iniziato questo topic...

Comunque se trovate il giusto codice, mi fareste un favorone in quanto mi potrebbe ancora servire, e ho provato in tutti i modi senza nessun risultato

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 14:15
Domenica, 04/04/2010

Avevo già scritto che il codice non funzionava. E' molto improbabile riuscire a modificare il colore della progressbar, quindi vi suggerisco di imparare a crearne una con la classe Graphics.

fabriziorocca (Normal User)
Guru

Messaggi: 1162
Iscritto: 22/03/2009

Postato alle 14:56
Domenica, 04/04/2010

Forse, data la mia conoscenza del VB.NET, faccio prima a creare 100 immagini con phosothop e ad inserirle in una form per farla assomigliare ad una progressbar personalizzata

RobClap (Normal User)
Newbie

Messaggi: 1
Iscritto: 01/05/2011

Postato alle 13:54
Domenica, 01/05/2011

quest'argomento è stato aperto tanto tempo fa ma mi è capitato di leggerlo e volevo dire che anche io ho avuto lo stesso problema, ma l'ho risolto usando delle picturebox invece che delle progressbar.

Allo scopo ho usato questa funzione:

Codice sorgente - presumibilmente VB.NET

Public Function MakeBMP(ByVal x As Integer, ByVal y As Integer, ByVal color As Color)
        Dim bm As New Bitmap(x, y)
        Dim k, h As New Integer
        For k = 0 To x - 1
            For h = 0 To y - 1
                bm.SetPixel(k, h, color)
            Next
        Next
        MakeBMP = bm
        Return MakeBMP
    End Function

che puoi usare generando dei bitmap delle dimensioni desiderate e del colore che preferisci. Per simulare una progressbar ti basterà mantenere costante l'altezza del bitmap e aumentare la lunghezza.

Pagine: [ 1 2 ]