怎样取得一个字符串在另外一个字符串中出现的次数？ Public Function sCount(String1 As String, String2 As String) As Integer Dim I As Integer, iCount As Integer I = 1 Do If (I Len(String1)) Then Exit Do I = InStr(I, String1, String2, VBTextCompare) If I...

2008-02-23 06:52:01

设置各控件的属性如下： Form1：AutoRedraw：True ScaleMode：3 Picture1：AutoRedraw：True ScaleMode：3 Visible:False 2 代码编写 Modull.bas中的内容（声明BitBlt函数）： Public Const SRCCOPY=HCC0020'（DWORD）dest=source Declare Function BitBlt Lib "gdi32"...

2008-02-23 06:51:59

---- Windows 95 和NT 是 被 无 数 计 算 机 用 户 所 青 睐 的 图 形 界 面(GUI) 操 作 系 统。 我 们 知 道, 许 多Win95 或NT 下 的32 位 应 用 程 序 都 带 有 图 标（ 一 般 来 说 至 少 有 一 个）， 此 外 其 它 一 些 可 执 行 模 块 也 常 常 是 图 标 的 宝 库...

2008-02-23 06:52:00

在程序设计时，经常需要用倒计时，倒计时程序一般不能用时间函数来进行设计，常用的方法是在计时器的触发过程中设置计数 变量来进行控制，程序如下： Dim hh,mm,ss Sub Form_ Load() hh=0:mm=5:ss=0 timer1.Interval=1000 End Sub Sub Timer1_Timer() s=IIf(ss10,"0"ss,...

2008-02-23 06:51:58

Reboots a Windows 2000 PC. Many examples shell to the kernel and just kill the PC. This does it proPerly and takes into account a user privilages. 'API Calls used for RebootPC Private Const TOKEN_ADJUST_PRIVILEGES = H20 Private Const TOKEN_QUERY = H8...

2008-02-23 06:51:57

数据库中的数据要最终显示给用户，就要使用数据约束控件，比如前面所使用的文本框以及VB所提供的其他普通约束数据控件，VB中还提供了多种高级约束数据控件,其中包括：高级约束数据网格控件(DBGrid)、高级约束列表控件（DBList）和高级约束组合框控件（DBCombo）。在默认...

2008-02-23 06:51:56

使用API函数CDdoor 来控制光驱门的开和关程序十分简单，由于 CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。 CDdoor函数是安装Windows时所自带的winmm.dll文...

2008-02-23 06:51:54

感觉篇 NO.1 瞒天过海 为了让用户感觉到应用程序 执行很快，我们可以利用定时器事 件在后台“悄悄”执行一些任务。在 一些连续性的操作（比如向导）中， 用户可能会因为浏览提示信息等缘故而不会立即对应用程序作出响应。这时我们可以用一个静态变量或全局变量来跟踪运...

2008-02-23 06:51:55

本文我们将通过Visual Basic和 BetterState For Visual Basic来设计一个简单的例子。这个例子的主要目的是在BetterState环境下设计状态图。对于用户来说，就是建立设计的Visual Basic前端部分。 在这个例子中我们使用VB代码生成器，因为这种代码生成器是每个版本的Bett...

2008-02-23 06:51:53

Q :--怎样在我的程序中实现文件下载 Re: 一个例子：一个Command，两个Text 代码如下： Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long Private Sub Command1_Click() Dim sDownload As String sDownload = StrConv(Text...

2008-02-23 06:51:53