0/1组合

程序窗口按用户上次关闭时的位置大小打开程序1.首先在窗体的Unload事件中，使用SaveSetting语句将窗口的位置大小值保存到应用程序注册位置的注册表中，即在Windows注册表中保存或建立应用程序项目，语法如下：   SaveSetting AppName,Section,Key,Setting   Section 表示区域名称，即在该区域(注册表中)保存程序各项值   Key 注册表项的

c        读入的图形资源和使用LoadPicture读入的图象一样使用，省去了调用BitBlt等API函数的麻烦。这些图象资源也可以直接赋给与图象有关的属性，如Picture属性，而这是采用API方法比较难实现的。 一、如何制作资源文件    VB所支持的资源文件必须以.res为扩展名，否则VB将无法正确识别。只要在项目文件中加入.res文件，就可以在程序中调用.res文件中的资源了。

在用VB编程中合理的使用第三方控件，往往能够事半功倍。但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。要做到这一点通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。而且上面两种办法也不符合绿色软件的要求。所谓的绿色软件是指软件只有单个可

1.先引用Microsoft Excel 11.0 Object Library 对象2.在程序中声明对此对象的引用    Dim objExlApp As New Excel.Application    Dim objExlBook As New Excel.WorkBook    Dim objExlSheet As New Excel.WorkSheet    创建新的工作薄     Se

1.将ListView的View属性设置为lvwReport报表外观2.使用ColumnHeaders集合的Add方法将ColumnHeader对象添加到ColumnHeaders中作为报表的列首元素，即列标题。3.新创建对象的引用并返回给ListItem对象变量4.使用循环上界为ListView.ColumnHeaders.Count - 1的次数添加给对象变量的其他子项目(使用索引值即循环值)

原理：        使用密码文本的Ascii值与原文本文件的Byte类型进行Xor异或运算进行加密，由于异或运算可逆，所以，再次使用密码文本的Ascii值与加密文本文件进行Xor运算，就可解密。        以二进制方式打开txt文件，将txt文件内容存入Byte型的动态数组中，动态数组的长度为Lof(文件号)       1.将密码文本中的每个字符转换为Ascii值，并存入另一个Byte型的

1.要检索所有的数据库名，使用          rs.Open "sp_helpdb", cnMain, adOpenDynamic, adLockOptimistic          使用此方法得到一个记录集，然后可在此记录集中，查找指定的数据库名是否存在。2.检索某个数据库中的所有用户表，使用          rs.Open "SELECT name From sysobjects W

VB使用传统方法读写文件时不允许其它程序读写1.不充许其它程序读文件      Open FileName For Input Access Read Lock Read As #lngFH2不允许其它程序写文件但可以读     Open FileName For Output Access Write Lock Write As #lngFH

需要打包的文件列表如下：以下文件添加到InstallShield－> Components-> WINSYSDIRSharedSelfRegFiles－>Static File Links下 -----------------------------------craxdrt9.dllcrqe.dllcrtslv.dllexportmodeller.dllkeycode.dllcrviewer9.

VB的好处我就不多说了。VB初学者模仿能力很强，总希望自己的程序看起来专业一点，如用密码登录、制作限次版、限时版、强行启动等等，其实这些东西并不神秘，在VB里只要用少量代码就可实现。　　1.最简单的可执行文件密码登录：　　在程序启动时加入以下代码：　　Private Sub Form_Load()　　Dim a as Variant　　a=InputBox("请输入密码!")　　If a　　End

首先定义一个variant型的变量，然后使用Array(参数)将数组的各值赋给定义的Variant型变量，如下：Dim varTemp as VariantvarTemp = Array(1,2,3,4,5)然后就可以使用数据类型转换函数分别将数组转换为指定类型Cdbl(vartemp(2))

1.打开文件并读取一行字符         open "test.txt" for input as #1         line input #1, strTemp2. Dim一Long变量lngLoc定位指定字符的位置，然后使用right截减原字符串得到指定字符后的字符串         lngLoc = inStr(1, strTemp, "=")         strTemp = Ri

Printer 对象常数打印机颜色模式常数 值 描述 vbPRCMMonochrome 1 单色输出 vbPRCMColor 2 彩色输出 双面打印常数 值 描述 vbPRDPSimplex 1 单面打印 vbPRDPHorizontal 2 双面水平打印 vbPRDPVertical 3 双面垂直打印 打印方向常数 值 描述 vbPRORPortrait 1 文档打印以纸的窄边作顶部 vbPRO

可 以 设 置 Form的 KeyPreview属 性 为 True， 然 后 在 Form_KeyDown事 件 中 添 加 代 码 ：     Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)      If KeyCode = Asc("A") And Shift = vbCtrlMask Then      Com

我们知道，在一些程序中，有一些快捷方式(如：Shift键最小化、ESC键退出、Ctrl＋S存盘、Alt＋x退出等等)。以前有一些介绍使用Win32 API可以做到，但过于繁琐，其实VB本身已经给我们提供了这个功能。 　　我们来新建一个窗体Form1，对于键盘操作可以看到有三个事件KeyPress()，KeyDown和KeyUp，下面我对它们分别介绍： 　　KeyPress()事件是当用户按下和松开

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long_______________________________________________________Pri