当前位置：文档之家 › VB 编程技巧

VB 编程技巧

  • 格式：doc
  • 大小：603.00 KB
  • 文档页数：36

1 VB 技巧 - 列表框使用技巧

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)等也是适用的，赶快拿去试一试吧。 2

VB 技巧 - 工具栏使用技巧

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的消息来改变工具栏的显示效果。具体的实现请参看“API实例解析”之“实现平面工具栏”。

VB 技巧 - 文本框使用技巧

1、控制文本框中输入的内容

例如我们只要求在文本框中输入数字，而不允许出现其它字符，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），下面是一个例子： 3 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"

on error resume next

open "c:\file.txt" for output as #1

print #1,text1.text

close #1

3、怎样把文本框中的文本全部选中

这需要使用文本框的属性SelStart和SelLength属性，SelStart表示选择文本的开始，SelLength表示要选中文本的长度，采用以下两句代码就行了。

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

另外顺便提一下SelText属性，它可以得到已经选中的文本。

4、如何在已经存在的文本的textbox添加新的一行

Dim strNewText As String

Text1.strNewText = "Updated: " & Date

Text1.SelStart = Len(Text1.Text)

Text1.SelText = vbNewLine & strNewText

实现的关键是vbNewLine常数，它的意义是插入一个换行符。

4 VB 技巧 - 组合框使用技巧

1、组合框的三种形式

组合框是用来显示一个文本框及一个下拉列表的控件，你可能认为只有一种组合框，但其实有三种，可以通过设置组合框的STYLE属性来选择其一，下面是设置组合框的STYLE属性时用的值：

VBCOMBODROPDOWN --0 ：包括一个下拉列表和一个文本框，可以选择也可输入文字；

VBCOMBOSIMPLE --1 ：简单组合框，包括一个文本框和一个不会下拉的列表；

VBCOMBODROPDOWNLIST --2 ：只选组合框。

2、在组合框中添加图象

这需要使用IMAGE组合框ImageCombo和ImageList，我们先在“添加组件”中选中“Ms

Common Control 6.0”然后添加ImageCombo和ImageList，并在ImageList中添加图片，然后可以用以下语句为下拉框添加图片。

boItems.Add 1,"key1","item1",1

boItems.Add 2,"key2","item2",2

VB 技巧 - 文件操作的技巧

1、建立和删除目录

你可以用 MKDIR语句建立一个新目录，可以用RMDIR语句删除一个目录。下面是一个例子：

mkdir "c:\data"

rmdir "c:\data"

2、改变当前目录：

可用CHDIR改变当前目录为指定目录，例如：

CHDIR "C:\WINDOWS"

如果想改变当前目录为应用程序所在的目录，可以使用APP.PATH实现，例如：

chdir app.path

3、拷贝、移动文件

可以用filesystemobject拷贝文件，该对象提供计算机文件系统的访问权限和类似copyfile的拷贝文件的方法。该方法使用的语法为： 5 filesystemobject.copyfile source,destination[,overwrite]

source是源文件（包含路径）

destination是目标文件，亦包含路径

overwrite 是布尔值，如果是真则意味着要覆盖已存在的目标文件

使用这个对象之前必须先建立它，方法如下：

Dim FileSystemObject As Object

Set FileSystemObject=CreatObject("Scripting.FileSystemObject")

FileSystemObject.CopyFile "c:\file1.txt", "c:\file2.txt"

CopyFile是一个方法，其作用是将源文件复制到目标位置，它的两个参数分别是源文件和目标文件的路径，另外可以使用的方法有MoveFile和DeleteFile，分别用来移动和删除一个文件，它们的使用方法如下：

FilesyStemObject.MoveFile "c:\file1","d:\file1"

FileSystemObject.DeleteFile "c:\text.txt"

VB 技巧 - VB中如何实现文本查找功能-Instr函数使用技巧

VB中如何实现文本查找功能

实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：

InStr([start, ]string1, string2[, compare])

这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：

合集下载

利用VB编程控制Excel处理测量数据

利用VB编程控制Excel处理测量数据

2007年

文章编号:1672-8262(2007)04-96-04 中图分类号:P209 文献标识码:B

利用VB编程控制Excel处理测量数据

阳德胜3

3　收稿日期:2006—10—08作者简介:阳德胜(1971—),男,测绘工程师,从事道路勘测工作。(广东省公路勘察规划设计院,广东广州　510507)摘　要:介绍了利用VB610编程控制电子表格Excel处理测量数据的编程方法与技巧,从而实现测量数据处理可视化和制表自动化,提高了测量数据处理的效率和准确性。关键词:VB;Excel;编程;测量数据

1　引　言

VB是人们常用的一种高级程序设计语言,利用

VB开发的程序可作为OLE(Objectlinkingandembed2

ding)容器。Excel作为一种非常普及的办公自动化软件,可以用作OLE服务器,向外部输出某些属性、方法

和事件。通过OLE自动化,VB程序可以调用Excel的

功能,因此,可以利用VB编程控制Excel处理测量数

据。本文以公路测量数据处理为例介绍这方面的一些

编程方法和技巧。

2　VB与Excel链接

VB与Excel的链接步骤和常用命令如下:(1)打开VB6.0,进入VB程序设计界面,从下拉

菜单“工程”中选择“引用”,进一步选择“MicrosoftEx2

cel910ObjectLibrary”,再选择“确定”,表示在工程中

要引用Excel类型库。

(2)在通用对象的声明过程中定义Excel对象:

Dimexcel1AsExcel.ApplicationDimexcel1BookAsExcel.WorkBookDimexcel1SheetAsExcel.Worksheet(3)创建Excel对象

SETexcel1=CreateObject(“Excel.Application”)(4)建立一个新Excel工作簿文件

Setexcel1Book=excel1.Workbooks().Add……excel1Book.SaveAs[路径]\“文件名”(5)打开一个旧Excel工作簿文件

vb的使用方法

vb的使用方法

vb的使用方法

以VB的使用方法为标题的文章

VB（Visual Basic）是一种面向对象的编程语言，它的设计初衷是为了简化应用程序的开发过程。VB在Windows操作系统中得到了广泛的应用，它具有易学易用、功能强大等特点，因此备受开发者青睐。本文将介绍VB的使用方法，帮助读者快速入门并掌握基本的编程技巧。

一、VB的安装和配置

在开始学习VB之前，首先需要将VB编程环境安装到计算机上。VB是微软公司开发的软件，可以从官方网站下载安装包，并按照向导进行安装。安装完成后，还需要进行一些配置，比如设置开发环境、添加相关的库文件等。这些配置的具体步骤可以在官方文档中找到。

二、VB的基本语法

VB的语法比较简单易懂，类似于人类语言的表达方式。下面是一些基本的语法规则：

1. 变量声明和赋值

在VB中，可以通过使用Dim关键字声明一个变量，并为其赋予一个初始值。例如：

Dim num As Integer

num = 10

2. 条件语句

条件语句可以通过If...Then...Else...的方式来实现。例如：

If num > 0 Then

MsgBox("这个数是正数")

Else

MsgBox("这个数是负数")

End If

3. 循环语句

循环语句可以通过For...Next或者Do...Loop的方式来实现。例如：

For i = 1 To 10

MsgBox(i)

Next

Do While num < 10

num = num + 1

Loop

三、VB的常用功能

VB作为一种编程语言，提供了许多强大的功能和工具，可以帮助开发者实现各种复杂的应用程序。下面介绍几个常用的功能：

1. 界面设计

VB提供了丰富的控件库，可以用于设计各种界面。开发者可以通过拖拽控件、设置属性等方式，快速构建出漂亮而实用的界面。

2. 数据库操作

VB可以与各种数据库进行连接，并进行数据的增删改查等操作。通过使用ADO（ActiveX Data Objects）等技术，可以方便地对数据库进行操作。

vb编程的基本步骤

vb编程的基本步骤

vb编程的基本步骤

一、需求分析

在进行任何编程工作之前，首先需要进行需求分析。需求分析是指对软件的需求进行详细的了解和分析，包括功能需求、性能需求和界面需求等。通过需求分析，我们可以明确软件的目标和功能，并为后续的编程工作做好准备。

二、设计

在进行VB编程前，我们需要进行系统的设计工作。设计是指根据需求分析的结果，对软件的整体架构进行规划和设计。设计包括系统的模块划分、模块之间的接口设计、数据库设计等。通过设计，我们可以明确软件的结构和功能，并为编码工作提供指导。

三、编码

编码是VB编程的核心步骤，也是将设计转化为实际代码的过程。在编码阶段，我们需要根据设计文档，使用VB语言编写程序代码。编码过程中需要注意代码的可读性和可维护性，要遵循编码规范，使用合适的命名和注释，以便他人能够理解和维护代码。

四、调试和测试

编码完成后，需要进行调试和测试工作。调试是指在编程过程中发现并修复程序中的错误。调试可以通过使用调试工具、输出调试信息等方式来进行。测试是指对编写的程序进行功能测试、性能测试和回归测试等，以验证程序的正确性和稳定性。

五、部署和发布

在完成调试和测试后，我们需要将程序部署和发布到目标环境中。部署是指将程序安装到用户的计算机上，并配置好所需的环境和依赖项。发布是指将程序打包并发布到用户可以访问的地方，如网站或应用商店。

六、维护和优化

程序部署和发布后，并不意味着编程工作的结束。维护是指对已部署的程序进行修复bug、添加新功能和进行性能优化等工作。维护是软件开发的一个重要环节，需要持续投入精力。优化是指对程序的性能进行优化，以提高程序的执行效率和响应速度。

以上就是VB编程的基本步骤。通过需求分析、设计、编码、调试和测试、部署和发布、维护和优化等环节，我们可以完成一个VB程序的开发工作。在实际的编程过程中，还需要不断学习和提升自己的编程能力，掌握更多的编程技巧和经验，以提高编程效率和质量。希望本文对初学者能够有所帮助，能够更好地理解和掌握VB编程的基本步骤。

vb中判断文本框为空的条件语句

vb中判断文本框为空的条件语句

在VB中，判断文本框是否为空是编写程序时经常用到的条件语句之一。在本篇文章中，我将深入探讨如何使用VB语言来判断文本框是否为空，并对其进行全面评估和讨论。

一、基本概念

在VB中，我们可以使用if语句来判断文本框是否为空。if语句的基本格式如下：

```

If 文本框.Text = "" Then

'文本框为空的处理逻辑

Else

'文本框不为空的处理逻辑

End If

```

在这段代码中，我们首先使用if语句来判断文本框的文本内容是否为空，如果为空，则执行文本框为空的处理逻辑，否则执行文本框不为空的处理逻辑。

二、深入讨论

在实际编程中，判断文本框是否为空可能会涉及到更复杂的情况。我们可能需要同时判断多个文本框是否为空，或者需要在用户输入时即时判断文本框的内容是否为空。针对这些情况，我们可以使用多种方法来进行判断。

1. 判断多个文本框是否为空

如果我们需要同时判断多个文本框是否为空，可以使用逻辑运算符来组合多个判断条件。我们可以使用And运算符来同时判断多个文本框是否为空，代码如下：

```

If 文本框1.Text = "" And 文本框2.Text = "" Then

'多个文本框都为空的处理逻辑

Else

'多个文本框中至少有一个不为空的处理逻辑

End If

```

通过使用逻辑运算符，我们可以方便地处理多个文本框是否为空的情况。

2. 即时判断文本框是否为空

有时，我们需要在用户输入文本的同时即时判断文本框是否为空。在这种情况下，我们可以使用事件来触发判断操作。我们可以在文本框的TextChanged事件中进行判断，代码如下：

```

Private Sub 文本框_TextChanged(sender As Object, e As

EventArgs) Handles 文本框.TextChanged

If 文本框.Text = "" Then '文本框为空的处理逻辑