列表框使用技巧
1、排列列表框中的列表项
在设计或运行时，都可以通过将列表框的SORTED属性设置为TRUE（默认为FALSE）来对列表框的各项按字母顺序进行排列。
2、怎样返回被选中的列表项的文本
可以使用list.text属性 或 list.list(list.listindex)来得到列表项。
3、使用多选列表框
多选列表框允许用户一次选择多个列表项。通过对MULTISELECT属性的设置，就可以把一个列表框变成多选列表框。用户可以用SHIFT和CTRL键选择多个列表框。下面是设置它时可能用到的值：
0--不允许进行多选（默认）
1--简单的多选，单击鼠标或空格键可在列表框中选中一项或取消选择
2--扩展的多选。按下SHIFT键并单击鼠标或按下SHIFT键和一个箭头键
也许你会说，我已经把上面的MULTISELECT属性设置好了，而且也能够在列表框中实现多选，但是怎么才能返回选中的条目呢？是这样的，我们可以使用一个循环来找到被选中的项： 循环中利用了SELECTED属性：
Dim intloopindex as integer 'intloopindex为循环变量
for intloopindex =0 to list.listcount-1 'list.listcount-1是列表框中最大的列表项序号
if list.selected(intloopindex) then 'selected属性为列表项的选中状态，为布尔型
list2.additem list.list(intloopindex) '将选中的列表项添加到另外一个列表框中
end if '我们可根据自己需要写这段代码
next intloopindex
4、使列表框具有水平滚动条：只须用COLUMNS属性将列表框划分为多列即可，默认情况下属性的值为0，不允许多列；设置为其他值时，列表框就会将他的列表项显示为多列，而我们对每一项的操作方法不变。
5、在列表框中使用复选框：可通过设置STYLE属性，将一个列表框变成使用复选框的列表框，下面是设置STYLE属性时所用的值： 0--标准列表框（默认） 1--带有复选框的列表框
6、清空列表框 LIST.CLEAR
其实上面的这些技巧对于和列表框类似的控件例如：文件列表框(FileListBox)、文件夹列表框(DirListBox)等也是适用的，赶快拿去试一试吧。
工具栏使用技巧
1、在工具栏中添加复选（切换）按钮
工具栏中的复选按钮是指当按钮被按下以后就保持被按下的状态，只有下次再按才会弹起来，这就是工具栏的复选切换状态。要实现这样的效果，必须将它的STYLE属性设为tbrCheck，这个设置可以在工具栏的属性页中完成。方法是右击工具栏并选择Properties选项以打开属性页，单击属性页的Buttons选项卡，选择要用的按钮，将它的形式STYLE设为tbrCheck即可。
2、在工具栏中添加组合框和其他控件
通过将按钮的STYLE属性设为tbrPlaceholder在工具栏中设置空间，可以将组合框和其他控件添加到工具栏中，我们以组合框为例来看看具体步骤：
1）右击工具栏并选择Properties选项打开属性页，单击属性页的Buttons选项卡；
2）在要添加组合框的地方添加一个新的按钮；
3）把新按钮的STYLE属性设为tbrPlaceholder，这样按钮不会显现出来，而只是一片空白，用来设置组合框；
4）在width框中输入一个值，这是预留给组合框的空间的宽度；
5）点击确定后，在工具栏的空白处新画一个组合框，注意一定要新画；
6）其他操作与原来相同。
3、怎样做出象IE一样的平面工具栏
IE、WORD等流行软件的工具栏在通常状态下是平面的，只有当鼠标移过时才会突起，这样的效果通过VB工具栏本身是无法实现的，虽然可以用贴图的方法来模拟这种效果但却十分麻烦，简便的方法是通过调用WIN32 API函数来实现。其思路是用SendMessage函数向工具栏发送设置显示样式TB_SETSTYLE的消息来改变工具栏的显示效果。
文本框使用技巧
1、控制文本框中输入的内容
例如我们只要求在文本框中输入数字，而不允许出现其它字符，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），下面是一个例子：
Private Sub Text_KeyPress(KeyAscii As Integer)
if KeyAscii < Asc("0") Or KeyAscii > Asc("9") then
KeyAscii=0
end if
end sub
2、从外部文本文件读入和从文本框中写出内容到文件内容：
有时我们需要从外部的文本文件中读入到文本框中，或是把输入到文本框中的内容保存到文件中，这时可以通过对文件操作的几个语句来实现，其中 Open 语句能够对文件输入/输出，LOF函数返回一个 Long型值，表示用 Open 语句打开的文件的大小，该大小以字节为单位。Input函数从文件中读入数据，而Print函数则把数据写到文件中。具体的代码如下面的实例，需要注意的是文本框只能打开大小在32K以下的文本文件，否则会出现错误。
filename="c:\myext.txt"
Open filename For Input As #1
Text.Text=Input$(Lof(1),#1)
Close #1
filename="c:\myext.txt"来源:七诫
作者:Fantasy
关键字：VB,编程技巧
发表日期：2007-1-16 16:39:18
网页显示有限 阅读全文请下载本文完整版WORD文档上一篇：API编程从入门到精通全讲 下一篇：
共3页 9 7 [1] [2] [3] 8 :>
