飞扬工作室

中天英语学习-动画学语法

2008-11-02T10:43:00.003+08:00

软件简介：
学英语的最终目标,就是要能读、写、听、讲句子。想到就会讲,听到就会答--表示你会这个语言。
中天英语学习-动画学语法软件运用形象生动地动画卡通进行教学，适合于各个层次的人进行学习。软件内置100多个动画课程和文字教程，内容详尽，是您掌握英语语法的好帮手。

下载：中天英语学习-动画学语法

中天在线网络电视1.5

2008-10-29T21:06:00.004+08:00

软件简介:
中天在线网络电视1.5继承了以前版本使用的在线播放的基础上，增加了PPL.PPS.UUSee.迅雷看看播放。设计成绿化版，绿化就可以使用。
使用说明：
1.打开P2P网视观看时请稍等片刻观看。
2.网络电视播放收到网络公司和带宽的的影响，请选择可以观看的频道。
3.P2P网视再使用过程会在硬盘留下文件，观看久了会越来越多，请定时用绿化卸载里面的清理文件功能清理。

下载：中天在线网络电视1.5

关于 .NET 程序如飞信不能使用问题

2008-10-21T01:23:00.001+08:00

开电脑，运行飞信，竟然不能使用，网上搜索下，发现没有好的解决办法，有的建议重装系统，在介飞信发现说是.NET 程序，试者下载Microsoft .NET Framework 2.0版修复安装，重启电脑后问题解决。
Microsoft .NET Framework 2.0版下载地址：http://dl.pconline.com.cn/html_2/1/82/id=10637&pn=0.html

悠迅全能录音机V1.4中天绿化版

2008-10-15T19:37:00.001+08:00

软件简介:
悠迅全能录音机是一款运行于个人计算机上的功能强大的录音、播放软件。使用它，您可将计算机内部或外部声音（如来麦克风、mono mix、stereo mix、spdif、CD唱机、线路输入、电话线或各影音播放软件正在播放的声音）永久保存到硬盘上。
主要功能如下:
1、几乎可保存为目前已知的声音格式。
2、可选择输入设备。
3、支持多声卡。
4、可以制作多种声音效果，如回声、放大声音、周相移动、均衡器。
5、可直观地看到声音的频率。
6、较之其它国内外录音软件，本软件界面更友好，操作更方便。

下载：http://www.qupan.com/79932/170543.html

手机铃声剪辑王 V6.0 精简版

2008-10-15T19:34:00.003+08:00

软件介绍; 手机铃声剪辑王 V6.0 精简版是一款免安装、绿色、小巧，自做手机铃声软件。能够任意剪辑文件长短并支持所听即所得，保留最精华部分作为自己手机铃声的超强软件。
注册信息;
用户名：中天在线
注册码：93913146

下载：http://www.qupan.com/79932/170534.html

Windows优化大师 8.0.8.815 单文件版

2008-10-15T19:27:00.003+08:00

软件简介：
本次新版较以往版本做了较大改动，更注重用户体验，操作较以往版本更简单，真正实现一键优化的目标！另外优化大师联手优化网，全力打造一个ＩＴ服务平台！相信大家在下载使用最新版优化大师后，会有许多新的感受！

下载：http://www.qupan.com/79932/170525.html

几款VB美化代码

2008-10-15T19:22:00.002+08:00

窗体半透明效果
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Command1_Click()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub
二。窗体靠边自动隐藏
Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOP = 0
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()
'窗体放在最前面
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim f As RECT
GetCursorPos p '得到MOUSE位置
GetWindowRect Me.hwnd, f '得到窗体的位置
If Me.WindowState <> 1 Then
If p.X > f.Left And p.X < f.Right And p.Y > f.Top And p.Y < f.Bottom Then
'MOUSE 在窗体上
If Me.Top < 0 Then
Me.Top = -10
Me.Show
ElseIf Me.Left < 0 Then
Me.Left = -10
Me.Show
ElseIf Me.Left + Me.Width >= Screen.Width Then
Me.Left = Screen.Width - Me.Width + 10
Me.Show
End If

Else
If f.Top <= 4 Then
Me.Top = 40 - Me.Height
ElseIf f.Left <= 4 Then
Me.Left = 40 - Me.Width
ElseIf Me.Left + Me.Width >= Screen.Width - 4 Then
Me.Left = Screen.Width - 40
End If
End If
End If

End Sub

VB编程的8个优良习惯

2008-10-15T19:22:00.001+08:00

1、"&"替换"+"
2、变量命名大小写，语句错落有秩，源代码维护方面
3、请养成以下的“对象命名约定”良好习惯
4、在简单的选择条件情况下,使用IIf()函数
5、尽量使用Debug.Print进行调试
6、在重复对某一对象的属性进行修改时，尽量使用With....End With
7、MsgBox中尽量使用消息图标，这样程序比较有规范
8、在可能的情况下使用枚举
1、"&"替换"+"
在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“&”来连接字符串.

不正确:
Dim sMessage As String
sMessage = "1" + "2"

正确:
Dim sMessage As String
sMessage = "1" & "2"

注意："&"的后面有个空格

2、变量命名大小写，语句错落有秩，源代码维护方面

下面大家比较一下以下两段代码:

读懂难度很大的代码：

Dim SNAME As String
Dim NTURN As Integer

If NTURN = 0 Then
If SNAME = "vbeden" Then
Do While NTURN < 4
NTURN = NTURN + 1
Loop
End If
End If

容易读懂的代码：

Dim sName As String
Dim nTurn As Integer

If nTurn = 0 Then
If sName = "vbeden" Then
Do While nTurn < 4
nTurn = nTurn + 1
Loop
End If
End If
3、请养成以下的“对象命名约定”良好习惯

推荐使用的控件前缀

控件类型前缀例子
3D Panel pnl pnlGroup
ADO Data ado adoBiblio
Animated button ani aniMailBox
Check box chk chkReadOnly
Combo box, drop-down list box cbo cboEnglish
Command button cmd cmdExit
Common dialog dlg dlgFileOpen
Communications com comFax
Control （当特定类型未知时，在过程中所使用的） ctr ctrCurrent
Data dat datBiblio
Data-bound combo box dbcbo dbcboLanguage
Data-bound grid dbgrd dbgrdQueryResult
Data-bound list box dblst dblstJobType
Data combo dbc dbcAuthor
Data grid dgd dgdTitles
Data list dbl dblPublisher
Data repeater drp drpLocation
Date picker dtp dtpPublished
Directory list box dir dirSource
Drive list box drv drvTarget
File list box fil filSource
Flat scroll bar fsb fsbMove
Form frm frmEntry
Frame fra fraLanguage
Gauge gau gauStatus
Graph gra graRevenue
Grid grd grdPrices
Hierarchical flexgrid flex flexOrders
Horizontal scroll bar hsb hsbVolume
Image img imgIcon
Image combo imgcbo imgcboProduct
ImageList ils ilsAllIcons
Label lbl lblHelpMessage
Lightweight check box lwchk lwchkArchive
Lightweight combo box lwcbo lwcboGerman
Lightweight command button lwcmd lwcmdRemove
Lightweight frame lwfra lwfraSaveOptions
Lightweight horizontal scroll bar lwhsb lwhsbVolume
Lightweight list box lwlst lwlstCostCenters
Lightweight option button lwopt lwoptIncomeLevel
Lightweight text box lwtxt lwoptStreet
Lightweight vertical scroll bar lwvsb lwvsbYear
Line lin linVertical
List box lst lstPolicyCodes
ListView lvw lvwHeadings
MAPI message mpm mpmSentMessage
MAPI session mps mpsSession
MCI mci mciVideo
Menu mnu mnuFileOpen
Month view mvw mvwPeriod
MS Chart ch chSalesbyRegion
MS Flex grid msg msgClients
MS Tab mst mstFirst
OLE container ole oleWorksheet
Option button opt optGender
Picture box pic picVGA
Picture clip clp clpToolbar
ProgressBar prg prgLoadFile
Remote Data rd rdTitles
RichTextBox rtf rtfReport
Shape shp shpCircle
Slider sld sldScale
Spin spn spnPages
StatusBar sta staDateTime
SysInfo sys sysMonitor
TabStrip tab tabOptions
Text box txt txtLastName
Timer tmr tmrAlarm
Toolbar tlb tlbActions
TreeView tre treOrganization
UpDown upd updDirection
Vertical scroll bar vsb vsbRate

--------------------------------------------------------------------------------
推荐使用的数据访问对象 (DAO) 的前缀
用下列前缀来指示数据访问对象
数据库对象前缀例子
Container con conReports
Database db dbAccounts
DBEngine dbe dbeJet
Document doc docSalesReport
Field fld fldAddress
Group grp grpFinance
Index ix idxAge
Parameter prm prmJobCode
QueryDef qry qrySalesByRegion
Recordset rec recForecast
Relation rel relEmployeeDept
TableDef tbd tbdCustomers
User usr usrNew
Workspace wsp wspMine
应用程序频繁使用许多菜单控件，对于这些控件具备一组唯一的命名约定很实用。除了最前面 "mnu" 标记以外，菜单控件的前缀应该被扩展：对每一级嵌套增加一个附加前缀，将最终的菜单的标题放在名称字符串的最后。下表列出了一些例子。

推荐使用的菜单前缀
菜单标题序列菜单处理器名称
File Open mnuFileOpen
File Send Email mnuFileSendEmail
File Send Fax mnuFileSendFax
Format Character mnuFormatCharacter
Help Contents mnuHelpContents

当使用这种命名约定时，一个特定的菜单组的所有成员一个接一个地列在 Visual Basic 的“属性”窗口中。而且，菜单控件的名字清楚地表示出它们所属的菜单项。

为其它控件选择前缀

对于上面没有列出的控件，应该用唯一的由两个或三个字符组成的前缀使它们标准化，以保持一致性。只有当需要澄清时，才使用多于三个字符的前缀。

常量和变量命名约定
除了对象之外，常量和变量也需要良好格式的命名约定。本节列出了 Visual Basic 支持的常量和变量的推荐约定。并且讨论标识数据类型和范围的问题。

变量应该总是被定义在尽可能小的范围内。全局 (Public) 变量可以导致极其复杂的状态机构，并且使一个应用程序的逻辑非常难于理解。全局变量也使代码的重用和维护更加困难。

Visual Basic 中的变量可以有下列范围

范围声明位置可见位置
过程级过程，子过程或函数过程中的 ‘Private’ 在声明它的过程中
模块级窗体或代码模块（.frm、.bas ）的声明部分中的 ‘Private’ 窗体或代码模块中的每一个过程
全局代码模块（.bas）的声明部分中的 ‘Public’ 应用程序中的每一处

在 Visual Basic 的应用程序中，只有当没有其它方便途径在窗体之间共享数据时才使用全局变量。当必须使用全局变量时，在一个单一模块中声明它们，并按功能分组。给这个模块取一个有意义的名称，以指明它的作用，如 Public.bas。

较好的编码习惯是尽可能写模块化的代码。例如，如果应用程序显示一个对话框，就把要完成这一对话任务所需要的所有控件和代码放在单一的窗体中。这有助于将应用程序的代码组织在有用的组件中，并减小它运行时的开销。

除了全局变量（应该是不被传递的），过程和函数应该仅对传递给它们的对象操作。在过程中使用的全局变量应该在过程起始处的声明部分中标识出来。此外，应该用 ByVal 将参数传递给 Sub 过程及 function 过程，除非明显地需要改变已传递的参数值。

随着工程大小的增长，划分变量范围的工作也迅速增加。在类型前缀的前面放置单字母范围前缀标明了这种增长，但变量名的长度并没有增加很多。

变量范围前缀

范围前缀例子
全局 g gstrUserName
模块级 m mblnCalcInProgress
本地到过程无 dblVelocity

如果一个变量在标准模块或窗体模块中被声明为 Public，那么该变量具有全局范围。如果一个变量在标准模块或窗体模块中被分别声明为 Private，那么该变量有模块级范围。

注意：一致性是卓有成效地使用这种技术的关键；Visual Basic 中的语法检查器不会捕捉以 "p." 开头的模块级变量。

常量
常量名的主体是大小写混合的，每个单词的首字母大写。尽管标准 Visual Basic 常量不包含数据类型和范围信息，但是象 i、s、g 和 m 这样的前缀对于理解一个常量的值和范围还是很有用的。对于常量名，应遵循与变量相同的规则。例如：

mintUserListMax '对用户列表的最大限制
'(整数值，本地到模块)
gstrNewLine '新行字符
'(字符串，应用程序全局使用)

变量
声明所有的变量将会节省编程时间，因为键入操作引起的错误减少了（例如，究竟是 aUserNameTmp，还是 sUserNameTmp，还是 sUserNameTemp）。在“选项”对话框的“编辑器”标签中，复选“要求变量声明”选项。Option Explicit 语句要求在 Visual Basic 程序中声明所有的变量。

应该给变量加前缀来指明它们的数据类型。而且前缀可以被扩展，用来指明变量范围，特别是对大型程序。

用下列前缀来指明一个变量的数据类型。

变量数据类型

数据类型前缀例子
String （字符串类型） str strFName
Integer （短整数类型） int intQuantity
Long （长整数类型） lng lngDistance
Single (单精度浮点数类型) sng sngAverage
Double （双精度浮点数类型） dbl dblTolerance
Boolean （布尔类型） bln blnFound
Byte （字节类型） byt bytRasterData
Date （日期类型） dte dteNow
Currency （货币计算与定点计算类型） cur curRevenue
Object （对象类型） obj objCurrent
Variant （变体类型） vnt vntCheckSum

描述变量和过程名

变量或过程名的主体应该使用大小写混合形式，并且应该足够长以描述它的作用。而且，函数名应该以一个动词起首，如 InitNameArray 或 CloseDialog。

对于频繁使用的或长的项，推荐使用标准缩略语以使名称的长度合理化。一般来说，超过 32 个字符的变量名在 VGA 显示器上读起来就困难了。

当使用缩略语时，要确保它们在整个应用程序中的一致性。在一个工程中，如果一会儿使用 Cnt，一会儿使用 Count，将导致不必要的混淆。

用户定义的类型
在一项有许多用户定义类型的大工程中，常常有必要给每种类型一个它自己的三个字符的前缀。如果这些前缀是以 "u" 开始的，那么当用一个用户定义类型来工作时，快速识别这些类型是很容易的。例如，ucli 可以被用来作为一个用户定义的客户类型变量的前缀。

[返回索引]

4、在简单的选择条件情况下,使用IIf()函数

罗索的代码：
If nNum = 0 Then
sName = "sancy"
Else
sName = "Xu"
End If

简单的代码：
sName=IIf(nNum=0,"sancy","Xu")

5、尽量使用Debug.Print进行调试

在很多初学者的调试中,用MsgBox来跟踪变量值.其实用Debug.Print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除.

通常：
MsgBox nName

应该：
Debug.Print nName

6、在重复对某一对象的属性进行修改时，尽量使用With....End With

通常：
Form1.Height = 5000
Form1.Width = 6000
Form1.Caption = "This is MyLabel"

应该：
With Form1
.Height = 5000
.Width = 6000
.Caption = "This is MyLabel"
End With
这种结构程序执行效率比较高，特别在循环语句里。

7、MsgBox中尽量使用消息图标，这样程序比较有规范

一般来说

vbInformation 用来提示确认或成功操作的消息

vbExclamation 用来提示警告的消息

vbCritical 用来提示危机情况的消息

vbQuestion 用来提示询问的消息

[返回索引]

8、在可能的情况下使用枚举

枚举的格式为
[Public | Private] Enum name
membername [= constantexpression]
membername [= constantexpression]
....
End Enum

Enum 语句包含下面部分：

部分描述
Public 可选的。表示该 Enum 类型在整个工程中都是可见的。Enum 类型的缺省情况是 Public。
Private 可选的。表示该 Enum 类型只在所声明的模块中是可见的。
name 必需的。该 Enum 类型的名称。name 必须是一个合法的 Visual Basic 标识符，在定义该 Enum 类型的变量或参数时用该名称来指定类型。
membername 必需的。用于指定该 Enum 类型的组成元素名称的合法 Visual Basic 标识符。
constantexpression 可选的。元素的值（为 Long 类型）。可以是别的 Enum 类型。如果没有指定 constantexpression，则所赋给的值或者是 0（如果该元素是第一个 membername），或者比其直接前驱的值大 1。

说明
所谓枚举变量，就是指用 Enum 类型定义的变量。变量和参数都可以定义为 Enum 类型。Enum 类型中的元素被初始化为 Enum 语句中指定的常数值。所赋给的值可以包括正数和负数，且在运行时不能改变。例如：

Enum SecurityLevel IllegalEntry = -1 SecurityLevel1 = 0 SecurityLevel2 = 1 End Enum

Enum 语句只能在模块级别中出现。定义 Enum 类型后，就可以用它来定义变量，参数或返回该类型的过程。不能用模块名来限定 Enum 类型。类模块中的 Public Enum 类型并不是该类的成员；只不过它们也被写入到类型库中。在标准模块中定义的 Enum 类型则不写到类型库中。具有相同名字的 Public Enum 类型不能既在标准模块中定义，又在类模块中定义，因为它们共享相同的命名空间。若不同的类型库中有两个 Enum 类型的名字相同，但成员不同，则对这种类型的变量的引用，将取决于哪一个类型库具有更高的引用优先级。

不能在 With 块中使用 Enum 类型作为目标。

Enum 语句示例
下面的示例演示用 Enum 语句定义一个命名常数的集合。在本例中是一些可以选择的颜色常数用于设计数据库的数据输入窗体。

Public Enum InterfaceColors
icMistyRose = &HE1E4FF&
icSlateGray = &H908070&
icDodgerBlue = &HFF901E&
icDeepSkyBlue = &HFFBF00&
icSpringGreen = &H7FFF00&
icForestGreen = &H228B22&
icGoldenrod = &H20A5DA&
icFirebrick = &H2222B2&
End Enum

在VB中的MsgBox中怎么换行

2008-10-15T19:21:00.001+08:00

" + vbCrLf + "

给VB程序添加背景音乐

2008-10-15T19:20:00.000+08:00

在新世纪看到一个给VB添加背景音乐的教程，感到好麻烦啊
其实很简单

添加一个WMP控件就可以解决了

以下是代码咯

Private Sub Form_Load()
wmp1.URL = "19.mid"
End Sub

把程序和音乐文件放在一起，就可以了，而且那个WMP播放器可以选择隐藏，这样根本看不到。也能达到那个效果

比起那个教程里的简单多

那个要添加资源文件还要些那么多的代码

VB获取系统目录

2008-10-15T19:19:00.002+08:00

Dim FileSystem0bject
Dim SystemDir
Dim SystemDir2

Set FileSystem0bject = CreateObject("Scripting.FileSystemObject")

Set SystemDir0 = FileSystem0bject.getspecialfolder(0) '获取WINDOWS目录

Set SystemDir1 = FileSystem0bject.getspecialfolder(1) '获取WINDOWS/SYSTEM32目录

Set SystemDir2 = FileSystem0bject.getspecialfolder(2) '当前用户TEMP目录

用VB编写一个加密软件

2008-10-15T19:19:00.001+08:00

编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。
字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是：
(1) 以二进制模式打开源文件；
(2) 从源文件第I位读取一个字节，假设为字母“A”，得到“A”的ASCII值为65；
(3) 将65转换成八位二进制串为“01000001”；
(4) 将“01000001”按字节逐位倒排序得另一个八位二进制串“10000010”；
(5) 将“10000010”转换成十进制再写回源文件第I位置，完成一个字节的加密；
(6) 重复(2)、(3)、(4)和(5)，直到所有字节加密结束。
为了使程序模块化，我们用函数过程ByteToBin完成将字节型数据转换成二进制串（其实质就是将十进制数转换成八位二进制串）；用函数过程BinToByte将二进制串转换成字节型数据（实质是将八位二进制串转换成十进制数）：用函数过程Reverse将八位二进制串逐位倒排序。具体程序如下：
Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m <> 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("请输入要加密的文件名！注意加上路径名：")
If Dir(fname) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "任务完成！"
End Sub
本例可以完成对任意文件的加密与解密，对同一文件作第一次处理为加密，第二次处理为解密。要调试本程序，可用记事本在C盘根目录下任意建立一个文本文件（假设为文件名为aaa.txt），其中的内容任意（可以包括字母、汉字、数字、回车符、换行符等）。运行本程序后，在输入文件名的对话框中输入文件名（如：“C:\aaa.txt”）后回车，即可完成对文件的加密。文件加密后，可以在记事本中打开该文件查看加密效果。如果想解密，可再次运行该程序并输入相同文件名。
摘自西北大学出版社出版、李书琴等主编的《VB60程序设计教程》

VB弹网页代码

2008-10-15T19:18:00.002+08:00

rivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

load事件（打开软件时弹出）和 unload事件（关闭软件时弹出）
ShellExecute 0&, vbNullString, "http://www.baidu.com", vbNullString, vbNullString, vbNormalFocus

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.baidu.com")
End Sub

Private Sub Form_Resize()
WebBrowser1.Height = Form2.Height
WebBrowser1.Width = Form2.Width
End Sub

VB读取注册表获得CPU信息!

2008-10-15T19:18:00.001+08:00

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Const REG_SZ = 1
Const REG_DWORD = 4
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Private Sub Command1_Click()
Dim cpupl As String * 100
Dim ret As Long, hKey&
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", hKey)
RegQueryValueEx hKey, "ProcessorNameString", 0, REG_SZ, ByVal cpupl, Len(cpupl)
'cpuinfo = Left(cpupl, InStr(cpupl, Chr(0)) - 1)
MsgBox cpupl
End Sub

VB写远程用到的IP列表显示

2008-10-15T19:17:00.001+08:00

Option Explicit
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Public Function ipwhere(ipAddress As String)
'Dim ipbegin, ipend, ipData1, ipData2, DataSeek, ipFlag
Dim ip
ip = Split(ipAddress, ".")
Dim ipNum '当前要查询的ip
ipNum = ip(0) * 16777216 + ip(1) * 65536 + ip(2) * 256 + ip(3)
'Debug.Print ipNum
Dim ipfile
ipfile = App.Path & "\QQwry.dat"

''''''''''''''''''''''''vb的文件读取方式
Dim fn As Integer
fn = FreeFile
Open ipfile For Binary Access Read As #fn
Dim ipbegin, ipend
'Dim ipbegin As Long
'Dim ipend As Long
'Get #fn, , ipbegin '读文件头4个字节第一个起始IP的绝对偏移
'Get #fn, , ipend '再读文件头4个字节最后一个起始IP的绝对偏移
Dim ipbeginArray(1 To 4) As Byte
Dim ipendArray(1 To 4) As Byte
Get #fn, , ipbeginArray()
Get #fn, , ipendArray()
ipbegin = unPack(ipbeginArray)
ipend = unPack(ipendArray)

Dim ipAllNum
'每组ip段占7个字节计算有多少组ip段
ipAllNum = (ipend - ipbegin) / 7 + 1
Dim BeginNum, EndNum
BeginNum = 0
EndNum = ipAllNum
Dim Middle
Dim ipData1
Dim ipData1Array(1 To 4) As Byte
Dim ip1Num
Bgn:
Middle = CLng((EndNum + BeginNum) / 2)
Get #fn, ipbegin + 7 * Middle + 1, ipData1Array()
ipData1 = unPack(ipData1Array)
'Debug.Print Loc(fn)
ip1Num = ipData1
If ip1Num > ipNum Then
EndNum = Middle
GoTo Bgn
End If
Dim DataSeek
Dim DataSeekArray(1 To 3) As Byte
'Debug.Print Loc(fn)
Get #fn, , DataSeekArray()
DataSeek = unPack(DataSeekArray)
Dim ipData2, ip2Num
Dim ipData2Array(1 To 4) As Byte
Get #fn, DataSeek + 1, ipData2Array()
ipData2 = unPack(ipData2Array)
ip2Num = ipData2
If ip2Num < ipNum Then
If Middle = BeginNum Then GoTo nd
BeginNum = Middle
GoTo Bgn
End If
Dim ipFlag As Byte
'Debug.Print Loc(fn)
Get #fn, , ipFlag
'Debug.Print Loc(fn)
Dim ipAddr2 As String
Dim ipAddr1 As String
If ipFlag = 1 Then
Dim ipSeek
Dim ipSeekArray(1 To 3) As Byte
Get #fn, , ipSeekArray()
ipSeek = unPack(ipSeekArray)
Get #fn, ipSeek + 1, ipFlag
End If
If ipFlag = 2 Then
Dim AddrSeek
Dim AddrSeekArray(1 To 3) As Byte
Dim AddrSeek2
Dim AddrSeek2Array(1 To 3) As Byte
Get #fn, , AddrSeekArray()
Get #fn, , ipFlag
'MsgBox Loc(fn)
If ipFlag = 2 Then
Get #fn, , AddrSeek2Array()
AddrSeek2 = unPack(AddrSeek2Array)
Seek #fn, AddrSeek2 + 1
Else
Seek #fn, Loc(fn) '- 1
' MsgBox Loc(fn)
End If
Dim temp1(1024) As Byte '1k 字节空间
Dim curr1 As Integer
curr1 = 0
Do
Get #fn, , temp1(curr1)
' MsgBox temp1(curr1)
curr1 = curr1 + 1
Loop Until temp1(curr1 - 1) = 0
ipAddr2 = StrConv(temp1, vbUnicode)
'MsgBox Len(ipAddr2)
'ipaddr2
AddrSeek = unPack(AddrSeekArray)
Seek #fn, AddrSeek + 1
curr1 = 0
Do
Get #fn, , temp1(curr1)
curr1 = curr1 + 1
Loop Until temp1(curr1 - 1) = 0
ipAddr1 = StrConv(temp1, vbUnicode)
'ipaddr1
Else
Seek #fn, Loc(fn) '-1
Dim temp2(1024) As Byte '1k 字节空间
Dim curr2 As Integer
' Debug.Print Loc(fn)
curr2 = 0
Do
Get #fn, , temp2(curr2)
'MsgBox temp2(curr2)
curr2 = curr2 + 1
Loop Until temp2(curr2 - 1) = 0
ipAddr1 = StrConv(temp2, vbUnicode)
'ipaddr1
Get #fn, , ipFlag
If ipFlag = 2 Then
Get #fn, , AddrSeek2Array()
AddrSeek2 = unPack(AddrSeek2Array)
Seek #fn, AddrSeek2 + 1
Else
Seek #fn, Loc(fn) '- 1
End If
' Debug.Print Loc(fn)
curr2 = 0
Do
Get #fn, , temp2(curr2)
curr2 = curr2 + 1
Loop Until temp2(curr2 - 1) = 0
ipAddr2 = StrConv(temp2, vbUnicode)
'ipaddr2
End If
nd:

Close #fn
''''''''''''''''''''''''vb的文件读取方式
Call lstrcat(ipAddr1, ipAddr2)
ipwhere = ipAddr1
'ipwhere = ipAddr1 & " " & ipAddr2
'ipwhere = ipAddr2

End Function

Public Function unPack(MyArray() As Byte)
Dim n As Integer
Dim m As Integer
Dim num
m = 0
For n = LBound(MyArray) To UBound(MyArray)
num = MyArray(n) * 256 ^ m + num
m = m + 1
Next n
unPack = num
End Function

VB极时停代事件代码

2008-10-15T19:16:00.002+08:00

Public Starting As Boolean
Private Declare Function GetInputState Lib "user32" () As Long

Sub Command1_Click()
Dim i As Long
Starting = Not Starting
Command1.Caption = IIf(Starting, "停止", "开始")
Do
If GetInputState Then DoEvents
For i = i To i + 1000
If Starting = False Then Exit Do
Next
Me.Caption = i
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Starting = False

End Sub

计算程序从打开到结束的时间

2008-10-15T19:16:00.001+08:00

记个代码,自己以后用用的着,计算程序从打开到结束的时间,也可以监视某个程序是否执行完成!
Private Declare Function GetInputState Lib "user32" () As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
'获取时间差需要API
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Click()
'Shell "explorer http://www.dyjmgm.com/110/vote.asp", vbNormalFocus
MsgBox "所调用程序已经结束,该程序一共运行了:" & DoEvents & mWait(Shell("Notepad", vbNormalFocus)) & "毫秒" ' Shell 函数返回值为 Process Id ,这里运行了记事本,当关闭记事本以后,就会弹出对话框
End Sub

'自定义等待函数,传入SHELL返回值就可以了,返回值为经过的时间
Public Function mWait(ByVal mPid As Long) As Long
Dim mTime As Long
mTime = GetTickCount
Dim pHnd As Long ' Process Handle
pHnd = OpenProcess(SYNCHRONIZE, 0, mPid) ' 取得 Process Handle
If pHnd <> 0 Then
Call WaitForSingleObject(pHnd, INFINITE) ' 无限等待，直到程序结束
If GetInputState Then DoEvents
Call CloseHandle(pHnd) '释放句柄资源
End If
mWait = GetTickCount - mTime
End Function

VB webrowes iframe开发过程

2008-10-15T19:15:00.000+08:00

Option Explicit
' Find the selected document.
Public Function getSelectedDocument(ByVal DocO As HTMLDocument) As HTMLDocument
Static depth As Long

Dim i As Integer
Dim sub_doc As HTMLDocument
Dim hw2 As HTMLWindow2
Dim doc2 As HTMLDocument

' Avoid infinite loops for some deeply nested pages
If depth < 6 Then depth = depth + 1 Else Exit Function

If DocO.selection.Type = "Text" Then
' Debug.Print "Found selection in " & DocO.parentWindow.Name
Set getSelectedDocument = DocO
ElseIf DocO.frames.length <> 0 Then
For i = 0 To DocO.frames.length - 1
Set hw2 = DocO.frames(i)
' Debug.Print Space$(depth * 2) & hw2.Name
Set doc2 = hw2.Document
Set sub_doc = getSelectedDocument(doc2)
If Not sub_doc Is Nothing Then
depth = depth - 1
Set getSelectedDocument = sub_doc
Exit Function
End If
Next i
Else
Set getSelectedDocument = Nothing
End If
depth = depth - 1
End Function
Private Sub cmdGo_Click()
WebBrowser1.Navigate txtURL.Text
End Sub

' Grab text from the WebBrowser control.
Private Sub Command1_Click()
txtResult(1).Text = WebBrowser1.Document.body.innerText
txtResult(2).Text = WebBrowser1.Document.body.outerText
txtResult(3).Text = WebBrowser1.Document.body.innerHTML
txtResult(4).Text = WebBrowser1.Document.body.outerHTML
txtResult(5).Text = WebBrowser1.Document.activeElement.innerText
txtResult(6).Text = WebBrowser1.Document.activeElement.outerText
txtResult(7).Text = WebBrowser1.Document.activeElement.innerHTML
txtResult(8).Text = WebBrowser1.Document.activeElement.outerHTML

Dim doc As HTMLDocument
Set doc = getSelectedDocument(WebBrowser1.Document)
If doc Is Nothing Then
txtResult(9).Text = vbNullString
Else
With doc
If .selection.Type = "Text" Then
txtResult(9).Text = .selection.createRange().htmlText
Else
' Return the whole document if there was no selection
txtResult(9).Text = .documentElement.outerHTML
End If
End With
End If
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.vb-helper.com/index_categories.html"
End Sub

Private Sub Form_Resize()
Dim i As Integer
Dim wid As Single
Dim hgt As Single

TabStrip1.Width = ScaleWidth
hgt = ScaleHeight - TabStrip1.Top
If hgt < 120 Then hgt = 120

VB拷备代码

2008-10-15T19:14:00.002+08:00

Option Explicit

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40
Public Sub SHCopyFile(ByVal from_file As String, ByVal to_file As String)
Dim sh_op As SHFILEOPSTRUCT

With sh_op
.hWnd = 0
.wFunc = FO_COPY
.pFrom = from_file & vbNullChar & vbNullChar
.pTo = to_file & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With

SHFileOperation sh_op
End Sub

Private Sub cmdCopy_Click()
SHCopyFile txtFrom.Text, txtTo.Text
End Sub

Private Sub Form_Load()
Dim file_path As String

file_path = App.Path
If Right$(file_path, 1) <> "\" Then file_path = file_path & "\"

txtFrom.Text = file_path & "TestFrom.txt"
txtTo.Text = file_path & "TestTo.txt"
End Sub

系统类ID

2008-10-15T19:14:00.001+08:00

控制面板::::{21EC2020-3AEA-1069-A2DD-08002B30309D}
我的电脑::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
我的文档::{450D8FBA-AD25-11D0-98A8-0800361B1103}
回收站::{645FF040-5081-101B-9F08-00AA002F954E}
我的电脑{20D04FE0-3AEA-1069-A2D8-08002B30309D}
网上邻居{208D2C60-3AEA-1069-A2D7-08002B30309D}
Internet Explorer{871C5380-42A0-1069-A2EA-08002B30309D}
拨号网络/网络连接{992CFFA0-F557-101A-88EC-00DD010CCC48}
网络（和拨号）连接{7007ACC7-3202-11D1-AAD2-00805FC1270E}（WIN2000/XP）
打印机/打印机和传真{2227A280-3AEA-1069-A2DE-08002B30309D}
计划任务{D6277990-4C6A-11CF-8D87-00AA0060F5BF}
查找计算机 ::{208D2C60-3AEA-1069-A2D7-08002B30309D}
管理工具f::{20D04FE0-3AEA-1069-A2D8-08002B30309D}/::{21EC2020-3AEA-1069-A2DD-08002B30309D}/::{D20EA4E1-3957-11d2-A40B-0C5020524153}

【转】托盘菜单使用的一个小小技巧

2008-10-15T19:12:00.000+08:00

下面是完整代码:

in Form:

Option Explicit

Private lpTrayIconData As NOTIFYICONDATA

Private Sub Form_Load()
With lpTrayIconData
.cbSize = Len(lpTrayIconData)
.hIcon = Me.Icon.Handle
.hwnd = Me.hwnd
.szTip = "托盘消息演示" & vbNullChar
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = WM_TRAYICON
.uID = 0
End With
Shell_NotifyIcon NIM_ADD, lpTrayIconData

pWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, lpTrayIconData

SetWindowLong Me.hwnd, GWL_WNDPROC, pWndProc
End Sub

in Module:

Option Explicit

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2

Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4

Public Type NOTIFYICONDATA

【转】使窗体最大最小化关闭按钮不可用

2008-10-15T19:11:00.000+08:00

'*************************************************************************
'**模块名：Form1
'**说明：魔灵圣域版权所有2008 - 2009(C)
'**创建人：郭卫
'**日期：2008-03-20 10:30:32
'**修改人：
'**日期：
'**描述：
'**版本：V1.0.0
'*************************************************************************
Option Explicit
Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Const SC_SIZE = &HF000&
Private Const MF_REMOVE = &H1000&
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const SC_CLOSE = &HF060
Private Const GWL_STYLE = (-16)
'得到菜单的项目数
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
Dim MdiMenuHwnd As Long
Dim hMenu As Long
'使MDI父窗体的最大化按钮变灰
hMenu = GetWindowLong(Me.hWnd, GWL_STYLE)
'hMenu = hMenu And Not (WS_MINIMIZEBOX) '使最小化按钮变灰
hMenu = hMenu And Not (WS_MAXIMIZEBOX) '使最大化按钮变灰
hMenu = SetWindowLong(Me.hWnd, GWL_STYLE, hMenu)
'删除MDI父窗体菜单中的最大化菜单、最小化菜单和关闭菜单
MdiMenuHwnd = GetSystemMenu(hWnd, False)
DeleteMenu MdiMenuHwnd, 4, &H400& '删除最大化菜单
'DeleteMenu MdiMenuHwnd, 3, &H400& '删除最小化菜单
'注意：如果两个都要删除的话必须先删除最大化才可实现
'屏蔽掉拖拉鼠标窗体
RemoveMenu MdiMenuHwnd, SC_SIZE, MF_REMOVE
'屏蔽关闭按钮和菜单
'第一个是删除关闭菜单并使关闭按钮变灰
hMenu = GetMenuItemCount(MdiMenuHwnd)
DeleteMenu MdiMenuHwnd, hMenu - 1, MF_BYPOSITION
'这个是删除菜单分界线
hMenu = GetMenuItemCount(MdiMenuHwnd)
DeleteMenu MdiMenuHwnd, hMenu - 1, MF_BYPOSITION
End Sub

【转】获得局域网内在线计算机的网卡MAC号及本机的IP地址

2008-10-15T18:59:00.001+08:00

可以用ping其他计算机的方法或查找网上邻居的方法，下面我介绍一个通过查询计算机网卡MAC号的方法查找局域网内在线计算机，利用这个代码可以获得局域网内在线计算机的网卡MAC号，同时也可以获得本机的IP地址，代码如下：

Option Explicit
'===================以下定义用于获得本机IP==================
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128
Private Type WSA_DATA
wVersion As Integer
wHighVersion As Integer
strDescription(WSADescription_Len + 1) As Byte
strSystemStatus(WSASYS_Status_Len + 1) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type
Private Type HOSTENT
hname As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type
Private Declare Function WSAStartup Lib "ws2_32.dll" (ByVal _
wVersionRequired&, lpWSAData As WSA_DATA) As Long
Private Declare Function gethostbyname Lib "ws2_32.dll" (ByVal hostname$) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Private Declare Function WSACleanup Lib "ws2_32.dll" () As Long
'===================以上定义用于获得本机IP==================

'=====================以下定义用于获得MAC====================
Private Declare Function SendARP Lib "iphlpapi" (ByVal dest As Long, ByVal host As Long, ByRef Mac As Any, ByRef length As Long) As Long
Private Declare Function inet_addr Lib "ws2_32.dll" (ByVal cp As String) As Long
'=====================以上定义用于获得MAC====================

'获得指定IP地址的MAC地址，用到全局变量hostIpStr为本机IP地址
'输入：IP为本网内的IP地址字符串，函数返回MAC地址，若出错返回空字符串
Function GetMac(IP As String) As String
Dim ldest As Long, lhost As Long, Mac(5) As Byte, length As Long
Dim i As Long, lR As Long, hostIpStr As String
hostIpStr = GetMyIp
GetMac = "" ' 若得不到MAC！
If hostIpStr <> "" Then
ldest = inet_addr(IP) '//目的地的IP转换为IP内码形式
lhost = inet_addr(hostIpStr) '//将本机IP转换为IP内码形式
length = 6
lR = SendARP(ldest, lhost, Mac(0), length)
If length > 0 Then
For i = 0 To length - 1
GetMac = GetMac & Right("00" & Hex(Mac(i)), 2)
Next i
End If
End If
End Function

'获得本机IP地址，函数返回值=本机IP地址，若出错返回空字符串
Function GetMyIp() As String
Dim WSAD As WSA_DATA
Dim lR As Long, MyIp As String
Dim hostent_addr As Long
Dim host As HOSTENT
Dim hostip_addr As Long
Dim temp_ip_address() As Byte
Dim i As Integer
Dim ip_address As String
lR = WSAStartup(&H202, WSAD)
If lR <> 0 Then 'WSANOERROR Then
MsgBox "启动WSAStartup失败！"
GetMyIp = ""
Exit Function
End If
hostent_addr = gethostbyname("")

If hostent_addr = 0 Then
GetMyIp = "" '注释：主机名不能被解释
Exit Function
End If

CopyMemory host, ByVal hostent_addr, LenB(host)
CopyMemory hostip_addr, ByVal host.hAddrList, 4

ReDim temp_ip_address(1 To host.hLength)
CopyMemory temp_ip_address(1), ByVal hostip_addr, host.hLength

For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
GetMyIp = ip_address
WSACleanup
End Function

Private Sub Command1_Click()
Dim i As Integer, IPStr As String, MACStr As String
IPStr = "192.168.0." '假设本局域网的网段为192.168.0.1到192.168.0.254
For i = 1 To 254
MACStr = GetMac(IPStr & i) '如果计算机开机，则MACStr为网卡的MAC号
If MACStr <> "" Then
Text1.SelStart = Len(Text1.Text)
Text1.SelText = "IP地址：" & IPStr & i & " MAC号：" & MACStr & vbCrLf
End If
Next i
End Sub

【转】探测电脑中有没有安装ＱＱ，仅当ＱＱ没有运行时

2008-10-15T18:58:00.000+08:00

Private Sub Command1_Click()
if getQQpath="" then msgbox "没有装qq" else msgbox "你已经装了qq了"
End Sub

Public Function getQQpath() As String
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")

getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
End Function

源程序下载：

文件名: 探测是否有安装QQ.rar

下载链接: http://www.fs2you.com/files/29f6b070-fc78-11dc-882b-0014221f4662/

Doevents函数详解

2008-10-15T18:57:00.000+08:00

[本文是转贴,先感谢下原作者]

Doevents函数是一个很好用的函数，但很多人对它的用法不清楚或有误解。由于我在网上查到一篇关于此函数的用法，并添加了一些内容，不敢独享，特此献出。
其中有一个“控时循环和变速齿轮”的内容，有点意思，感兴趣的可看一看。

DoEvents函数的功能是：转让控制权，以便让操作系统处理其它的事件。
问:为什么要用doevents?
A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态
B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定)
C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果

下面将其某些用法和难点简介如下:

(注: 1.'** 后面的代码表示如果在该处用了这个语句。2.例子中会用到API函数。3.以下例子都经vb6.0测试成功）

一. 基本用法:
1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办?
例如代码:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'此句写入模块
Private Sub Form_Load()
Show
'**DoEvents 句3
Sleep 5000
End Sub
通常容易想到在sleep前加个show,但还是不能达到预想的效果,窗体虽然出来了,但好象只达到了一半,如果加上第3句,将看到效果大不相同。

2.如果有个很耗时的循环导致程序不响应,怎么办?
例如:
Dim L As Long
For L = 1 To 1000000
'** DoEvents
Next L
如果无'**,在循环过程中程序无法处理事件,对于用户来说是不响应,无法控制的

3.想在循环中看到处理过程?
同样:
Dim L As Long
For L = 1 To 10000
'** DoEvents
Text1.Text=Cstr(l)
Next L
无'** 时将无法看到text1中的变化,而只在循环结束时看到最后结果

4.怎样中止循环?
如果有:
Private Sub Command1_Click()
Dim L As Long
Do
L = L + 1
Debug.Print L '在立即窗口中显示
DoEvents
Loop
End Sub
会发现当关闭窗口后,debug中的数据仍然在变化,说明并没结束
需要如下:
Dim IsExit As Boolean
Private Sub Command1_Click()
Dim L As Long
IsExit = False
Do While DoEvents
If IsExit = True Then Exit Do
L = L + 1
Loop
End Sub

Private Sub Command2_Click()''或者在form_unload模块中等等
IsExit = True
End Sub
其中 isexit是全局变量
<>有些人喜欢用end语句来结束程序,小程序固然可以,但当太大,或者调用了某些特殊的api函数后可能导致预想不到的错误,如果装载了许多东西在程序结束时不处理将卸载很慢,而且这种做法也极不符合正规软件的要求...总之end语句毛病很多,此不详谈,建议少使用甚至不使用

二. 其基本用法大概就这些,现在解析其中的一些[难点]

1.为什么还是不能结束?
代码如下:
Dim IsExit As Boolean
Private Sub Command1_Click()
Dim L As Long
IsExit = False
Do
If IsExit = True Then Exit Do '句0
DoEvents '** 句1
Text1.Text = CStr(L) '** 句2
L = L + 1
Loop
End Sub

Private Sub Form_Load()
Static N As Long
N = N + 1
MsgBox N
End Sub

Private Sub Form_Unload(Cancel As Integer)
IsExit = True
End Sub

运行结果:启动时msg显示1,点击command1,text1在变化，此时再点form右上角的小差(关闭窗体),发现vb运行控制上的按扭并没变化,说明程序还在运行.如果编译成程序后运行,按下ctrl+del+alt也可发现它还没结束.
通过读代码,并没发现错误，怎么回事?
关键在于"句2"访问了控件的属性：
代码运行路径:当在doevents 时,程序释放控制权,可以接收事件消息,form-unload事件只能从此处产生,假设此时关闭form ,unload事件发生,即doevents后就运行unload代码,得到isexit=t,并且form卸载,代码返回到doevents 之后,运行句2.注意现在form 已经卸载了,text1从哪里来呢? 于是form重新装载,代码跳到form_load模块运行,所以在关闭窗体后可以看到msg 显示2,此模块运行完后再继续句2后面的代码,当下次循环遇到句0时退出循环
另:既然退出了循环,怎么还不能结束?
vb程序规定(其实其他的windows语言一样):窗体卸载时并不是立即卸载其模块代码,而只先卸载窗体中的控件和一些属性值,程序中最后一个窗体卸载时才完全卸载.
在这个单窗体程序中,form卸载时因为循环的控制无法卸载代码,失去了卸载代码的机会,导致再也不能卸载(因为没卸载代码,所以运行的句2是并不会出错) 。
另:既然再次运行了form_load代码,怎么看不见窗体?
因为程序启动时窗体的到显示的消息,而只运行此模块并没有(如果在msgbox n语句前加上show,就可以看到它了)
如何解决?
通过以上分析,应该很简单,把句1 和句2调换一下就可以了,关键:
<仔细分析代码是如何运行的,避免在form已经卸载了情况下访问控件>

2.用了doevents速度太慢了怎么办?
doevents的代价是速度变慢,但要程序响应又不得不用，其实doevents语句允许任何应用程序执行相关事件，而不仅仅是你自己的程序,所以变得很慢.
可以让它响应本程序事件动作,需要用到api函数GetInputState，它的声明语句为：
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetInputState Lib "user32" () As Long
例如用: If GetInputState() Then DoEvents '来代替doevents可使循环运行更快

3.既要同时响应事件又要控件不变化,怎么办?
例如在一个长的循环中向listview控件中添加记录,无doevents时程序无响应,但有它时控件又闪的厉害
解决办法:
a.不一定每次循环都doevents,可以在适当时间时才用,至少没那么闪
b.应用api函数 ValidateRect 功能是使指定的矩型区域生效,通知Windows不对指定的区域进行重画另:InvalidateRect 功能相反,同时需要用到函数 GetClientRect 取得指定对象的矩形区域应用*rect函数指定listview的矩形区不重画,即可避免闪烁(但还是要注意恢复重画,否则看不见了真实效果)

4.控时循环和变速齿轮
请看下面的代码:
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim IsExit As Boolean
Private Sub Command1_Click()
Dim L As Long
Dim Kt As Long
IsExit = False
Do
Kt = timeGetTime()
'do something
L = L + 1
Text1.Text = L
'DoEvents '句 1
While timeGetTime - Kt < 50 '句 2
'While Abs(timeGetTime - Kt) < 50 '句 3
'While Abs(timeGetTime - Kt) And (Not IsExit) < 50 '句 4

DoEvents '句 5
Wend
'DoEvents '句 6
If IsExit Then Exit Do
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
IsExit = True
End Sub
其中可用的代码(除去加"'" 号的代码)就是通常的控时循环代码
运行代码并不会出现错误,但在循环过程,请开启变速齿轮看看
当关闭齿轮时,将发现text1.text停止了,别慌,等一段时间它又会继续(这要看你设定的时间,这里是50毫秒,如果设定的太长text1.text将半天都没变化,这是怎么回事?
变速齿轮在启动时将hook.dll映射到你的程序地址运行,更改了timegettime()函数获取的时间
如果在句2和句3间插入debug.print timegettime,timegettime-kt 将发现,在关闭齿轮的瞬间后者变成了负值,timegettime变小了,所以才造成需要等很久
如果是编写游戏,而用户开了齿轮,那可就惨了

解决方案:
a.用句3代替句2,这个方法最简便,虽然不符实,但不会出问题,建议使用
b.不要句5,换用句6(这样就能达到效果吗?) 因为齿轮还是从doevents语句运行时才能插的进来,所以只要kt=timegettime 和 timegettime之间没有doevents就不会出错
ab.两种方法都有些小问题,但无大碍,有兴趣者请自己分析

5.程序怎么"死了"?
这只是一些人编写时没注意到的小问题,提醒一下:
同样用上面的代码,如果设定的时间太短,以至在代码运行到句2时已经超时了,句5将不能运行了,当然程序就死了哦,以防万一,加上句1,所以此时也只能用a方案来解决齿轮的问题了
有必要用句4代替句3 吗? 除非你设定的时间太长,人家想关闭你的程序要等上好半天。

在MSND上的内容：在使用全局数据时避免 DoEvents
当一个函数已通过 DoEvents 放弃控制时，可相当安全地再次调用函数。例如，下一过程将检测质数并用 DoEvents 语句周期地启动其它应用程序处理事件：

Function PrimeStatus (TestVal As Long) As Integer
Dim Lim As Integer
PrimeStatus = True
Lim = Sqr(TestVal)
For I = 2 To Lim
If TestVal Mod I = 0 Then
PrimeStatus = False
Exit For
End If
If I Mod 200 = 0 Then DoEvents
Next I
End Function

该代码中每重复 200 次就调用一次 DoEvents 语句。这样一来，当该环境的其余部分对事件作出响应时，只要有必要，PrimeStatus 过程就可继续计算。

考虑在调用 DoEvents 期间发生的事情。在其它窗体和应用程序处理事件时将暂停执行应用程序代码。这些事件之一有可能是一个按钮单击操作，它将再次启动 PrimeStatus 过程。

这将导致重新进入 PrimeStatus 过程的，但是，因为在函数每次出现时，堆栈都为其参数和局部变量分配了空间，所以重入不会引发冲突。当然，如果过多调用 PrimeStatus，则可能出现“溢出堆栈空间”错误。

如果 PrimeStatus 使用或改变模块级变量或全局数据，情况就会完全不同。此时，在 DoEvents 能够返回之前执行 PrimeStatus 的另一个实例，这将导致模块数据或全局数据的值完全不同于它们在调用 DoEvents 之前的值。于是，PrimeStatus 的结果将会难以预料

如何实现text宽度随输入内容长度自动变

2008-10-15T18:56:00.002+08:00

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Width = Len(Text1.Text) * 130'字体大小不同×的数也不一样
End Sub

在vb中实现超连接的方法！和直接发邮件

2008-10-15T18:56:00.001+08:00

新建立一个模块
然后再其中添加如下代码：

Option Explicit

Public Const email = "xx@xx.com"
Public Const URL = "http://hi.baidu.com/yunlintea/"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
Public Sub sendemail()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
接着就简单不过了！
在你所要进行超连接的窗体中，如实现LABEL的超连接
那就在LABEL的CLICK事件中加入 gotoweb或sendemail 即可！

vb获取本机当前IP和MAC地址

2008-10-15T18:55:00.001+08:00

Private Sub Command1_Click()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer

strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP 地址:" & IP.IPAddress(I) & Chr(10) & _
"網卡類型:" & IP.Description(I) & Chr(10) & _
"網卡地址:" & IP.Macaddress(I)
Next
End If
Next
End Sub

VB 获取MAC地址代码

2008-10-15T18:54:00.000+08:00

Private Sub Command1_Click()
Dim oAdapters As Object, oAdapter As Object
On Error Resume Next
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter In oAdapters
MsgBox "MAC ADDRESS: " & Replace(oAdapter.macaddress, ":", " ")
Exit For
Next
End Sub

在托盘中写入应用程序图标

2008-10-15T18:53:00.002+08:00

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False
　　2、菜单：工程--添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas

　　3、在Module1中写下如下代码：

　　Option Explicit
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
　 cbSize As Long
　 hWnd As Long
　 uID As Long
　 uFlags As Long
　 uCallbackMessage As Long
　 hIcon As Long
　 szTip As String * MAX_TOOLTIP
End Type
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

　　4、在Form1的Load事件中写下如下代码：

　　Private Sub Form_Load()
　 '以下把程序放入System Tray====================================System Tray Begin
　 With nfIconData
　　 .hWnd = Me.hWnd
　　 .uID = Me.Icon
　　 .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
　　 .uCallbackMessage = WM_MOUSEMOVE
　　 .hIcon = Me.Icon.Handle
　　 '定义鼠标移动到托盘上时显示的Tip
　　 .szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
　　 .cbSize = Len(nfIconData)
　 End With
　 Call Shell_NotifyIcon(NIM_ADD, nfIconData)
　 '=============================================================System Tray End
　 Me.Hide
End Sub

　　5、在Form1的QueryUnload事件中写入如下代码：

　　Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

　　6、在Form1的MouseMove事件中写下如下代码：

　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　 Dim lMsg As Single
　 lMsg = X / Screen.TwipsPerPixelX
　 Select Case lMsg
　　 Case WM_LBUTTONUP
　　　 'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
　　　 '单击左键，显示窗体
　　　 ShowWindow Me.hWnd, SW_RESTORE
　　　 '下面两句的目的是把窗口显示在窗口最顶层
　　　 'Me.Show
　　　 'Me.SetFocus
　　　 '' Case WM_RBUTTONUP
　　　 '' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
　　　 '' Case WM_MOUSEMOVE
　　　 '' Case WM_LBUTTONDOWN
　　　 '' Case WM_LBUTTONDBLCLK
　　　 '' Case WM_RBUTTONDOWN
　　　 '' Case WM_RBUTTONDBLCLK
　　　 '' Case Else
　 End Select
End Sub

VB 进度条使用举例

2008-10-15T18:53:00.001+08:00

Dim i As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 50

End Sub

Private Sub Timer1_Timer()
Dim k As Integer
If k = 0 Then
k = 1
i = i + 1
Else
k = 0
i = i + 1
End If
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = i
ProgressBar1.Scrolling = ccScrollingSmooth
If ProgressBar1.Value = ProgressBar1.Max Then
ProgressBar1.Visible = False
Command1.Visible = False
i = 0

Timer1.Enabled = False ' 感谢问题提供
Form2.Show
Me.Hide
End If
End Sub

文本框中就显示123456789

2008-10-15T18:52:00.002+08:00

我想在vb中用一个commandbutton，一个textbox做，只要一按按钮。在文本框中就显示123456789。我想用一个循环来完成，或者用2个循环完成。不想用字符串来完成

1:

Private Sub commandbutton_Click()
Dim TempLng As Long
Dim I As Long

For I=1 To 9
TempLng=TempLng * 10 + I
Next I

textbox.Text=TempLng

End Sub

2:

private sub command1_click()
dim n as long
text1.text=""
for n= 1 to 9
text1.text=text1.text & n
next n
end sub

3:

Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To 9
Text1.Text = Text1.Text & CStr(i)
Text1.Refresh
Next i
End Sub

如何创建sub main呢的答案

2008-10-15T18:52:00.001+08:00

新建一个模块，把以下代码写进去就可以了

Public Sub Main()
'初始化数据
'启动form
Denglu.Show '这个是你原来的启动窗体的名称，记得要改
End Sub

一个可以显示gif动画的控件

2008-10-15T18:40:00.001+08:00

在《电脑报配套光盘第四辑》中有一个非常好用的在程序中播放GIF动画的控件——Animation GIF OCX。它支持当今最流行的开发平台，包括VB、VC＋＋、VFP、VBA、Access、Delphi等。它是OLE容器中一个显示GIF文件的OLE控件模块，支持所有Gif98a标准，包括透明、动画、循环、延时、逻辑屏幕、回复到上一幅图片或背景等。它的重要属性、方法及事件见附表。
　　下面举例介绍一下如何在VB5.0企业版中使用该控件：
　　1将《电脑报配套光盘第四辑》上\develop\vb\anigif\anigif.zip文件解压缩到你的硬盘上，并将其中的anigif.ocx拷贝到c:\windows\system(假设windows95位于C盘windows目录下)。
　　2进入VB5.0系统。
　　3选新建—标准EXE。
　　4选菜单中的工程—部件—控件，将“Animation GIF OLE Control”一项选中，单击“确定”(或单击“浏览”，找到Anigif.ocx文件，单击“打开”，再单击“确定”)。此时，在“工具箱”中增加了一个外形像一张电影胶片写着GIF字样的控件。用它就可以在程序中控制GIF动画的播放。
　　5在“GIF”控件上单击，在窗体上用鼠标拉出一个框(即对象Anigif1)，设置其属性如下：
　　Anigif1.GIF　／为你要播放的动画文件(＊gif)
　　Anigif1.Speed=1　／1代表正常播放，2代表慢速播放
　　Anigif1.Transparent=True　／背景透明
　　6再在窗体中分别建立两个按钮Command1和Command2，分别设置其属性：
　　Command1.Caption=“开始播放”
　　Command2.Caption=“停止播放”
　　7在Command1的Click事件中输入：Anigif.Play
　　在Command2的Click事件中输入：Anigif.Stop
　　8运行这个窗体，就可实现GIF动画播放。
　　你还可以用Anigif.ocx的其它方法设置符合你个人需要的播放过程和方法。
下载：http://www.pay500.com/s2/22507.htm

怎样去掉webbrowser里的上下和左右滚动条的答案

2008-10-15T18:39:00.002+08:00

加下这个代码即可了

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
End Sub

关于用VB写注册机一些常用的函数

2008-10-15T18:29:00.001+08:00

1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符

[范例]：
(1)P=Chr(65)
‘ 输出字符A,因为A的ASCII码等于65
(2)P=Asc(“A”)
‘ 输出65

2. Len(X)：计算字符串X的长度
[格式]：
P=Len(X)
[说明]：
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。

[范例]：
(1) 令X=”” (空字符串)
Len(X) 输出结果为0
(2) 令X=”abcd”
Len(X) 输出结果为4
(3) 令X=”VB教程”
Len(X) 输出结果为4

3. Mid(X)函数：读取字符串X中间的字符
[格式]：
P=Mid(X,n)
由X的第n个字符读起，读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起，读取后面的m个字符。

[范例]：
(1) X=”abcdefg”
P=Mid(X,5)
结果为：P=”efg”
(2) X=”abcdefg”
P=Mid(X,2,4)
结果为P=”bcde”

4. Replace: 将字符串中的某些特定字符串替换为其他字符串
[格式]：
P=Replace(X,S,R)
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。

[范例]：
X=”VB is very good”
P=Replace(X,good,nice)
输出结果为：P=”VB is very nice”

5. StrReverse：反转字符串
[格式]：
P=StrReverse(X)
[说明]：
返回X参数反转后的字符串
[范例]：
（1）X=”abc”
P=StrReverse(X)
输出结果：P=”cba”

6. Ucase(X)，Lcase(X)：转换英文字母的大小写
[格式]：
P=Lcase(X)
‘ 将X字符串中的大写字母转换成小写
P=Ucase(X)
‘ 将X字符串中的小写字母转换成大写
[说明]：除了英文字母外，其他字符或中文字都不会受到影响。

[范例]：
（1）令 X=”VB and VC”
则Lcase(X)的结果为”vb and vc”，Ucase(X)的结果为”VB AND VC”

7. InStr函数：寻找字符串
[格式]：
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]：
（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。
（2） InStr(X,Y)相当于InStr(1,X,Y)。
（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。
（4）若Y为空字符串，则返回0。

----------------------------------------------------------------------------------------------

mid(字符串，从第几个开始，长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"

instr(从第几个开始,字符串1,字符串2) ByVal 从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到

InStrRev(字符串1,字符串2,从第几个开始) ByVal 从规定的位置开始，从后住前查找，
返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从
"小欣无敌"的第1个字开始往前查找，所以找不到。0 表示未找到

left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符
例如 Left("小欣无敌,3) 则返回 "小欣无"

right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符
例如 Right("小欣无敌",3) 则返回 "欣无敌"

ucase(字符串) ByVal 返回[字符串]的大写形式，只对英文字符有效
例如 ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI"

lcase(字符串) ByVal 返回[字符串]的小写形式，只对英文字符有效
例如 lcase("xiaoXINwuDi") 则返回 "xiaoxinwudi"

asc(字符) Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,
和Chr()函数是一个可逆的过程例如 asc("小") 则返回 -12127 ; asc("小欣无敌") 也返回 -12127

chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程例如 chr(-12127)
则返回 "小" ；chr(asc("小")) 则返回"小"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本)

trim(字符串) Byval 返回去掉了前、后之后的[字符串]
例如 trim(" 小欣无敌 ") 则返回 "小欣无敌" ，中间的空格不受任何影响

string(个数,字符) Byval 返回[个数]个[字符]
例如 string(3,"小") 则返回 "小小小" , 而 string(3,"小欣无敌") 也返回 "小"，只有首字符才有效

space(个数) Byval 返回[个数]个空格
例如 space(5) 则返回 " "

strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角
,vbNarrow 全角转成半角例如 strconv("xiao",vbwide) 则返回 "ＸＩＡＯ",而strconv("ＸＩＡＯ",vbnarrow)
则返回 "XIAO" '备注 vbwide = 4 ,vbnarrow = 8

len(字符串) Byval 返回[字符串]的长度
例如 len("小欣无敌") 则返回 4

------------------------------------------------------------------------------------------

•Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数

•Trim Trim(string) 将字符串前后的空格去掉

•Ltrim Ltrim(string) 将字符串前面的空格去掉

•Rtrim Rtrim(string) 将字符串后面的空格去掉

•Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，
如果省略第三个参数表示从start字符开始到字符串结尾的字符串

•Left Left(string,length) 从string字符串的左边取得length长度的字符串

•Right Right(string,length) 从string字符串的右边取得length长度的字符串

•LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母

•UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母

•StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果
如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1

•InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置

•Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，
其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。

count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。

•Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，
其中指定数目的某子字符串(find)被替换为另一个子字符
(replacewith)
--------------------------------------------------------------------------------

[示例：]

1、Len函数示例：
下面的示例利用 Len 函数返回字符串中的字符数目：
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8。
2、Trim、Ltrim、Rtrim函数示例：
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、开始和尾部空格：
Dim MyVar
MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") 'MyVar 包含"vbscript"。
3、Mid函数示例：
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：
Dim MyVar
MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "Script"。
4、Left函数示例：
下面的示例利用Left 函数返回MyString 的左边三个字母：
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS
5、Right函数示例：
下面的示例利用 Right 函数从字符串右边返回指定数目的字符：
Dim AnyString, MyStr
AnyString = "Hello World" '定义字符串。
MyStr = Right(AnyString, 1) '返回 "d"。
MyStr = Right(AnyString, 6) ' 返回 " World"。
MyStr = Right(AnyString, 20) ' 返回 "Hello World"。
6、LCase函数示例：
下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。
7、 UCase函数示例：
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase("Hello World") ' 返回"HELLO WORLD"。
8、StrComp函数示例：
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；
如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" '定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。
9、InStr示例：
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"???
SearchChar = "P"??
MyPos = Instr(SearchString, SearchChar)???'返回 9.
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
10、Split函数示例：
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x",-1,1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Response.Write(MyArray(0))
11、Replace函数示例：
Replace("ABCD", "BC", "12") '得到A12D

------------------------------------------------------------------------------------------------

　1．Chr[$]（数值）函数
　　返回标准扩展码的对应字符。
　　说明：
　　（1）数值范围在0到255之间。
　　（2）Chr（）返回的是数值类型，而Chr$（）则返回字符类型。
　　（3）ANSI是ASCII码的扩充，其前128个字符都与ASCII码相同。
　　例如，我们常用以下的语句加入回车换行符。Chr（13）+Chr（10）
　　2．Asc（"字符"）函数
　　此函数用来返回字符的ANSI码值。
　　说明：若输入为一字符串，则只返回第一个字符的ASCII码值。
　　例如，
　　　　x=Asc（"a"），则， x=97
　　　　x=Asc（"ab"），则，x=97
　　3．String[$]（个数，字符）
　　用于重复某一个字符。
　　说明：
　　（1）“个数”用来指定重复的次数。
　　（2）若“字符”为一字符串，则只重复复制第一个字符。
　　4．Len（字符串）函数
　　用于返回字符串的长度。
　　5．Left[$]（字符串，字符个数）
　　用于返回“字符串”最左边的长度为“字符个数”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Left（"Visual Basic",3）
　　　　则
　　　　substr="Vis"
　　6．Right[$]（字符串，字符个数）
　　用于返回“字符串”最右边的长度为“字符个数”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Right（"Visual Basic",3）
　　　　则
　　　　substr="sic"
　　7．Mid[$]（字符串，起始位置，[字符个数]）
　　用于返回一个子字符串。
　　说明：
　　（1）子字符串从“起始位置”开始，以“字符个数”为长度。
　　（2）若省略“字符个数”，则从起始位置到字符串的结尾。
　　8．Lcase（字符串）和Ucase（字符串）函数
　　Lcase：不论字符串中的字符为大写还是小写，一律输出为小写。
　　Ucase：不论字符串中的字符为大写还是小写，一律输出为小写。
　　9．Ltrim（字符串）、Rtrim（字符串）、Trim（字符串）函数
　　Ltrim（字符串）：用于去掉字符串中左边的空格。
　　Rtrim（字符串）：用于去掉字符串中右边的空格。
　　Trim（字符串）：用于去掉字符串中左右两边的空格。
　　10．Str（数值）函数和 Val（字符串）函数
　　Str（数值）：用于将数字转化为字符串。
　　Val（字符串）：用于将字符串转化为数值。
　　例如，
　　　　Dim a As String
　　　　Dim b As Long
　　　　a=Str（345.45）
　　　　b=Val（"234.45"）
　　　　则
　　　　a="345.45"
　　　　b=234.45

如何让两个窗体的文本框同步显示同样的内容

2008-10-15T18:28:00.000+08:00

新建工程---这样就会自动产生一个窗体form1

然后在增加一个窗体FOrm2

在两个窗体各添加一个文本框的控件textbox

这样就可以了。

下面添加代码：

FORM1的代码：

Private Sub Form_Load()
Form2.Show
End Sub

'以下这些删除也可以
Private Sub Text1_Change()
Form2.Text1.Text = Text1.Text

End Sub

FORM2的代码：

Private Sub Text1_Change()
Form1.Text1.Text = Text1.Text

End Sub

这样就可以生成exe了。这样做出来的效果是。在form2窗体上的文本框输入文字。同时会在form1显示。

教你怎么制作一个摇奖系统

2008-10-15T18:27:00.001+08:00

新建工程--标准exe---在窗体上添加一个textbox文本框控件一个Commandbutton按钮控件

把文本框text1的属性里的text里的内容删除掉

在Command1按钮双击进入代码编辑器

添加如下代码

Private Sub Command1_Click()
Dim intranum As Integer, i As Integer, j As Integer, A As Integer '声明变量
Randomize
For i = 1 To 49 '这个是控制这个摇奖的最高数是1-49，下同
intranum = Int(49 * Rnd) + 1 '这个随机数
A = 0
For j = 1 To 49
A = A + 1
Next j
Text1.Text = CStr(intranum)
Text1.Refresh
Next i
Text1.Text = CStr(intranum)
End Sub

自动加载动态连接库的方法（注册控件）

2008-10-15T18:26:00.001+08:00

自动加载动态连接库的方法
Private Sub Form_Load()
Dim ref As Reference
On Error GoTo Err_Form_Load

Set ref = References.AddFromFile("c:\windows\system\anigif.ocx")

Exit_Form_Load:
Exit Sub
Err_Form_Load:

' MsgBox Err.Description
Resume Exit_Form_Load

End Sub

使用AniGif.ocx插件实现VB对Gif动态文件的支持

2008-10-15T18:22:00.001+08:00

最近做随机过程的实验程序，重新用VB做，好久不用确实有点生疏了，用picturebox控件画图试了几次都出不来，查了资料才发现这次安装VB6后，使用的picturebox控件的AutoRedraw属性默认是false的，也就是不会自动刷新，所以在form_load()中调用picturebox画图的函数都不会有任何效果显示，将其改为true，便可以正常显示了，很快就找到了使用vb的感觉，不过基本上需要使用的函数都要现查，很多都不记得了，连个乘方函数的表示方法都需要查才发现只是^这么简单。
关于不常用控件的调用
有很多常见的控件不在默认的控件工具栏中，如SSTab等，需要在工具栏点击右键“控件”菜单，将所需控件勾选，之后应用，所需控件就会出现在工具栏下方，可直接调用。
gif动画文件的调用
VB6不能直接支持动态Gif文件的显示，使用image控件导入了一个动态的gif文件，结果运行只能显示第一幅，没有动态效果，在网上查到一篇介绍通过浏览器控件来解决此问题的文章，方法是从“部件”中勾选Microsoft Internet Controls插件，在工具面板中就会出现WebBrowser控件。在form上添加一个WebBrowser控件，通过WebBrowser1.Navigate (App.Path & "\new1.gif")来调入一个gif图片，运行发现此方法可行，但问题是运行效果是form上嵌入了一个浏览器页面，有矩形白色背景，还有右侧和下侧的滚动条，虽然查资料发现使用WebBrowser1.Navigate "about:"这样的语句可以去掉滚动条，却无法改变border和白色背景的效果，看上去还是嵌了个小浏览器页面在上面，而不是一个动态的图片直接在form上。
而后得知有插件可以解决这个问题，得到的是VBAniGif.ocx插件可以解决这个问题，通过几个地址下载来的却都是需要注册的版本，装上之后可以看到demo的效果，虽然效果很理想，但每次运行和退出时都会提示使用了未注册版本的插件，非常讨厌，终于皇天不负苦心人，在www.VBgood.com的论坛里发现有好心人共享了无需注册版的这个插件，试了一下效果还真不错，就是这个anigif.ocx插件可是解决了大问题，不然我就要考虑找个静态图片让它左右来回移动了。

运行时错误‘429’ACTIVEX部件不能创建对象

2008-10-14T23:50:00.000+08:00

在运行里输入regsvr32 scrrun.dll就OK 了
scrrun.dll用于阅读和编写脚本和文本文件。

中天时间精灵校时器改进版

2008-10-14T13:31:00.002+08:00

软件简介：
中天时间精灵校时器是用国家授时中心传送的原子钟标准北京时间。
通过它校时，你的电脑时间和标准的北京时间同步，非常的方便和准确。
改进版本不用再安装运行控件，只要绿化一下就好，不在系统留下文件了。

下载：http://www.qupan.com/79932/169983.html

悠迅全能录音机V1.4中天绿化版

2008-10-14T13:28:00.000+08:00

下载：http://bbs.366tian.net/thread-921970-1-1.html

中天网页闹钟1.1

2008-10-14T13:26:00.002+08:00

软件简介：
在中天网页闹钟1.0的基础上，改变了软件样式，缩小体积。
增加三个色彩闹钟选择,方便使用。

下载：http://bbs.366tian.net/thread-881045-1-1.html

迅雷看看V1.2.3.56中天绿化版

2008-10-14T13:24:00.001+08:00

软件简介:

1、支持本地影音播放
2、支持影视搜索点播
3、支持电视直播
4、支持音乐搜索点播
5、支持MTV在线观看
6、支持电台

下载：迅雷看看V1.2.3.56中天绿化版

2008-10-14T12:42:00.001+08:00

中天少儿加减法练习动画

2008-10-14T00:43:00.009+08:00

软件简介：
中天少儿加减法练习动画是学龄前儿童和低年级儿童练习加减法的一个小程序，方便有趣，可以自己更改难度，软件出题，如果输入答案是对或错都能提示。

下载：http://bbs.366tian.net/viewthread.php?tid=894985&highlight=%C9%D9%B6%F9%BC%D3%BC%F5%B7%A8%C1%B7%CF%B0%B6%AF%BB%AD

中天Flash成语故事欣赏（在线版）

2008-10-14T00:40:00.003+08:00

内容简介:　
成语是一种形式简洁,意义精辟的定型的词组或短语,历来为人们所重视。
中国文字中的成语，都有历中事迹片断的缩影；是中华民族文化宝库的结晶，语有历史事迹片民的缩影；是中华民族文化宝库的结晶；是前人生活经验的积累；闪耀着我们祖先丰富智慧的光芒。由于大部分的成语都有典故，所以在应用时，应该先充分了解成语的原意。一个学生，在他的文章或言谈中，如果能正确地应用一些成语，往往能达到言简赅的效果；反之，则可能会闹笑话。
中天Flash成语故事欣赏软件通过Flash惟妙惟肖的动画，讲述历史故事。在寓教于乐中教育孩子知识，成为孩子学习成语的好帮手。

下载： http://www.qupan.com/79932/170038.html

中天Flash古诗欣赏（在线版）

2008-10-14T00:39:00.003+08:00

软件简介;
中天Flash古诗欣赏软件根据教育部最新颁布的《全日制义务教育语文课程标准》中小学生必背古诗80首，从网上搜集整理编辑而成，背景为古代山水画为主，符合诗意，可以很好的让小学生掌握古诗的各方面知识。
背诵经典古诗文是一种寓教于乐的活动，容易激发孩子的学习兴趣。背诵诗文能使孩子们渐渐懂得“做人”道理，懂得“生存之道”的“生活”艺术。

下载：http://www.qupan.com/79932/170028.html

中天韩语学习－视频教程 FLASH版

2008-10-14T00:37:00.003+08:00

软件简介：
此教程简单易学,适合于韩国旅游者,同时也适合口语练习者.一共九个模块：
一、基本对话二、到达机场时三、交通四、住宿五、饭店六、旅游观光

七、打电话八、购物九、医院

下载:中天韩语学习－视频教程 FLASH版

中天日语学习－新版中日交流标准日本语初级多媒体版（在线版）

2008-10-14T00:34:00.002+08:00

软件简介:
《中日交流标准日本语》（新版）课程针对学习日语过程中的重点、难点、疑点问题提供详尽的指导，并对日语听力、语法、口语、练习、生词等方面进行全方位的训练，帮助学习者打下扎实的日语基本功，尽快提高日语的综合应用能力。

下载：http://www.qupan.com/79932/170070.html

中天日语学习--入门基础

2008-10-14T00:32:00.002+08:00

软件简介：
中天日语学习--入门基础包括单词、语法点、表达、练习、入门基础等所有内容。还可以进行复读、跟读、听读等。有了这款软件，学习日语更轻松。

下载：中天日语学习--入门基础

中天日语学习－五十音图

2008-10-14T00:30:00.002+08:00

软件简介：
日语五十音图就像是英语的字母表，是每个日语学习者必修的第一课，是探索日语的第一步，牢记五十音图不仅仅是学习日语的基础，更是今后口语流利而标准的基础。所以大家必须重视“五十音”，正确发好“五十音”才能说出地道的日语。本软件的主要功能就是以动画的方式来教大家学习日语五十音图的发音规则，使用简单，女声真人发音，非常悦耳动听；动画教学，趣味性强，很适合希望学习日语的朋友。

下载：http://bbs.366tian.net/viewthread.php?tid=887513&highlight=

中天英语学习－新英语900句在线视频版（在线版）

2008-10-14T00:27:00.004+08:00

软件简介：
喜欢英语系列英语教学软件是使学习者在一个英语情景中学习英语的工具。《新英语900句》每个单元有两个围绕这些句子的课文，另外有一些对话，帮助读者进一步练习与熟悉这些句子。但《新英语900句》提高了学习层次，增加了练习的活泼性和灵活性，更加重视语言材料和语境的真实性、典型性和实际应用性。

下载：http://vip.366tian.net/feiyang/soft2/中天英语学习－新英语900句在线视频版.rar

中天英语学习－新概念英语多媒体版1－4册（在线版）

2008-10-14T00:25:00.003+08:00

软件简介：
新概念英语（New Concept English）作为全世界最为经典的英语学习的宝典，以其严密的体系性、严谨的科学性、精湛的实用性、浓郁的趣味性深受英语学习者的青睐。本软件就是根据新概念英语进行开发，全部采用真人语音朗读，内容覆盖面广，全套共分为四册，科学地融合了听、说、读、写、译五方面的技能，能有效地把你从一个\"英文盲\"引导成为一个\"英文通\"。我们打个比方：《新概念》好似一座豪华的大楼，一册打下了英语口语及语法的稳固基石；二册则以其经典实用的句型及短文搭起了\"英语大厦\"的框架；三册更是从一个崭新的语法、句法和写作的高度上为大厦添砖加瓦；四册则当然是大厦精美的\"内装修\"－－让你的英语综合技能（包括阅读与词汇）方面趋于完善，使你的英语素质与实用能力达到真正完美的统一，无论是交流还是应试，你都能游刃有余。实在是英语学习的必备工具软件。 "用最短的时间学习最有效的英语口语" 。

下载：http://vip.366tian.net/feiyang/soft2/中天英语学习－新概念英语多媒体版1－4册.rar

中天英语学习－新概念英语课程（第一册-第四册）MP3版

2008-10-14T00:20:00.003+08:00

软件简介:
新概念英语（New Concept English）作为全世界最为经典的英语学习的宝典，以其严密的体系性、严谨的科学性、精湛的实用性、浓郁的趣味性深受英语学习者的青睐。本软件就是根据新概念英语进行开发，全部采用真人语音朗读，内容覆盖面广，全套共分为四册，科学地融合了听、说、读、写、译五方面的技能，能有效地把你从一个\"英文盲\"引导成为一个\"英文通\"。我们打个比方：《新概念》好似一座豪华的大楼，一册打下了英语口语及语法的稳固基石；二册则以其经典实用的句型及短文搭起了\"英语大厦\"的框架；三册更是从一个崭新的语法、句法和写作的高度上为大厦添砖加瓦；四册则当然是大厦精美的\"内装修\"－－让你的英语综合技能（包括阅读与词汇）方面趋于完善，使你的英语素质与实用能力达到真正完美的统一，无论是交流还是应试，你都能游刃有余。实在是英语学习的必备工具软件。 "用最短的时间学习最有效的英语口语" 。

下载：（右键迅雷下载）

第一册：中天英语学习新概念英语课程V1

第二册：中天英语学习新概念英语课程V2

第三册：中天英语学习新概念英语课程V3

第四册：中天英语学习新概念英语课程V4

中天英语学习－口语对话900句

2008-10-14T00:17:00.004+08:00

软件简介：
《中天英语学习－口语对话900句》是一款非常实用的英语口语学习软件。全部采用真人语音朗读，内容新颖，包括了生活中各种日常英语口语句型。是英语学习的必备工具软件。 "用最短的时间学习最有效的英语口语".

下载：中天英语学习－口语对话900句

中天少儿英语学习－填英语游戏＋英语律动歌谣

2008-10-13T01:04:00.002+08:00

软件简介：
利用歌谣和歌曲教学能收到了很好的教学效果，英语律动歌谣帮助学生轻松的掌握了新知,即激发了学习的兴趣,又为他们记忆单词找到了好的方法。
游戏窍门:刚玩的时候可能会觉得眼花,但只要快速浏览第一个字母,扫瞄相邻的字母就会很快找到，让孩子每天玩玩这个小游戏,快乐地背单词,相信孩子会喜欢。

下载：中天少儿英语学习－填英语游戏＋英语律动歌谣

中天少儿英语学习－26个字母动画

2008-10-13T01:02:00.003+08:00

软件简介：
Flash英文26位字母含有丰富的Flash动画，通过趣味十足的Flash动画让幼儿、儿童在充满乐趣的学习过程中掌握26位英文字母，同时还可以掌握一些简单的英文单词，寓教于乐！
很多朋友提出，希望做成离线学习软件，这个就是离线的，软件就比较大了。

软件下载:点击迅雷下载下载2:点击下载

中天少儿英语学习－棒棒学英语

2008-10-13T00:50:00.004+08:00

软件简介：
中天少儿英语学习－棒棒学英语选自专家推荐的Flash动画棒棒学英语，本着“兴趣优先”的原则，采用“三文治”故事教学法，即在好看爱听的动画及故事中穿插符合儿童认知特点且出现率高的英文并辅之以有趣的游戏和动听的歌曲，
使儿童在愉悦中自然地步入英语世界，并在学习英语词语和句型的同时，逐渐获得用英汉双语进行表达的习惯和能力。同时，通过这些故事和游戏，儿童还能学习到方方面面的很多知识，培养良好的社会行为习惯，并使动手操作能力得到发
展。配套vcd精选了节目中最精彩的故事和动画部分，并穿插有简单易学的英文歌曲，最适合儿童学唱。
使用注意事项：

下载：http://www.qupan.com/79932/170016.html

中天英语学习－动画学音标1.0

2008-10-13T00:47:00.004+08:00

软件简介:
中天英语学习－动画学音标主要功能是以flash动画的方式来教学发音规则、重音规则、单元音、双元音、辅音发音等五大部分内容。本软件使用简单，女声真人发音，非常悦耳动听；动画教学，趣味性强，很适合希望纠正英语发音的朋友，也很适合用来教儿童学英语。

下载：中天英语学习－动画学音标1.0

中天少儿拼音学习－快乐拼音

2008-10-13T00:30:00.004+08:00

软件简介：
中天少儿拼音学习－快乐拼音是一款免费的动画学拼音多媒体软件，针对少儿学拼音、识字和娱乐。包括快乐学拼音、儿童识字、涂色游戏、拼图游戏等四个部分，内容都很多，几乎网上常见的相关内容的Flash包括了很多，推荐大家使用。

下载：点击迅雷下载

网盘下载：

http://www.namipan.com/d/e0036b643668a81a087a5b13848f884c6adf94a009bd8f01

中天拼音学习－宝宝学拼音

2008-10-11T23:07:00.000+08:00

软件简介：
刚刚上学的孩子都要过拼音这一关，说难不难，说简单也不简单，这套软件可以帮助孩子轻松的过拼音关。

下载地址：http://bbs.366tian.net/viewthread.php?tid=892690&highlight=

飞扬工作室

中天英语学习-动画学语法

中天在线网络电视1.5

关于 .NET 程序如飞信不能使用问题

悠迅全能录音机V1.4中天绿化版

手机铃声剪辑王 V6.0 精简版

Windows优化大师 8.0.8.815 单文件版

几款VB美化代码

VB编程的8个优良习惯

在VB中的MsgBox中怎么换行

给VB程序添加背景音乐

VB获取系统目录

用VB编写一个加密软件

VB弹网页代码

VB读取注册表获得CPU信息!

VB写远程用到的IP列表显示

VB极时停代事件代码

计算程序从打开到结束的时间

VB webrowes iframe开发过程

VB拷备代码

系统类ID

【转】托盘菜单使用的一个小小技巧

【转】使窗体最大最小化关闭按钮不可用

【转】获得局域网内在线计算机的网卡MAC号及本机的IP地址

【转】探测电脑中有没有安装ＱＱ，仅当ＱＱ没有运行时

Doevents函数详解

如何实现text宽度随输入内容长度自动变

在vb中实现超连接的方法！和直接发邮件

vb获取本机当前IP和MAC地址

VB 获取MAC地址代码

在托盘中写入应用程序图标

VB 进度条使用举例

文本框中就显示123456789

如何创建sub main呢的答案

一个可以显示gif动画的控件

怎样去掉webbrowser里的上下和左右滚动条的答案

关于用VB写注册机一些常用的函数

如何让两个窗体的文本框同步显示同样的内容

教你怎么制作一个摇奖系统

自动加载动态连接库的方法（注册控件）

使用AniGif.ocx插件实现VB对Gif动态文件的支持

运行时错误‘429’ACTIVEX部件不能创建对象

中天时间精灵校时器改进版

悠迅全能录音机V1.4中天绿化版

中天网页闹钟1.1

迅雷看看V1.2.3.56中天绿化版

中天少儿加减法练习动画

中天Flash成语故事欣赏 （在线版）

中天Flash古诗欣赏（在线版）

中天韩语学习－视频教程 FLASH版

中天日语学习－新版中日交流标准日本语初级多媒体版（在线版）

中天日语学习--入门基础

中天日语学习－五十音图

中天英语学习－新英语900句在线视频版 （在线版）

中天英语学习－新概念英语多媒体版1－4册（在线版）

中天英语学习－新概念英语课程（第一册-第四册）MP3版

中天英语学习－口语对话900句

中天少儿英语学习－填英语游戏＋英语律动歌谣

中天少儿英语学习－26个字母动画

中天少儿英语学习－棒棒学英语

中天英语学习－动画学音标1.0

中天少儿拼音学习－快乐拼音

中天拼音学习－宝宝学拼音

中天Flash成语故事欣赏（在线版）

中天英语学习－新英语900句在线视频版（在线版）