给VB增加一个滚轮，让VB编代码的时候更方便
VB6IDEMouseWheelAddin.dll
就是这个能使你在VB的代码编辑窗口能够使用鼠标滚轮，编辑代码、查看代码更方便。
下面详述：
1、给大家一个下载地址：
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe右击解压，再右击解压，这时就会看到一个dll文件，这个就是我们要的dll文件。
如果你觉得麻烦的话可以直接下载这个dll文件：http://www.leszj.com/sfw/VB6IDEMouseWheelAddin.dll
2、打开我的电脑→Windows→System32文件夹。将这个dll文件复制粘贴过去。
3、将这个dll文件注册。方法为：点击开始→运行，输入“regsvr32 ***.dll”（引号不用输入），将***换成这个dll的文件名，也就是VB6IDEMouseWheelAddin，即regsvr32 VB6IDEMouseWheelAddin.dll。点击确定，这样就完成了注册。
4、如果你现在正打开一个VB编辑器，把它保存一下关掉。重新打开VB，这样他才能重新加载新加入的dll文件。菜单“外接程序”→“外接程序管理器”里，选中MouseWheel Fix，在加载行为里选中“在启动中加载”和“加载/卸载”两项，点击确定就加载了。
5、再次关闭这个VB编辑器。再次打开VB编辑器。看看是不是可以用滚轮了？！
相关文档：
将长路径转为短路径
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
ftp.txt文件内容为：
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VB内容为：
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
