能力值：
( LV3，RANK：20 )
|
-
-
2 楼
为什么这样写不对呢
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
a = GetDC(Command1.hwnd)
Debug.Print a
SetTextColor a, vbRed
End Sub
|
|
|
|
