有哪些信誉好的足球投注网站- 1、本文档共17页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB下拉式功能表應用
資科系
林偉川
VB6工具/功能表編輯器
2
1
VB6工具/功能表編輯器
• Word之大綱模式
• 新增 、往下、刪除功能選項
• 物件名稱.Checked = True
– 表示點選該功能選項
• 物件名稱.Checked = False
– 表示未點選該功能選項
3
VB6程式部分
Private Sub Form_Load()
L1.Caption = test
L1.FontSize = 12
Bold.Checked = False
Italic.Checked = False
Underline.Checked = False
black.Checked = True
Normal.Checked = True
End Sub
4
2
VB6程式部分
Private Sub black_Click()
L1.ForeColor = QBColor(0)
black.Checked = True
black.Checked = False
red.Checked = False
green.Checked = False
white.Checked = False
blue.Checked = False
End Sub
5
VB6程式部分
Private Sub blue_Click()
L1.ForeColor = QBColor(9)
blue.Checked = True
black.Checked = False
red.Checked = False
black.Checked = False
white.Checked = False
green.Checked = False
End Sub
6
3
VB6程式部分
Private Sub green_Click()
L1.ForeColor = QBColor(10)
green.Checked = True
black.Checked = False
red.Checked = False
black.Checked = False
white.Checked = False
blue.Checked = False
End Sub
7
VB6程式部分
Private Sub red_Click()
L1.ForeColor = QBColor(12)
red.Checked = True
black.Checked = False
blue.Checked = False
black.Checked = False
white.Checked = False
green.Checked = False
End Sub
8
文档评论（0）