何老师的济亨网

VB编程：VB获取快捷方式对应的目标路径。比如，我们想获取桌面上腾讯QQ快捷方式对应的路径，也就是想知道QQ运行程序的安装位置。我们先做一个函数，专门用于取得一个程序的快捷方式对应的路径名。函数代.........

VB给图片填充颜色代码有时我们需要实现一个功能，就像WINDOWS自带画图软件上的“用颜色填充”功能，只要用鼠标点击图片的某个地方，颜色就自动填充到鼠标所在位置的封闭区域。VB填充颜色这个功能，需.........

VB判断盘符是否存在，以及用VB来判断文件或文件夹是否存在。用VB来判断盘符是否存在，以及来判断文件或文件夹是否存在都可以用DIR函数来判断。1.判断F盘是否存在于电脑中的VB代码，在窗体建一个按.........

用VB来判断windows系统是32位还是64位用VB程序来判断系统是32位还是64位，主要还是靠API来帮忙实现此功能。实现起来也很简单，先在窗体模块里申明API函数：PrivateDeclareFu.........

让VB的应用程序，让VB的控件支持鼠标滚轮VB6.0本身，以及VB做出来的程序都不支持鼠标滚轮，以前鼠标一般是两键，但现在基本上是三键鼠标，即有一个中键，有滚轮，如果应用程序不支持鼠标滚轮，这在用户的体验上就没.........

VB用IE浏览器打开网页源码，及用其它指定的浏览器打开网页源码。先在窗体模块里申明API函数PrivateDeclareFunctionShellExecuteLib"shell32.dll"A.........

VB调用画图程序源码，可以是打开空的画图程序，也可以打开指定的一个图片文件。用VB调用系统自带的画图程序，可以API函数ShellExecute来实现，很简单，只要一行代码。必须先在窗体模块声明A.........

VB打开记事本程序源码，即用VB调用记事本，或用记事本打开一个txt文本文件。用VB调用记事本程序比较简单，可以API函数ShellExecute来实现，很简单，只要一行代码。先在窗体模块声明AP.........

用VB编程求100到300之间所有能被3和7整除的数之和，把结果结果输出到窗体。解，画一个按钮控件，VB代码如下：PrivateSubCommand1_Click()  &n.........

VB编程计算100以内素数并输出到窗体。注：质数（primenumber）又称素数，有无限个。质数定义为在大于1的自然数中，除了1和它本身以外不再有其他因数的数称为质数。在窗体上画一个按钮，代码.........

用VB编写，判断断给定的两个正整数是否互质。解，在窗体上画两个文本框和一个按钮控件，代码如下：PrivateSubCommand1_Click()   Dimi.........

如果不借助API来获取文本框的某一行的话，那就从头开始来查找回车换行符，并确认某一行的换行位置，再来确认某一行的文本内容。但要读取的行数处在textbox最后一行，那么通过这种方式效率就太低了。想要快速提取文本框的某一行.........

将图像中R，G，B三元色的值设置为相等，可以将彩色图片转为灰度图，常用算法有加权平均值法，平均值法和最大值法。下面提供的是加权平均值法的代码。加权平均值法的原理是根据重要性和其它指标对R，G，G进行加权平均。计算公式为：.........

有时我们需要将一个小的图片平铺到整个窗体。这个功能可以用PaintPicture方法来实现。先在窗体上画一个picturebox控件，控件的picture属性大家自行设置一个小图片，具体代码是：PrivateSub.........

VB程序要获取鼠标坐标位置，如果只是判断鼠标在窗体内的位置就好办了，只要用窗体的移动事件就行了，代码如下：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsIn.........

发送字符或发送字符串到其它程序的输入框中，还可以用PostMessage这个API函数来解决，这里提供以一个VB代码，供大家参考。它可以发送英文字符，中文字符，在运行时，也不管当时是否已经调用中文输入法，都可以成功向别的.........

在做发送字符代码之前，先把让窗体无焦点的代码输入好，具体见上一篇文章www.wb86.com/post/39.html输入好使窗口无焦点的代码后，在窗口画一个标签（画标签，是因为标签控件没有焦点），标签的点击事件代码是.........

在做发送字符代码之前，先把让窗体无焦点的代码输入好：PrivateConstGWL_STYLE=(-16)PrivateConstHWND_TOPMOST=-1PrivateConstHWND.........

在实际的编程中，有些我们需要限制在文本框控件里或其它的输入输入框中，只能输入数字，用下面的简单的代码就很好解决。在窗体画一个文本框，输入以下代码：PrivateSubText1_KeyPress(KeyAscii.........

有时我们需要让窗体透明，准确说，是让窗体上的某种颜色的部分透明，而其它颜色不透明。如果我们设置窗体的背景图片是一个小动物，而动物的周围都是红色，那么我们只要设置窗体的红色部分为透明，并设置窗体标题栏不要出现（在窗体属性设置F.........

以下是提取文件夹下所有文件名的VB代码，它可以轻易得到一个文件夹的所有文件名，这个代码是提取C盘根目录下所有文件名，你就要改一下，就可以提取其它文件里的所有文件名。在窗体上画一个按钮，输入以下VB源代码，运行后.........

用vb代码打开网页，打开一个网站的功能用API来做实在是太容易了，就是用ShellExecute函数来完成，只要一行代码，而且VB用ShellExecute也可以轻易打开EXE程序，音乐，视频，txt文件，邮件软件等等............

有些程序需要判断电脑是否连接到网络，是连接上Internet，还是连接到局域网，还是通过代理服务器连接的，检测到电脑连接上网，就做出相应的动作....本程序利用API函数InternetGetConnecte.........

VB6.0本身没有带播放swf,gif格式的动画文件的控件，要播放gif动画或flash动画只能借助于VB带的浏览器控件,即WebBrowser控件，这个控件，要在菜单里，工程--部件，找到“MicrosoftIntern.........

在VB编程中，有时需要判断电脑硬盘序列号，并以此生成所谓这台电脑的机器码，如果软件需要注册，就以此机器码来算出对应的注册码。先在窗体模块输入VB代码：PrivateDeclareFunctionGet.........

VB窗体置顶，这个功能当然还是要靠万能的API来帮忙，先在窗体模块输入以下代码：PrivateConstSWP_NOSIZE=&H1PrivateConstSWP_NOMOVE=&H2.........

用VB编写一个记事本，一定要用到读文本文件和保存文本文件这两个模块，这两个模块做成两个函数PrivateFunctionGetTXT(PathAsString)'读取文本  &.........

VB编程使用关闭按钮不可用的方式，我提供两种方式，一是API的方式，让关闭按钮为灰色而不可用，另一方式是关闭按钮外观没有变化，但鼠标点击它没有任何反应。先讲API的方式，先在窗体模块输入API函数Priva.........

用编程方式获得某个汉字的区位码，或由某个区位码推算出汉字，在网上有好心人写出了相应的函数，在这里我提供出来：FunctionQuWei(ByValxAsString)AsString'获得某汉字或.........

以下提供汉字的简体转繁体，繁体转简体的代码，很是简单，但是有必要说明，汉字词的繁与简并不是一一对应的，如果要非常简单地简繁汉字转换，以下代码就非常实用，目前网上在线繁简转换，以及有些输入法的简繁转换都是使用这种方式；如果要比.........