gdi的问题。。。

yxd199512041

我用getdc和moveto，lineto在屏幕上画线，可画出来的都是黑线，怎么改颜色呢？还有线的粗细程度

马大哈

你要创建一个画笔,先CreatePen,指定样式,粗细和颜色.

然后再用SelectObject选到你得到的那个DC中去.

再调用LineTo画图,就OK了.

马大哈

1. Option Explicit
   
2. 
   
3. Private Const PS_SOLID As Long = 0
   
4. Private Const PS_DASH As Long = 1                   'nWidth必须是1
   
5. Private Const PS_DOT As Long = 2                    'nWidth必须是1
   
6. Private Const PS_DASHDOT As Long = 3                'nWidth必须是1
   
7. Private Const PS_DASHDOTDOT As Long = 4             'nWidth必须是1
   
8. Private Const PS_NULL As Long = 5
   
9. Private Const PS_INSIDEFRAME As Long = 6
   
10. 
    
11. Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
    
12. Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
    
13. Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    
14. Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
    
15. 
    
16. Private Sub Form_Load()
    
17.     Me.ScaleMode = vbPixels
    
18. End Sub
    
19. 
    
20. Private Sub Form_Resize()
    
21.     Form_Paint
    
22. End Sub
    
23. 
    
24. Private Sub Form_Paint()
    
25.     Dim hPen As Long, I As Long, J As Long, K As Long
    
26.    
    
27.     Me.Cls
    
28. 
    
29.     hPen = CreatePen(PS_DASHDOTDOT, 1, vbBlue)
    
30.    
    
31.     DeleteObject SelectObject(Me.hdc, hPen)
    
32.    
    
33.     For K = 0 To 100
    
34.         I = Int(Rnd(1) * 300)
    
35.         J = Int(Rnd(1) * 310)
    
36.         
    
37.         LineTo Me.hdc, I, J
    
38.     Next
    
39.    
    
40.     DeleteObject hPen
    
41. End Sub

复制代码

yxd199512041

马大哈 发表于 2011-9-19 00:07

嘿嘿。有空试试。
谢谢了~

yxd199512041

马大哈 发表于 2011-9-19 00:07

嘿嘿。有空试试。
谢谢了~

yxd199512041

马大哈 发表于 2011-9-19 00:07

Option Explicit


Private Const PS_SOLID As Long = 0

Private Const PS_DASH As Long = 1                   'nWidth必须是1

Private Const PS_DOT As Long = 2                    'nWidth必须是1

Private Const PS_DASHDOT As Long = 3                'nWidth必须是1

Private Const PS_DASHDOTDOT As Long = 4             'nWidth必须是1

Private Const PS_NULL As Long = 5

Private Const PS_INSIDEFRAME As Long = 6

     Dim P
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long




Private Sub Command1_Click()
a
End Sub

Private Sub Form_Load()

    Me.ScaleMode = vbPixels

        P = GetDC(0)

End Sub





Private Sub a()

    Dim hPen As Long, I As Long, J As Long, K As Long

   
    Me.Cls


    hPen = CreatePen(PS_DASHDOTDOT, 1, vbBlue)

   
    DeleteObject SelectObject(Me.hdc, hPen)

   
    For K = 0 To 100

        I = Int(Rnd(1) * 300)

        J = Int(Rnd(1) * 310)

        
'MsgBox Me.hdc
        LineTo P, I, J

    Next

   
    DeleteObject hPen

End Sub







为什么改成屏幕的DC就又是黑色的呢？
请教

马大哈

yxd199512041 发表于 2011-9-24 16:47
Option Explicit

DeleteObject SelectObject(Me.hdc, hPen)

你把创建的画笔选到窗体的DC了.

应该选到桌面的DC去.

yxd199512041

马大哈 发表于 2011-9-26 16:10
DeleteObject SelectObject(Me.hdc, hPen)

你把创建的画笔选到窗体的DC了.

:L失误了。。。

马大哈

粗心孩子.............

zhouhui222

屏幕画图？？？话说我也正在学习Gdi+ 写控件呢！