跪求GDI+在VB6.0環境下 畫扇形的函式及使用方法
這個問題我百度了很久，也沒查到這個函式，及函式的具體用法。
我參考畫圓的函式試著宣告了這樣的畫扇形函式
畫圓的函式：Public Declare Function GdipDrawEllipseI Lib "gdiplus" (ByVal Graphics As Long, ByVal pen As Long, ByVal x As Long, ByVal y As Long, ByVal Width As Long, ByVal Height As Long) As GpStatus
沒查到畫扇形的函式，我試著湊了一個：Public Declare Function GdipDrawPie Lib "gdiplus" (ByVal Graphics As Long, ByVal pen As Long, ByVal x As Single, ByVal y As Single, ByVal Width As Single, ByVal Height As Single, ByVal X3 As Long, ByVal Y3 As Long) As GpStatus居然沒有報錯，但是，結果卻畫出了一個圓。
苦逼啊，有哪位高手可以求解嗎？我的郵箱是[email protected] QQ 1002031672
uj5u.com熱心網友回復：
不需要GDI+，是直接用GDI，畫扇形，其實，就是API，畫圓形，加引數，就能畫扇形，半透明，用其它方法可以實作uj5u.com熱心網友回復：
Public Sub 畫圓(hDc As Long, ByVal 圓心X As Long, ByVal 圓心Y As Long, ByVal 寬度 As Long, ByVal 高度 As Long, _ByVal 度起點 As Long, ByVal 度終點 As Long, ByVal 框線粗細 As Long, ByVal 線條型別 As 線條型別_m, ByVal 邊框色 As Long, ByVal 填充色 As Long)
Dim pBrush As Long, pPen As Long
Dim X1 As Long, X2 As Long, X3 As Long, x4 As Long
Dim Y1 As Long, Y2 As Long, Y3 As Long, y4 As Long
Dim A As Single
X1 = 圓心X - 寬度 / 2
X2 = 圓心X + 寬度 / 2
Y1 = 圓心Y - 高度 / 2
Y2 = 圓心Y + 高度 / 2
A = 3.14159265 / 180 '為了將角度轉換為弧度
X3 = 圓心X + (寬度 * Sin(度起點 * A))
Y3 = 圓心Y - (高度 * Cos(度起點 * A))
x4 = 圓心X + (寬度 * Sin(度終點 * A))
y4 = 圓心Y - (高度 * Cos(度終點 * A))
pBrush = SelectObject(hDc, CreateSolidBrush(填充色))
pPen = SelectObject(hDc, CreatePen(線條型別, 框線粗細, 邊框色))
If 填充色 < 0 Then
Call Arc(hDc, X1, Y1, X2, Y2, X3, Y3, x4, y4)
Else
Call Pie(hDc, X1, Y1, X2, Y2, X3, Y3, x4, y4)
End If
Call DeleteObject(SelectObject(hDc, pBrush))
Call DeleteObject(SelectObject(hDc, pPen))
End Sub
uj5u.com熱心網友回復：
半透明，可以先將扇形畫到，P2，然后用Public Function 半透明復制圖2(ByVal 目標DC As Long, ByVal x目標 As Long, ByVal y目標 As Long, ByVal w目標 As Long, ByVal h目標 As Long, ByVal 源DC As Long, ByVal x源 As Long, ByVal y源 As Long, ByVal w源 As Long, ByVal h源 As Long, ByVal 透明度百分比 As Long) As Long
Dim lngBlend As Long
'lngBlend = Val("&h" & Hex(透明度) & "00" & "00")
lngBlend = RGB(0, 0, 255 - 2.55 * 透明度百分比)
AlphaBlending 目標DC, x目標, y目標, w目標, h目標, 源DC, x源, y源, w源, h源, lngBlend
End Function
P2 半透明復制到P1顯示就可以了， Picture1 是顯示用，Picture2隱藏
uj5u.com熱心網友回復：
研究了一下，搞定了。把圖片保存下來，修改后綴為ZIP即可解壓看到工程檔案。
uj5u.com熱心網友回復：
我奉勸這位仁兄凡是涉及到帶alpha通道的半透明圖形繪制還是早日放棄GDI，改用GDI+吧……
uj5u.com熱心網友回復：
me4405801 樓上的乃高人啊，測驗完畢，基本是我想要的啊，非常感謝。保持聯系啊！uj5u.com熱心網友回復：
再次感謝樓上的，我仔細閱讀了你的程式，你的扇形宣告函式Public Declare Function GdipDrawPieI Lib "gdiplus" (ByVal Graphics As Long, ByVal pen As Long, ByVal x As Long, ByVal y As Long, ByVal Width As Long, ByVal Height As Long, ByVal startAngle As Single, ByVal sweepAngle As Single) As GpStatus
我的自己瞎拼湊的扇形宣告函式
'Public Declare Function GdipDrawPie Lib "gdiplus" (ByVal Graphics As Long, ByVal pen As Long, ByVal x As Single, ByVal y As Single, ByVal Width As Single, ByVal Height As Single, ByVal X3 As Long, ByVal Y3 As Long) As GpStatus
問題出在形參名稱和型別都對不上。
為了避免我這種瞎貓碰死耗子的瞎折騰。
敢問兄臺，能不能發給我一份詳細的VB6.0下的GDI+ 各種函式宣告清單呢，最好附上具體的使用方法，像datasheet一樣，那將感激不盡啊！
uj5u.com熱心網友回復：
你讓我說你什么好……
在你的最初的帖子中（http://bbs.csdn.net/topics/390534623），7樓的Veron_04已經給出GDI+相關的詳細資料了，你就不能稍微動動腦筋自己思考研究一下么
！包括我在此帖中扇形的畫法也是參考了他的資料。如果讓我給你GDI+的學習資料，那么我的回答和Veron_04是一樣的！
uj5u.com熱心網友回復：
這位仁兄，你不知道GDI+，慢的要命啊，我I7+GT660顯卡，用GDI+ 畫軟體介面，要化1秒或者以上，
后來，只能混合GDI，加上緩沖，讓軟體運行來流暢。如果要做游戲的話，那就是個悲劇。
而GDI非常快。
uj5u.com熱心網友回復：
做游戲的話就用更高級的direct或者OPENGL，一般的用戶UI可以用GDI+
uj5u.com熱心網友回復：
這個里面的檔案“GDIPlus API.bas”就是你要的東東：
VBtray系統托盤圖示動態繪制VB原始碼
http://download.csdn.net/detail/zhao4zhong1/570264
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/144969.html
標籤：API