当前位置：文档之家 › VB6开发技巧集锦(资源文件)

VB6开发技巧集锦(资源文件)

  • 格式：doc
  • 大小：24.00 KB
  • 文档页数：5

VB6开发技巧集锦（资源文件）
一．VB中资源文件的分类
通常将资源分为两类：1.字符串资源，包括菜单和文本中使用的字符串，如"Hello
World"等；2.二进制资源，如位图（.BMP），图标(.ICO)，光标(.CUR)，声音(.WA V)和动画(.A VI)等。

对于不同的资源，要用不同的调入函数，这在下面会介绍。

二．资源文件的建立
采用如下步骤来建立资源文件：
1．启动VB6.0企业版，新建一个标准Exe工程，即工程1，有一个缺省窗体，form1。

如果采用应用程序向导建立工程,那么在向导中会提示是否建立资源文件，这也是建立资源文件的一个方法。

2．在[外接程序]菜单下，点击[外接程序管理器],弹出外接程序管理器窗口，窗口左边的列表中列出了所有的外接程序，鼠标双击"VB6资源编辑器"。

然后按[确定]按钮返回主窗口。

3．此时系统弹出资源编辑器窗口，同时在主窗口的工具条上添加了快捷按钮。

而在弹出的资源编辑器窗口顶部，也有一些快捷按钮中，其中靠右边有五个按钮，分别对应添加字符串，光标，图标，
位图，自定义资源等命令。

4．添加字符串。

鼠标点击添加字符串快捷按钮，弹出编辑字符串窗口，系统自动给出字符串资源的标识号，用户可在此依次输入、编辑、修改、删除对应不同菜单，按钮，消息提示的字符串。

对不同类型的字符串，用户最好设定特定的标识号规则。

在本例中，建立的字符串资源如下：
标识号中文名称标识号中文名称
101 文件[F] 202 确定[Y]
102 打开[O] 303 我的演示程序
103 退出[X]
5．依次建立光标、图标，位图等其他资源，注意对于WAV、A VI等特殊资源，需要采用年[添加自定义资源]方法建立。

最后在窗口上树形视图
(TreeView)中，分类列出了各项资源。

在本例中，各添加了一个位图文、图标文件、光标文件，分别是
MyBmp.BMP,MyIcon.ICO,MyCur.CUR。

6．保存资源文件，缺省为工程1.res。

三．在应用程序中使用资源文件
在form1上添加如下控件：
1．按钮：Name=cmdButton1
2．图标控件:Name=img1
3．图形控件：Name=Pic1
在Form1上添加三个菜单，分别为菜单名对应标识号(菜单的caption)
1.mnuFile 101
2.mnuOpen 102
3.mnuexit 103
并添加如下代码：
sub form1_load()
'将字符串调入控件属性
mnufile.Caption = LoadResString(101)
mnuopen.Caption = LoadResString(102) mnuexit.Caption = LoadResString(103) Cmdbutton1.Caption = LoadResString(202)
Me.Caption = LoadResString(303)
End sub
Sub cmdbutton_Click()
'将图形,图标，鼠标调入相应的控件
Pic1.Picture = LoadResPicture(101, vbResBitmap) img1.Picture = LoadResPicture(101, vbResIcon) Me.MousePointer = 99
Me.MouseIcon = LoadResPicture(101, vbResCursor)
End sub
运行，系统编译资源文件，显示的菜单条如资源文件中的字符串所示，然后单击按钮cmdbutton1,调入位图，图标，并改变鼠标形状。

四．函数常量说明
上例中用到的函数LoadResString，LoadResPicture是VB中Global 对象下的方法函数。

用法如下：
1．LoadResString(index)：index是必需的一个整数，它用来指定资源文件中数据的标识符(ID) 。

返回一个文本字符串。

2．LoadResPicture(index, format)：index必需的。

它是一个整数或字符串，它用来指定资源文件中数据的标识符(ID)
，format是必需的一个数值或常数，指定返回数据的格式。

返回一个Picture 对象，例如位图、图标或光标。

合集下载

VB6常用方法汇编(三、控件编程基本方法)

VB6常用方法汇编(三、控件编程基本方法)

VB6常用方法汇编三控件编程基本方法控件输入位置和聚焦放置控件: Form1:Text1,Command1代码:Private Sub Command1_Click()Text1.SelStart = 3 '光标在第3个位置Text1.SetFocus '使焦点回到Text1End Sub使用容器控件容器控件有：Frame，PictureBox和ToolBar。

使用容器控件包容其它控件的方法有：1．先产生容器控件，在其上画其它控件；2．把已有控件剪贴到容器控件上；3．用程序 Command1.Container = Frame1用一键来回设置放置控件: Form1:Command1,List1代码:Private Sub Command1_Click()If Bzl thenList1.Visible = TrueCommand1.Cption = “Exit”Bzl = falseElseList1.Visible = FalseCommand1.Caption = “Display”Bzl = TrueEnd IfEnd SubPrivate Sub Form_Load()Bzl = TureList1.Visiblae = FalseCommand1.Caption = “Display”End Sub列表控件的选择属性以List1 的属性为例，列表类控件如List,Combo,File,Dir等均可使用：1．选中第I项 List1.Selected(i) （True）2．返回第I项内容 List1.List(i)3．返回列表总项数 List1.ListCount4．返回最近一次点击位置 List1.ListIndex注意：I均从零开始。

列表控件的全选For i = 0 To File1.ListCount - 1File1.Selected(i) = TrueNext列表控件的部份选择Dim fscount, i, jDim fs1(100) As Stringj = 0For i = 0 To File1.ListCount - 1If File1.Selected(i) Thenfs1(j) = File1.List(i)j = j + 1End IfNextfscount = j使用TreeView控件产生目录在【部件】中选择“Microsoft Windows Common Control 6.0（SP3）”，就可以打开一组控件，有Tabstrip、Toolbar、Statusbar、Progressbar、Treeview、Listview、Imagelist、Slider、Imagecombo。

VB6.0控件编程技巧汇编

VB6.0控件编程技巧汇编

VB6.0控件编程技巧汇编在Visual Basic中，文本框（TextBox）是最常用的控件，熟练运用文本框是开发出高质量的应用程序的基础。

笔者在从事应用程序开发中，摸索出有关文本框的应用技巧，写出来与VB爱好者共享。

1、设置只读文本框。

有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的只读呢？首先，我们可以利用标签框（label ）的只读属性，以标签来代替文本框以实现只读属性，但也可以用小程序实现真正的文本框的只读。

Sub Text1_KeyPress (keyascii As Integer)keyascii = 0End Sub或者也可以用sendkey方法使文本框失去焦点，如以下程序：Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)SendKeys "{tab}"End Sub2、限定文本框的输入内容和格式。

以下程序可以实现限定文本框只能输入数字：Sub Text1_KeyPress (keyascii As Integer)If keyascii <48 Or keyascii> 57 ThenBeepBeepjohny@keyascii = 0End IfEnd Sub若想限定文本框输入格式，可以使用VB的FORMA T函数，也可以使用专业版的屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式作精确控制。

3、为TextBox 创建快捷键。

VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序运行时焦点按Tabindex 属性规定的顺序在控件间跳转。

而为了简化操作，可VB中为任何具有caption的属性的控制创建快捷键，这通过caption 属性中在想作为快捷键的字母前加&号实现。

但有一个问题值得注意，而类似文本框这样的控件无caption 这样的属性，这时可将标签与文本框同时使用。

VB技巧6

VB技巧6

VB6.0编程"杂耍"--------------------------------------------------------------------------------杂耍一、防止自身被多次运行如果你不希望你的VB应用程序被用户通过多次双击图标而重复运行，导致内存不足或其它意外，你可以在程序中增加以下几行,检查发现如果程序已经被运行过，则给出提示后结束：Private Sub Form_Load()If App.PrevInstance thenMsgBox "嘟....,程序正在运行，请检查窗口是否被最小化。

:-)"End IfEnd Sub◆说明:App是VB内置的应用对象,通过访问他的属性可以得到应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称等信息，尤其是App.Path很经常用到的。

◆可能的用途:各种不希望被多次运行的程序，例如数据库应用程序等。

杂耍二、右键菜单Windows的桌面和许多流行软件都提供右键菜单功能，就是在相应控件上单击鼠标右键时弹出菜单实现某些功能，方便快捷，许多编程爱好者也很想实现类似功能吧，方法如下：1、利用VB的菜单编辑器（Menu Editor）编辑你希望弹出的菜单(子选单)，并将此菜单的Visible 属性设置为False。

2、在相应控件的MouseDown事件中编写程序，来调用编辑好的菜单，假设菜单名为demoMenu，并且相应控件名称是ListView1,程序源码如下：Private Sub ListView1_MouseDown (Button As Integer, ShIft As Integer,X As Single, Y As Single)If Button = vbRightButton ThenPopupMenu demoMenuEnd IfEnd Sub◆说明:可以用在包括窗口的任何控件中,关键是弹出菜单技术。

VB6.0开发网络应用的5个技巧

VB6.0开发网络应用的5个技巧

VB6.0开发网络应用的5个技巧Visual Basic 6.0（以下简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。

随着Internet的迅猛发展，VB 6在网络方面的应用开发也越来越多。

本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。

连通检测许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。

很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。

如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。

下面是实现网络连通检测的VB 6代码：启动拨号网络中的连接由于拨号网络不是一个可执行文件，所以要启动拨号网络，需要借助 explorer.exe 。

但若是要启动拨号网络中的某一个连接，则要借助rundll.exe 和 rnaui.dll两个文件。

启动方法如下（假定此连接名称为163）：Shell “rundll rnaui.dll，RnaDial 163”，vbNormalFocus上面假定了连接名称，但在实际编程中我们是不知道连接名称的。

在窗体上放置一个命令按钮（cmdCallConnect)，在其单击事件中进行连接处理。

下面的代码介绍如何取得默认的连接名称并启动它：在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；再加入一个MAPISession 控件，取名为MAPISession1；再加入三个TextBox控件，分别取名为Subject、Content和Indexno，将它们的Caption分别改为邮件标题、邮件内容和邮件索引号；在TextBox前各加入一个Label控件，将Caption分别改为标题、内容和索引号。

将MAPIMessage1的各项属性设置如下：·DownLoadMail=TRUE；·LogonUI=TRUE；·NewSession=FALSE；·UserName=“接收E mail”。