这什么SetPixel 完全没效果解决办法
这什么SetPixel 完全没效果
这什么SetPixel 完全没效果
------解决方案--------------------
AutoRedraw属性设置为True
或者在Form_Paint事件中使用SetPixel Me.hdc, 40, 40, &HFF（对应于AutoRedraw属性为false才有Paint事件）
------解决方案--------------------
不能放到Load中
这什么SetPixel 完全没效果
- VB code
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中
- VB code
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