这什么SetPixel 完全没成效

这什么SetPixel 完全没效果
这什么SetPixel 完全没效果

Private Declare Function SetPixel Lib "gdi32 " (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Form_Load()
   SetPixel Me.hdc, 40, 40, &HFF
   MsgBox ""
End Sub

[解决办法]
AutoRedraw属性设置为True
或者在Form_Paint事件中使用SetPixel Me.hdc, 40, 40, &HFF（对应于AutoRedraw属性为false才有Paint事件）

[解决办法]
不能放到Load中

Private Declare Function SetPixel Lib "gdi32 " (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Form_Click()
    SetPixel Me.hdc, 40, 40, &HFF
    Me.Refresh
    MsgBox ""
End Sub

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels
End Sub

查看更多 下一篇