PCDVD數位科技討論區 - VB.NET 2005 進度條顏色的問題

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)

- 疑難雜症區 (https://www.pcdvd.com.tw/forumdisplay.php?f=34)

- - VB.NET 2005 進度條顏色的問題 (https://www.pcdvd.com.tw/showthread.php?t=1176382)

VB.NET 2005 進度條顏色的問題

這個是在 VB6下面實現的

代碼:

'進度條顏色
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const PBM_SETBARCOLOR As Long = &H409


Private Sub Form_Load()
'進度條顏色設定
Call SendMessageLong(ProgressBar1(0).hWnd, PBM_SETBARCOLOR, 0&, ByVal 49152) '綠色
Call SendMessageLong(ProgressBar1(1).hWnd, PBM_SETBARCOLOR, 0&, ByVal 255) '紅色
Call SendMessageLong(ProgressBar1(2).hWnd, PBM_SETBARCOLOR, 0&, ByVal 16512) '茶色
Call SendMessageLong(ProgressBar1(3).hWnd, PBM_SETBARCOLOR, 0&, ByVal 33023) '橙黃色
Call SendMessageLong(ProgressBar1(4).hWnd, PBM_SETBARCOLOR, 0&, ByVal 16711680) '藍色

End Sub

VB6 結果

但是把這個搬到 VB2005 變無效了
VB2005結果

VB.NET 要怎麼實現像 VB6 進度條可以自訂顏色 :confused:

https://stackoverflow.com/questions...c-sharp-net-3-5

如上，繼承ProgressBar後再覆寫OnPaint，話說現在很少人在用VB、VB.NET了，改用C#吧。

皇民甲 *台法機乖分身帳號
https://www.pcdvd.com.tw//member.php?u=343377
伸手牌大濕又有大劫了一路好走
:cry: :cry: :laugh:

引用:

作者allen741230

https://stackoverflow.com/questions/778678/how-to-change-the-color-of-progressbar-in-c-sharp-net-3-5

如上，繼承ProgressBar後再覆寫OnPaint，話說現在很少人在用VB、VB.NET了，改用C#吧。

考慮相容度問題我是希望程式能跑 XP 以上的系統所以盡量降低 IDE 版本 :D

微軟的目前我只會用 VB 而已 :laugh:

用VB6 有個好處如果系統沒裝 .NET 點下去直接可以用，VB.NET 編譯的都要 .NET 依賴 .

看開發速度跟資源夠不夠
不然這兩種用哪個都行囉