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