<% Class cBuffer 
  Private objFSO, objFile, objDict 
  Private m_strPathToFile, m_TableBGColor, m_StartTime 
  Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax 
  Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces 

查看更多...

点击下载此文件


引用自http://www.china-askpro.com/vbasic11.shtml

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

查看更多...

一个很Cool的数据库控件，具有以下功能：
登录到SQL Server数据库
备份、修复以及还原数据库
上载数据库以及删除数据库
控制SQL Server服务（启动、停止、暂停等） 

查看更多...

点击下载此文件


'引用自http://www.applevb.com/sourcecode/sourcecode.htm

查看更多...

点击下载此文件



'我试了在qq2008下不能运行，代码只供参考

查看更多...

点击下载此文件


引用自老马论坛http://www.m5home.com/bbs/dispbbs.asp?boardid=19&Id=1493

3种方法都可以 
文本方式 input +seek 
随机读取 random+strconv (该模式要求文件中的每条记录的长度都是相同的，记录与记录之间不需要特殊的分隔符号。只要给出记录号，可以直接访问某一特定记录，其优点是存取速度快，更新容易。)
数据库方式

查看更多...

Option Explicit
'*****************************************************************
'*              通用模块，建立于2005年11月10日                   *
'*                                                               *
'*                                                   wstar        *

查看更多...

点击下载此文件


'引用自网上不知名

查看更多...

'*************************************************************************
'**模 块 名：ModGetPY
'**说    明：取汉字拼音首字母,改良自网上某版本
'**创 建 人：嗷嗷叫的老马
'**日    期：2008年3月17日

查看更多...

Option Explicit 

'API declartion 
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long 
Public Const CP_UTF8 = 65001 

查看更多...

'模块******************************************
Public Type cp
  wp As Single
  hp As Single
  tp As Single

查看更多...

Option Explicit   
  
Private Const AsyncMove As Boolean = False      '实时移动控制   
  
Dim mY As Long, AllHei As Long  

查看更多...

点击下载此文件


引用:http://www.m5home.com/blog/article.asp?id=112
感谢csdn

查看更多...

'以下存为clsRegistry.cls

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True

查看更多...

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" (ByVal hWnd1 As Long, _

查看更多...

点击下载此文件

引用http://www.mndsoft.com/blog/article.asp?id=29

点击下载此文件

'Module1

Option Explicit

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

查看更多...