DX: Full Screen GUI Development 2

.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"

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