DX: Full Screen GUI Development 2

Dim lOldColor As Long

Dim lBltFlags As Long

On Error GoTo DrawObjectErr

rectBitmap.Left = iX

rectBitmap.Right = iX iWidth

rectBitmap.Top = iY

rectBitmap.Bottom = iY iHeight

Select Case iObjectType

Case Btn

rectObject.Left = 0

rectObject.Right = iWidth

Select Case iObjectState

Case iEnabled

rectObject.Top = 0

rectObject.Bottom = iHeight

Case iDisabled

rectObject.Top = iHeight * 2

rectObject.Bottom = iHeight * 3

Case iPressed

rectObject.Top = iHeight

rectObject.Bottom = iHeight * 2

End Select

Case ChkBox, RadioBtn

rectObject.Left = 0

rectObject.Right = iWidth

Select Case iObjectState

Case iUnchecked

rectObject.Top = 0

rectObject.Bottom = iHeight

Case iDisabled

rectObject.Top = iHeight * 2

rectObject.Bottom = iHeight * 3

Case iChecked

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!