VB6 得到设备上下文使用的背景颜色
发表于 今天 20:57
新建From1（窗体），代码：
返回列表Private Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
Private Sub Form_Load()
Me.BackColor = &H12C034
MsgBox "Background color of form is " & Hex(GetBkColor(Me.hdc))
Me.BackColor = &HC0C0C0
MsgBox "Background color of form is " & Hex(GetBkColor(Me.hdc))
End Sub