電腦屏幕是由許多點組成的，所以在屏幕上直接畫出的直線，除了完全水平或垂直的是真正的直線外，其他都肯定是邊緣帶鋸齒形狀的。要消除這種鋸齒狀，就要在線段邊緣設置一些過渡色，使線段看起來平滑一些（但這仍然不是真正的直線），而這顯然已經(jīng)超出了VB本身的能力范圍了，采用其他第三方控件或API的話，代碼會復雜很多。如果你只是想自己編程玩玩的，就這樣將就將就了，別要求太高。如果你想做出有實用價值的作品，就要用真正的圖片來做表盤和指針，而不要用VB本身的繪圖命令。
創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供同仁網(wǎng)站建設、同仁做網(wǎng)站、同仁網(wǎng)站設計、同仁網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、同仁企業(yè)網(wǎng)站模板建站服務，十余年同仁做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡服務。
最后再說一次：至少在目前的硬件技術條件下，在電腦屏幕上除了完全水平或垂直的直線，你是無法畫出你想象中的那種完全平滑的直線的，不管用什么軟件和技術（包括樓上說的gdi+）；另外，屏幕的點及點距越小，畫出的直線也就越接近平滑，比如你這個圖如果是畫在800*480以上分辨率的手機屏幕上，你會發(fā)現(xiàn)情況會大大改觀！
要使用點畫線，而不是line來畫線。這樣的曲線就會很圓滑了；
點的使用是Pset函數(shù)
繪圖是系統(tǒng)內(nèi)部操作的，不需要懂原理
方法就在那里，只有會用和不會用，你的代碼告訴它繪制，它就會繪制。它（方法）究竟如何去繪制的并不是重點，反正它會繪制。
drawline（繪線）方法很簡單，第一個參數(shù)是pen,它確定線條的顏色、寬度和樣式。第二、第三個參數(shù)都是point類型，確定兩個點的位置，繪制直線。
先分析你的曲線特征，然后選擇合適的函數(shù)進行擬合。
實現(xiàn)曲線擬合的方法大致可以分為兩大類：
1.插值法，給定一組精確的離散數(shù)據(jù)點，構造一個函數(shù)，使其嚴格依次通過每個數(shù)據(jù)點，滿足光滑的要求。常用的而又多項式插值，拋物樣條曲線和三次樣條曲線等。
2.逼近法，給定一組具有誤差的離散數(shù)據(jù)點，構造一個函數(shù)，使其整體上接近這些數(shù)據(jù)點，而不必點點通過他們。常用的逼近法有最小二乘法，B樣條曲線等
看你的曲線要求選擇，找到合適的函數(shù)曲線自然就光滑了
用貝塞爾曲線畫就可以了
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyBezierTo Lib "gdi32.dll " (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long
Private Sub Form_Paint()
Dim pts(0 To 6) As POINTAPI
'set the co?rdinates
pts(0).x = 22: pts(0).y = 33
pts(1).x = 66: pts(1).y = 55
pts(2).x = 177: pts(2).y = 88
pts(3).x = 199: pts(3).y = 111
pts(4).x = 299: pts(4).y = 222
pts(5).x = 80: pts(5).y = 333
PolyBezierTo Me.hdc, pts(0), 6
End Sub
平均線 ？？是個什么線？？？？求出平均值后話直線嗎？
那就lineto好了
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyBezierTo Lib "gdi32.dll " (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long
Private Sub Form_Paint()
Dim pts(0 To 6) As POINTAPI
Dim pt(0 To 6) As POINTAPI
'set the co?rdinates
pts(0).x = 22: pts(0).y = 33
pts(1).x = 66: pts(1).y = 55
pts(2).x = 177: pts(2).y = 88
pts(3).x = 199: pts(3).y = 111
pts(4).x = 299: pts(4).y = 222
pts(5).x = 80: pts(5).y = 333
For n = 1 To 6
pt(n).x = (pts(n).x + pts(n - 1).x) / 2
pt(n).y = (pts(n).y + pts(n - 1).y) / 2
Next n
PolyBezierTo Me.hdc, pt(0), 6
PolyBezierTo Me.hdc, pts(0), 6
End Sub
重慶分公司
重慶分公司
