- 博客(8)
- 资源 (4)
- 收藏
- 关注
原创 用vb关闭与打开显示器
在窗口中放置两个按扭名为command1和command2,将下面的代码放到程序中Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Type OSVERSIONINFOdwOSVersi
2008-08-19 09:25:00 899
原创 用XMLDOM构造XML
Set xmlDoc = CreateObject("Microsoft.XMLDOM") Set Element = xmlDoc.createElement("人事信息") 创建元素节点 Element.setAttribute "制作人", "石兴勤" 创建或改变某个新属性 Element.appendChild (xmlDoc.creat
2009-11-11 16:41:00 349
原创 VB取得线程句柄
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As LongPrivate Const THREAD_ALL_ACCESS = &H1F03FF OpenThre
2009-11-11 16:29:00 551
原创 VB 取地址函数大全
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As LongPublic Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long取对象地址: O
2009-11-11 16:23:00 2087
原创 adodb.Stream读写文件
adodb.Stream读文本文件Private Sub Command1_Click() Dim myData() As Byte myFile = "c:/VRLServer.txt" Dim adoSrm As Object Set adoSrm = CreateObject("adodb.Stream") adoSrm.Mode = 3 a
2008-08-19 11:18:00 2072
原创 简繁字体互转
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByV
2008-08-19 10:13:00 474
原创 vb枚举服务程序
Const ERROR_MORE_DATA = 234Const SERVICE_ACTIVE = &H1Const SERVICE_INACTIVE = &H2Const SC_MANAGER_ENUMERATE_SERVICE = &H4Const SERVICE_WIN32_OWN_PROCESS As Long = &H10Const SERVICE_WIN32_SHARE_PROC
2008-08-19 09:52:00 427
原创 使用DAO创建和打开数据库文件
首先在工程中引用microsoft DAO 3.6 Object Library 创建数据库文件Set MYdatabase = Workspaces(0).CreateDatabase(文件名, dbLangGeneral, dbversion70) 建库Set MYTable = MYdatabase.CreateTableDef(表名) 建表Set MYFie
2008-08-08 15:29:00 833
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人