|
by the Frame control:
With frmMain.Radio1
.ObjectType = RadioBtn
.ObjectState = iUnchecked
.ParentHeight = frmMain.Frame1.Height
.ParentWidth = frmMain.Frame1.Width
.ParentX = frmMain.Frame1.X
.ParentY = frmMain.Frame1.Y
.X = 100 + .ParentX
.Y = 100 + .ParentY
.ObjectSurface = objDD.CreateSurfaceFromFile(App.Path & "\radio.bmp", ddsdSurf6)
.WindowName = "Radio1"
.Caption = "Radio 1"
End With
''''Add to frame not base window
frmMain.Frame1.AddChild frmMain.Radio1
With frmMain.Radio2
.ObjectType = RadioBtn
.ObjectState = iUnchecked
.ParentHeight = frmMain.Frame1.Height
.ParentWidth = frmMain.Frame1.Width
.ParentX = frmMain.Frame1.X
.ParentY = frmMain.Frame1.Y
.X = 100 + .ParentX
.Y = 115 + .ParentY
.ObjectSurface = objDD.CreateSurfaceFromFile(App.Path & "\Radio.bmp", ddsdSurf6)
.WindowName = "Radio2"
.Caption = "Radio 2"
End With
''''Add to frame not base window
frmMain.Frame1.AddChild frmMain.Radio2
With frmMain.Radio3
.ObjectType = RadioBtn
.ObjectState = iUnchecked
.ParentHeight = frmMain.Frame1.Height
.ParentWidth = frmMain.Frame1.Width
.ParentX = frmMain.Frame1.X
.ParentY = frmMain.Frame1.Y
.X = 100 + .ParentX
.Y = 130 + .ParentY
.ObjectSurface = objDD.CreateSurfaceFromFile(App.Path & "\Radio.bmp", ddsdSurf6)
.WindowName = "Radio3"
.Caption = "Radio 3"
End With
''''Add to frame not base window
frmMain.Frame1.AddChild frmMain.Radio3
Notice that we抮e calling AddChild for the Frame1 control, not the Window control.
The clsWindow class has changed a bit as you probably expected. We抳e exposed the Width and Height members of the clsWindow class in order to set up the Frame control:
With frmMain.Frame1
.ObjectType = FrameWnd
.ObjectState = iEnabled
.ParentHeight = frmMain.Window.Height
.ParentWidth = frmMain.Window.Width
.ParentX = frmMain.Window.X
.ParentY = frmMain.Window.Y
.X = 75
.Y = 75
.Width = 200
.Height = 200
.WindowName = "Frame1"
.Caption = "Test Frame"
End With
frmMain.Window.AddChild frmMain.Frame1
The Property Let ObjectSurface and MouseDown function have had the RadioBtn added to the cases for the ChkBox:
Public Property Let ObjectSurface(ByVal objSurface As DirectDrawSurface7)
?/SPAN>
Case ChkBox, RadioBtn
iHeight = ddsd.lHeight / 4
?/SPAN>
End Property
Public Function DrawObject(objSurface As DirectDrawSurface7)
Dim clsWindow As clsWindow
Dim iLp As Integer
Dim ddsd As DDSURFACEDESC2
Dim rectBitmap As RECT
Dim rectObject As RECT
Dim lRet As Long
Dim bDrawCaption As Boolean
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
&nbs 上一页 [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学以致用网] 
