vb6的功能(vb6主要功能)

1. vb6的功能

大多数软件都含有工具栏，就是菜单栏下方以图标形式形式呈现在用户眼前的，工具栏配合菜单中的命令使用。

接下来就介绍VB6.0中如何制作工具栏。

工具/原料

VB6.0

计算机(WIN7系统)

方法/步骤

1、以Word2007为例，图中红框内的就是工具栏，有很多图标组成。

2、VB6.0中的工具栏控件在默认的工具箱中没有，需要进行添加。在“工程”— “部件”对话框中选择Microsoft Windows Common Controls 6.0在工具箱中添加图像列表、工具栏、状态栏等控件。

3、在控件工具箱中单击”工具栏“控件，在窗体中添加工具栏控件，并调整至合适位置。

4、右键单击工具栏控件，进入属性页，进行属性编辑。

5、工具栏按钮的图标需要加入图片，所以通常与图像列表(Imagelist)控件配合使用。根据需要在属性页对工具栏进行属性设置，然后根据按钮功能编写相应代码即可。

注意事项

工具栏控件经常与图像列表(Imagelist)控件配合使用。

工具栏控件有专门的属性页来调整其属性，这与普通控件不同。

2. vb6主要功能

维生素B1是人体能量代谢，特别是糖代谢所必需的。维生素B6为人体内某些辅酶的组成成分，参与多种代谢反应。维生素B1主要用于治疗脚气病，神经炎，消化不良等。维生素B6主要治疗贫血，口腔溃疡，帕金森综合征等。两种药物一起吃没有什么副作用。建议多吃一些新鲜水果食物。

3. vb 6的作用

VB6.0最适合安装的系统是Windows NT Srever3.51或更高版本的Windows 95/98，以及Windows XP。

目前也能安装在Windows 7或Windows 8的32位版本。64位版本会遇到些问题。

对于高版本的Windows，微软都宣称支持VB6.0包括Windows 10，安装VB6.0遇到兼容性问题时可以采取忽略，继续安装。或者安装在虚拟系统中低版本Windows中。

4. vb6还有用吗

这是硬件发展以及windows更新换代的结果，vb6是32位硬件下，32位windows下的产物，现在硬件都是64，windows也都是64位的了，兼容性就差了，并且vb6不能开发64应用程序，再以后硬件该128位了，windows也该是128位的，32位的开发工具逐渐就淘汰了。

5. vb6使用说明

Windows 窗体 RichTextBox 控件用于显示、输入和操作格式文本。RichTextBox 控件除了做 TextBox 控件所做的每件事外，还可以显示字体、颜色和链接，从文件加载文本和加载嵌入的图像，以及查找指定的字符。RichTextBox 控件通常用于提供类似字处理程序（如 Microsoft Word）的文本操作和显示功能。RichTextBox 控件可以显示滚动条，这一点与 TextBox 控件相同；但是与 TextBox 控件不同的是，RichTextBox 控件的默认设置是水平和垂直滚动条均根据需要显示，并且拥有更多的滚动条设置。

与 TextBox 控件一样，显示的文本由 Text 属性设置。RichTextBox 控件有许多格式文本属性。有关这些属性的详细信息，请参见为 Windows 窗体 RichTextBox 控件设置字体属性和在 Windows 窗体 RichTextBox 控件中设置缩进、悬挂缩进和带项目符号的段落。为操作文件，LoadFile 和 SaveFile 方法可以显示和编写包括纯文本、Unicode 纯文本和 RTF 格式在内的多种文件格式。可能的文件格式在 RichTextBoxStreamType 枚举中列出。可以使用 Find 方法查找文本字符串或特定字符。

也可以通过将 DetectUrls 属性设置为 true 并编写处理 LinkClicked 事件的代码，将 RichTextBox 控件用于 Web 样式的链接。有关更多信息，请参见使用 Windows 窗体 RichTextBox 控件显示 Web 样式的链接。将 SelectionProtected 属性设置为 true 可以防止用户操作控件中的部分或全部文本。

在 RichTextBox 控件中可以通过调用 Undo 和 Redo 方法撤消和重复大多数编辑操作。CanRedo 方法使您可以确定用户撤消的上一操作是否可以重新应用于控件。

例:

Private Sub Command1_Click()

With RichTextBox1

.SelStart = 0

.SelLength = 3

.SelColor = vbRed

.SelBold = True

End With

End Sub

Private Sub Command2_Click()

With RichTextBox1

.SelStart = 3

.SelLength = 3

.SelFontSize = 12

.SelItalic = True

End With

End Sub

Private Sub Form_Load()

RichTextBox1.Text = "123456"

End Sub

================================================================

With RichTextBox1

.SelStart = 0

.SelLength = 3 ’长度为3

.SelColor = vbRed ’颜色

.SelBold = True ’粗为真

End With

With RichTextBox1

.SelStart = 3

.SelLength = 3 ’长度3

.SelFontSize = 12 ’字大小：12号

.SelItalic = True

End With

==============================================================

With RichTextBox1

.SelStart = 0 ’从第0个字符开始选择(从0开始，然后1，2，……)

.SelLength = 3 ’一共选择3个字符

.SelColor = vbRed ’将选择了的字符的颜色设为红色

.SelBold = True ’将选择了的字符的粗体设为真

End With

==============================================================

Private Sub Form_Load()

RichTextBox1.Text = "中国人" & vbCrLf & "网络公司"

RichTextBox1.Font = "宋体"

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = 3

RichTextBox1.SelFontName = "宋体"

RichTextBox1.SelFontSize = 25

RichTextBox1.SelColor = vbBlue

RichTextBox1.SelStart = 5

RichTextBox1.SelLength = 4

RichTextBox1.SelFontName = "黑体"

RichTextBox1.SelFontSize = 18

RichTextBox1.SelColor = vbRed

RichTextBox1.SelLength = 0

End Sub