VB第3讲 ActiveX控件.docVIP

VB第3讲 ActiveX控件 添加ActiveX控件：菜单工程-部件-控件 3.1 文档编辑器 3.1.1 通用对话框MS Common Dialog Control 6.0 核心方法 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”对话框 ShowHelp 运行 WINHLP32.EXE 3.1.2 高级的文档控件：MS Rich TextBox Control 可以为文档各部分设置不同的格式。 特色方法 LoadFile 显示文件 SaveFile 保存文件 特色属性： SelFontName, SelFontSize, SelBold, SelItalic 3.1.3 简单的文档编辑器 Private Sub cmdOpen_Click() CommonDialog1.Flags = cdlOFNFileMustExist CommonDialog1.Filter = RichText Format(*.rtf)|*.rtf CommonDialog1.ShowOpen RichTextBox1.LoadFile CommonDialog1.FileName, rtfRTF End Sub Private Sub cmdFormatFont_Click() CommonDialog1.Flags = cdlCFBoth 装入字体 CommonDialog1.ShowFont With RichTextBox1 .SelFontName = CommonDialog1.FontName .SelFontSize = CommonDialog1.FontSize .SelBold = CommonDialog1.FontBold .SelItalic = CommonDialog1.FontItalic End With End Sub Private Sub cmdFormatColor_Click() CommonDialog1.ShowColor RichTextBox1.SelColor = CommonDialog1.color End Sub Private Sub cmdSaveAs_Click() CommonDialog1.Flags = cdlOFNOverwritePrompt CommonDialog1.Filter = RichText Format(*.rtf)|*.rtf CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName, rtfRTF End Sub 3.2 MS Windows Common Controls 6.0 MSCOMCTL.OCX 3.2.1 进度条控件ProgressBar Private Sub Form_Load() ProgressBar1.Align = vbAlignBottom 向窗体底部对齐 ProgressBar1.Visible = False End Sub Private Sub Command1_Click() Dim Works(500) As String, i As Integer, j As Integer ProgressBar1.Min = LBound(Works) ProgressBar1.Max = UBound(Works) ProgressBar1.Value = ProgressBar1.Min ProgressBar1.Visible = True For i = LBound(Works) To UBound(Works) For j = 1 To 20000 模拟一个费时的计算 Works(i) = Initial value i Next j ProgressBar1.Value = i Next i ProgressBar1.Visible = False End Sub 3.2.2 树列表控件TreeView 核心属性：Nodes 3.2.2.1 结点关系的描述 设置外观 Private Sub Form_Load() TreeView1.LineStyle