- 博客(13)
- 资源 (4)
- 收藏
- 关注
RSS订阅转载 VB中实现延时(等待)的几种方法
在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口声明:Private Declare Sub Sleep Lib "kernel32" (ByVal dwMill
2009-08-24 20:04:00
650
转载 VB中创建可以输出函数的DLL
VB中创建可以输出函数的DLLVB中创建的DLL只是COM组件，无法作为输出函数的DLL。今天从袁波哪里搞到一种可以创建输出函数的DLL的方法。VB编译文件实际上采取了两次编译的方法，首先是调用c2.exe产生OBJ文件，然后调用Link.exe连接。如果在link的时候添加EXPORT选项，实际上是可以输出函数的。但是，在VB的工程选项中将这些屏蔽了。而且过分的是：VB在Build完成后会将OB
2009-04-01 15:24:00
281
转载 VB下插件(Add-Ins)编程
摘要 ：本文从一个具体例子出发阐述了在Visual Basic 5.0环境下进行外接程序（Add-Ins）开发的原理、关键技术和注意事项，并对其相关技术，如ActiveX、多态性与接口、事件变量等VB5新引进的编程概念也做了必要的分析和描述。 关键词：外接程序（Add-Ins），ActiveX，接口，多态，事件变量一、 概述Visual Basic下的Add-Ins，即外接程序，是扩展VB编程环境
2009-04-01 14:33:00
1620
转载 MSCOMM控件说明
VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）． 还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工 、事件驱 动的、高效实用的通信程序。但在实际通信软件设计过程中，MSComm控件并非像想像中那样完美和容易控制．特别是在中文Wln 95／98下通信时更会出现问题
2009-04-01 14:18:00
994
转载 模拟桌面刷新代码
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function FindWindowEx Lib "u
2009-04-01 13:52:00
646
转载 vb中如何在任务管理器里面隐藏应用程序进程
该模块用于在任务管理器中隐藏进程Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004Private Const STATUS_ACCESS_DENIED = &HC0000022Private Const STATUS_INVALID_HANDLE = &HC0000008Private Const ERROR_SUCCESS = 0&Pr
2009-04-01 13:50:00
915
转载 VB6中SendKeys的基本应用
SendKeys 模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行， 其使用格式为：object.SendKeys string “object”：表示WshShell对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。 1.基本键 一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshSh
2009-04-01 13:48:00
1098
转载 用vb封装asp
一般情况下我们在用ASP连接Access的数据库时通常都会进行如下的操作 “//Proconn.asp 如果配置好服务器，访问Proconn.asp，如果连接数据库成功会输出“数据库连结成功”。 但是这样的asp代码的安全级别非常低，如果此asp原代被人看到，那么再有此数据库文件的话，其他人就能轻而易举的 随便打开你的数据库进行操作。 所以我们的任务来了，如何将这些关键的内容封装起
2009-03-31 12:30:00
498
原创 读INI文件
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturned
2009-03-27 10:54:00
391
1
原创 Modem AT指令
AT---代码 AT 是命令行的字首，告诉调制解调器要输入命令或命令序列。它执行除 A/ (重复) 和 +++ (换码) 之外的所有命令。单独输入 AT，如果调制解调器准备接收命令，则调制解调器返回 OK 或 0 信息。A----应答命令。 A 命令使调制解调器无需等待响铃则可应答呼叫。 此命令在手动应答呼叫或与以始发方式与另一调制解调器建立直接连接时有用。同一命令行中 A 之后的所有命令将被忽略
2009-03-27 10:50:00
1557
转载 vb汉字首字拼音获取
Public Function py(mystr As String) As String If Asc(mystr) If Asc(Left(mystr, 1)) py = "0" Exit Function End If If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1))
2009-03-27 10:47:00
445
原创 vb连接Access数据库自定义
Public cn As New ADODB.ConnectionPublic rs As New ADODB.Recordset打开数据库连接Public Sub OpenConn() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient
2009-03-27 10:44:00
415
转载 MD5函数
MD5加密函数Option ExplicitPrivate Const OFFSET_4 = 4294967296#Private Const MAXINT_4 = 2147483647Private State(4) As LongPrivate ByteCounter As LongPrivate ByteBuffer(63) As BytePrivate Const S11 = 7
2009-03-27 10:39:00
549
有线网络修复工具
2017-12-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人