利用VB完全控制你的桌面图标 Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。 其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow和FindWindowEx来获得它们的句柄，然后再...

[阅读全文]

InputBox()函数在VB中用来显示一个对话框，让用户在该对话框中输入一个值以传回到程序中进行处理。InputBox()的函数语法格式如下： InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) InputBox 函数的语法中的参数含义如下： （1）Prompt参数：这个参数是 必需的。...

[阅读全文]

本文给出在VB中改变TreeView 的背景颜色的方法，主要使用了API函数。 Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long ...

[阅读全文]

建立一个vb工程，Project1 添加引用：Microsoft scripting runtime,Microsoft Active Data Object,Microsoft MsXml Form1代码： Public a As MSXML2.XMLHTTP Private Sub Command1_Click() Dim d As Class1 Set a = New MSXML...

[阅读全文]

本文重点讲解了TreeView控件的使用方法。TreeView控件具有丰富的功能，可以运用到很多场合。摘要：讲述了如何向 TreeView 控件添加数据绑定功能，它是一系列 Microsoft Windows 控件开发示例之一。您可以将本文与相关的概述文章结合起来阅读。 简介 在可能的情况下，您应该先使用些现成的控件；因为提供的 Microsoft® Windows® 窗体控件...

[阅读全文]

熟悉VFP的用户都知道ComboBox对象若显示多栏式时，正常选择结果会以第一栏的内容显示在选择项目上。但实际系统设计中要显示多个栏位如图书编号、名称、作者和出版商，而选定的结果及要传递的值则可能是其中的任意一项，此时实现方法如下： (1)设定ComboBox对象的属性ColumnCount为4；属性ColumnCountWidth为12，40，12，40；属性RowSourceType为Fie...

[阅读全文]

在VBA编程中，也有debug的功能使用，但与C# 及C++ 有点不同。特别在watch某个对象的时候，必须得选中，然后按shift +F9可以进行　quick watch. 请注意以下几点： 插入断点，把鼠标放到某一行的代码前面，左击鼠标就可以插入断点，取消断点只要在断点上左击鼠标就ｏｋ 单步调式――F8。可以用鼠标放上去查看某个系统定义的变量的值，对于自定义的"引用类型的值，可以通过上面提...

[阅读全文]

在实际的编程中，数组是运用很多的对象。象Array，List等都是对数组的一种封装。 　我们看看下面两种的定义方法，能看出他们的区别吗？ 　Dim tB1() As Byte 　Dim tB2() As Byte = {} 　这两种都是定义一个字节数组，且数组里都没有元素。 　不过下面两句话就能看出区别了。 　Debug.Print(tB1 Is Nothing) 　Debug.Pr...

[阅读全文]

自 1991 年 Visual Basic 语言诞生之日起，它就一直是生成应用程序的高效率工具。将近 20 年之后，它继续提供与 Microsoft .NET Framework 的轻松对接，使开发人员能够编写可跨越桌面、电话、浏览器甚至云的应用程序。 Microsoft 将在本月发布 Visual Studio 2010，其中包含 Visual Basic 版本 10（有时称为 VB 2010...

[阅读全文]

本文介绍了在VB中访问远程数据库的方法与步骤。 远程数据对象（RDO）是VB 5.0中基于ODBC API的对象模型，它短小、快捷、强健，可以访问任何32位ODBC数据源，如SQL Server和Oracle数据库，是访问远程数据库的更新更高级的工具。 使用RDO的一般方法如下。 （1）先声明变量：Public con As rdoConnection, res As rdoResultse...

[阅读全文]

Windows系统中钩子具有相当强大的功能，通过这种技术可以对几乎所有的Windows 系统中的消息进行拦截、监视、处理。这种技术可以广泛应用于各种软件，尤其是需要有监控、自动记录等对系统进行监测功能的软件。本文针对这个专题进行了探讨，希望可以为读者朋友们起到抛砖引玉的作用。 一、钩子的机制及类型 Windows的应用程序都是基于消息驱动的，应用程序的操作都依赖于它所得到的消息的类型及内容。钩...

[阅读全文]

看起来可能让你眼晕，但是只要你懂得VB知识，又想要这个东西的话，那你就得潜心研究一下了 modHook.bas Option Explicit Public Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long,...

[阅读全文]

目前，有很多很多的程序员仍在使用VB，因为它使用简单，而且它仍能帮助我们做很多的事情，那么VB如何发展的呢？本文就给出了VB的发展简史。 （1）1991年 Visual Basic1.0诞生 Visual Basic1.0的功能非常简单，微软为他添加了VBX控件，而不是我们熟悉的ocx控件，缺少数据库支持，而且此时的 vb还是一种解释型语言，还不能生成.exe文件。但他最大的革新是加入了事件驱动...

[阅读全文]

下面的函数用来计算某个文件目录所占的字节数： REM 函数返回值为目录所占字节数 Function DirUsedBytes(ByVal dirName As String) As Long Dim FileName As String Dim FileSize As Currency If Right$(dirName, 1) <> "\" Then dirName ...

[阅读全文]

有时，我们想给自己的程序也加一个快捷方式，当然程序安装后，我们可以通过点击我们程序的可执行文件，右击选择添加桌面快捷方式来实现，但我们有时想通过编程自动实现，这怎么办呢？我们可以调用API函数来实现，下面给出了源代码： Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal _ lpstrFolderName As...

[阅读全文]

有时我们在使用数组时却无法估计数组的大小，于是很容易想到动态数组，即在使用的过程中动态地改变数组的大小。这在VB中很容易实现，下面就以具体的例子来讲解： 在VB中定义动态数组通常分两步： （1）在窗体层或标准模块中用Dim、Private或Public声明一个没有下标的数组(括号不能省略)， （2）在过程中用ReDim语句定义带下标的数组 ReDim语句的作用，是重新指出数组的大小。它是在...

[阅读全文]

在用VB编程中使用第三方控件，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。本文讲述了将第三方控件以自定义资源文件方式保存在程序中，程序运行之后使用控件之前将所用到的控件生成到该程序目录下，完成控件从可执行文件中的金蝉脱壳。 具体做法如下： ...

[阅读全文]

当TextBox得到焦点时（GotFocus）改变文本颜色，失去焦点时（LostFocus）将还原文本颜色，ForeColor是设置文本的前景色。 '当光标移到TextBox时文字设置为红色 Private Sub Text1_GotFocus() Text1.ForeColor = vbRed End Sub '当光标移出TextBox时文字设置为黑色 Private Sub ...

[阅读全文]

有时我们想在textbox控件获得焦点时而选中textbox中的所有文本，这可通过SelStart和SelLength属性来达到。具体来讲就是在对象得到焦点时，从最前面开始选取（SelStart=0），选取的长度为文本长度（Len（Text1）），源代码如下： Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLengt...

[阅读全文]

实现起来很简单，就是当用户按下某个按键时，使另一个空间得到本文本框中的内容即可了，下面是具体的源代码： Private Sub Text1_KeyPress(KeyAscii As Integer) Text2=Text1 End Sub 本文源自：翔宇亭——IT乐园（http://www.biye5u.com），转载请保留此信息！

[阅读全文]

有时我们在操作程序时，想在按下回车键时就使下一个控件获得焦点而不是通过点击鼠标或按下TAB键实现。其具体原理比较简单，即当用户按下回车键时（KeyAscii为13），通过Send模拟按下一个Tab键即可。具体源代码如下： Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “...

[阅读全文]

在VB中，字母以ASCII形式存储，而大小写字母的ASCII值相差32，这样的话，如果一个大写字母的ASCII值加上32就会变为对应的小写字母，而小写字母的ASCII值减去32就会变为大写字母。在VB中实现大小写转换的源代码如下： '大写字母转小写字母 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 65 An...

[阅读全文]

在界面程序设计中，有时我们只想让TextBox控件接收数字型输入，而其他输入被忽略，这怎么实现呢？下面就给出了具体的源代码： 我们为TextBox添加KeyPress事件 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then Bee...

[阅读全文]

有时，我们需要把一篇word文章保存到数据库中以方便日后搜索使用，但如何做到这一点呢？下面就给出两种把word文档存储到数据库中的方法。 第一种方法：把整个word文档保存到数据库中，这样不仅保存了word文档中的内容，也把word中的格式也保存起来了。 在保存时，如果使用的数据库为SQL Server，则保存word文档的字段应使用Binary数据类型，如果使用ACCESS数据库，则应使用O...

[阅读全文]

（注：本文以2000年七月的MSDN解释为准） MCI Command String是多媒体设备的程序接口。通过它，我们可以打开一个多媒体文件，例如mp3，VCD文件，Mpeg4格式的文件等等，并对它进行播放，暂停，关闭等操作。现在小弟有幸给大家介绍一下MCI Command String的使用方法。 MCI Command String是通过mciExecute或mciSendString两...

[阅读全文]

　网上讨论编程实现XP风ge已经很久了，但对于VB编程实现XP风ge，却终没有一个完美的解决方案。笔者通过N个日夜的刻苦钻研终于揭开其中奥秘。下面分为三个方面与大家共享之。 点击下载源代码文件 一．用manifest文件实现XP风ge 正常情况下，在Windows XP系统中，用VB6开发的应用程序只有窗口标题条具备XP风ge，窗体上的按钮、文本框等控件仍然显示Windows传统风ge。...

[阅读全文]