DX: Full Screen GUI Development 2

rectObject.Top = iHeight

rectObject.Bottom = iHeight * 2

Case iChecked_iDisabled

rectObject.Top = iHeight * 3

rectObject.Bottom = iHeight * 4

End Select

If Len(sCaption) > 0 Then

iCaptionX = iX 15

iCaptionY = iY

bDrawCaption = True

Else

bDrawCaption = False

End If

Case MinBtn, MaxBtn, CloseBtn, RestoreBtn

rectObject.Left = 0

rectObject.Right = iWidth

Select Case iObjectState

Case iEnabled

rectObject.Top = 0

rectObject.Bottom = iHeight

Case iPressed

rectObject.Top = iHeight

rectObject.Bottom = iHeight * 2

End Select

Case FrameWnd

''''see framesample.bmp for how this should look as a normal VB control

lOldColor = objSurface.GetFillColor

objSurface.SetForeColor cFrameGrey

objSurface.DrawLine iX iParentX, iY iParentY, iX iParentX iWidth, iY iParentY

objSurface.DrawLine iX iParentX, iY iParentY, iX iParentX, iY iParentY iHeight

objSurface.DrawLine iX iParentX, iY iParentY iHeight, iX iParentX iWidth, iY iParentY iHeight

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