下面是引用 acc8087 于 2010-01-22 12:13 发表的 : 
我的意思是怎样作出那么好的作品 可以执行在游戏上或者是软体上的
另外:之前您交过我的 但 我做出来时 其它的却会被动到 要怎么条到能被使用到呢 ??
也就是其它地区都不会被弄到 还有大小的调整 @@" 附注:就是说:做好一个程式能
向另一外边的好看又能用的 图 
还是听不懂.....不过，反正我也闲来无聊
，做了个模仿 选项的表单
你可以照底下的图 依序建立 元件，但 INDEX 记得打对，且 哪个元件在哪个 父元件内 要弄好，位置可以乱丢
我只有用元件的位置，触发事件我就不做了，虽然才一个小小的选项，还是有点累......
我把程式的档案放在附件中了
复制程式码后请把
& quot ; 全部取代成
" (如果有的话)
复制程式
Private Sub Form_Load()
Dim i As Long
Dim ArrCheckText()
Dim ArrTabText()
Dim ArrCMDText()
'____________________ Obj Ini. ______________________
'--------- Apply String Into Array-String ----------
ArrCheckText = Array("自动进行语法检查(K)", "要求变数宣告(R)", "自动列出成员(L)", "自动使用快速谘询(Q)", "自动显示资料提示(S)", _
"自动缩排(I)", "编辑时可使用拖放方式移动文字(D)", "预设为全模组检视(M)", "显示程序分隔线(P)")
ArrTabText = Array("编辑器", "撰写风格", "一般 ", "停驻", "环境", "进阶")
ArrCMDText = Array("确定", "取消", "说明")
'------- Pre-Set -------
SSTab1(0).Style = ssStylePropertyPage
'------ Load More Obj. ------
For i = 0 To 8
If i <> 0 And i < 6 Then Load Check1(i)
Check1(i).Caption = ArrCheckText(i)
Check1(i).Value = 1
Check1(i).Width = (Me.TextWidth(ArrCheckText(i)) + 250) * 1.05
Check1(i).Visible = True
Next i
'-------- CMD ---------
For i = 0 To 2
If i <> 0 Then Load Command1(i)
Command1(i).Height = 300
Command1(i).Width = 1130
Command1(i).Caption = ArrCMDText(i)
Command1(i).Visible = True
Next i
'--------- Form ---------
With Me
.Icon = Nothing
.BorderStyle = 3
.Caption = "选项"
.AutoRedraw = True
.Width = 6480
.Height = 5000
End With
'------- SSTab -------
With SSTab1(0)
.Tab = 0
.Tabs = 6
.TabsPerRow = 6
For i = 0 To 5
.TabCaption(i) = ArrTabText(i) & IIf(i >= 2, " " & vbCr & vbTab, "")
Next i
.Top = 120
.Left = 120
.Width = Me.ScaleWidth - 120 * 2
.Height = Me.ScaleHeight - Command1(0).Height - 120 * 2.3
.TabMaxWidth = 500
End With
'----- Frame1 ---------
With Frame1(0)
.Caption = "程式撰写设定"
.Top = 120 * 1.5 + SSTab1(0).TabHeight
.Left = 120 * 1.5
.Width = SSTab1(0).Width - 120 * 5
Check1(0).Top = 120 * 2.5
Check1(0).Left = 150
For i = 1 To 4
Check1(i).Top = Check1(i - 1).Top + Check1(0).Height
Check1(i).Left = Check1(i - 1).Left
Next i
Check1(5).Left = 2900
Check1(5).Top = Check1(0).Top
.Height = Check1(4).Top + Check1(4).Height + 120
End With
With Frame1(1)
.Caption = "视窗设定"
.Left = Frame1(0).Left
.Top = Frame1(0).Top + Frame1(0).Height + 150
.Width = 3400
.Height = 1160
Check1(6).Top = 120 * 2.5
Check1(6).Left = 150
For i = 7 To 8
Check1(i).Top = Check1(i - 1).Top + Check1(0).Height
Check1(i).Left = Check1(i - 1).Left
Next i
End With
'------------ Label & Text --------------
Label1(0).Top = Check1(1).Top + 150
Label1(0).Left = Check1(5).Left
Label1(0).Caption = "定位点宽度(T): "
Text1(0).Left = Label1(0).Left + Label1(0).Width + 120 * 1
Text1(0).Text = 4
Text1(0).Top = Label1(0).Top
Text1(0).Width = 120 * 8
Text1(0).Height = 300
'---------- CMD --------------
Command1(0).Left = SSTab1(0).Left + SSTab1(0).Width - Command1(0).Width * 3 - 90 * 2
Command1(0).Top = SSTab1(0).Top + SSTab1(0).Height + 70
For i = 1 To 2
Command1(i).Top = Command1(i - 1).Top
Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width + 90
Next i
Command1(0).Default = True
End Sub
