|
p; 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
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
objSurface.DrawLine iX + iParentX + iWidth, iY + iParentY, iX + iParentX + iWidth, iY + iParentY + iHeight
objSurface.SetForeColor vbWhite
objSurface.DrawLine iX + iParentX + 1, iY + iParentY + 1, iX + iParentX + iWidth - 1, iY + iParentY + 1
objSurface.DrawLine iX + iParentX + 1, iY + iParentY + 1, iX + iParentX + 1, iY + iParentY + iHeight - 1
objSurface.DrawLine iX + iParentX, iY + iParentY + iHeight + 1, iX + iParentX + iWidth + 1, iY + iParentY + iHeight + 1
objSurface.DrawLine iX + iParentX + iWidth + 1, iY + iParentY, iX + iParentX + iWidth + 1, iY + iParentY + iHeight + 1
objSurface.SetForeColor lOldColor
If Len(sCaption) > 0 Then
iCaptionX = iX + iParentX + 10
iCaptionY = iY + ParentY - 8
bDrawCaption = True
Else
bDrawCaption = False
End If
Case BaseWindow
''''Nothing needed here since we use the base rectangle
If Len(sCaption) > 0 Then
iCaptionX = iX + 10
iCaptionY = iY + 5
bDrawCaption = True
&nb 上一页 [1] [2] [3] [4] [5] 下一页
[VB.NET程序]DX: Full Screen GUI Development 1 [Web开发]利用JavaScript创建功能强大的GUI
[JAVA开发]Java手机软件图形界面API之低级GUI组件 [SyBase]关于linux做nat出现“table full”的终极解决办法…
[MySql]Linux GUI编程笔记之GTK+篇（2） [MySql]Linux GUI编程笔记之GTK+篇(1)
[电脑技术]如何使用wxPython设计gui
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
