摘要：
这是一篇老文了，整理下发出来，希望能对大家有些帮助一般我们在程序中操作Excel时，逐单元格填充时，速度非常之慢。其实Excel的Range可以直接绑定数组，速度极快。在下面的VB6示例中，填充一个1000*10的区块，逐单元格方式要20~25秒，而数组方式瞬间内即可完成。Private Sub Command2_Click() Dim a(1000, 10) As Integer Dim i As Integer Dim j As Integer Dim z As Integer Dim oXLSAPP As New Excel.Application D... 阅读全文
摘要：
通知：以前推荐的那个vb和c#,java,c++等语言互转的共享软件的免费版最近有更新，能转200行以内的代码段和2000行以内的工程哦http://www.tangiblesoftwaresolutions.com/index.htm接录部分说明：What'sNewJanuary2014C#toJavaConverterandVBtoJavaConverternowoptionallyconverttoJava8lambdas.C++toJavaConverternowconvertsC++11lambdastoJava8lambdas.JavatoC#Converter,Javat 阅读全文
摘要：
'从VB将数据导出到EXCEL,网上可能有很多这样的代码,但是前提都要安装EXCEL,今天我分享给大家的就是没有安装EXCEL的一样也可以导出.'Rem 作者:谢炎锦 创建时间:2002-12-20 Mail:XieYanJin@163.Com'Rem 内容如下:'Rem 引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)'Rem 支持 Rds 与 Ado 的记录导出'Rem 得到所有数据类型,有些数据类型EXCEL不支持,已经替换掉Public Function FieldType(intTy 阅读全文
摘要：
''=============================================''名称: FindPath''作用: 查找指定文件夹下面的所有文件和其子目录下的文件''参数：strPath 要查找的目录，'' strFiles 用于存查找结果的缓冲区，String 类型的动态数组，调用时事先初始化， 如Redim strFiles(0)'' FileCount 用于返回文件个数''============================================ 阅读全文
摘要：
Option ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ByVal hmod As Long, ByVal dwThreadId As Long) As LongDeclare Function UnhookWindowsHookEx Lib "user32" _(ByVal hHook As Long) As LongDecl 阅读全文
摘要：
在网上看到一段程序,没有使用vba编程将sql数据倒入excel表格,速度极快,贴出于大家共赏.其主要思想是：将EXCEL作为一个数据库使用，它的名字就是数据库的名字，工作表就是一张数据库中的表。建立一个工程,引用dao,添加command1,粘贴一下代码'声明API函数Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long' 阅读全文
摘要：
请看下例：>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption="打开">>步骤2----编写如下代码:Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVa 阅读全文
摘要：
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As LongPrivate Declare Function GetCurrentProcessId Lib "kernel32" () As Long'请你试试 Ctrl+Alt+Del 是不是你的程序隐藏了Private Sub Command1_Click()i = RegisterServiceProces 阅读全文
摘要：
'--------------------------------------------------------------------------------'把下面放到模块中Option ExplicitPublic Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPublic Declare Func 阅读全文
摘要：
'引用控件 Microsoft SysInfo Control 6.0Dim OS As StringWith SysInfo1 Select Case .OSPlatform Case 0: OS = "Win32" Case 1: Select Case .OSVersion Case 4: OS = "Win 95" Case 4.1: OS = "Win 98" Case 4.9: OS = "Wim Me" End S... 阅读全文
摘要：
通用对话框专辑（全）使用API调用Winodws各种通用对话框(CommonDiaglog)的方法（一）1.文件属性对话框Type SHELLEXECUTEINFOcbSize As LongfMask As Longhwnd As LonglpVerb As StringlpFile As StringlpParameters As StringlpDirectory As StringnShow As LonghInstApp As LonglpIDList As Long '可选参数lpClass As String '可选参数hkeyClass As Long ' 阅读全文
摘要：
条形码编程实例一、条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。Option ExplicitDim sData As StringPrivate Sub Form_Load() With MSComm1 .CommPort = 3 '设为COM3，试运行的系统而定，你可提供一个Combox让用户选择。 .PortOpen = True '打开通讯端口 End WithEnd Sub Private Sub. 阅读全文
摘要：
Option ExplicitPrivate Const DC_MAXEXTENT = 5Private Const DC_MINEXTENT = 4Private Const DC_PAPERNAMES = 16Private Const DC_PAPERS = 2Private Const DC_PAPERSIZE = 3Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As St 阅读全文
摘要：
**********************winsock网络编程**********************二、在服务器端Server工程中也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，设置其Index值为0，并在工程中添加模块。 内容如下：Private Type ActiveUser ClientIP As String ’记录客户的IP地址 ClientPort As Integer ’记录当前会话的端口 ClientID As Long ’记录客户的ID号码 ClientConnected As Boolean ’客户连接状态，True表示已连接，. 阅读全文
摘要：
'vb中从域名得到IP及从IP得到域名 Private Const WS_VERSION_REQD = &H101Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&Private Const MIN_SOCKETS_REQD = 1Private Const SOCKET_ERROR = -1Private Const WSADescripti 阅读全文
摘要：
Option ExplicitPrivate 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 LongPrivate Declare Functio 阅读全文
摘要：
VB6.0中快速实现大面积不规则区域的填充--------------------------------------------------------------------------------一、引言区域填充是指先将区域内的一个像素，一般称为种子点赋予给定的颜色和辉亮，然后将该颜色扩展到整个区域内的过程。二、已有的填充算法及缺点1．扫描线法扫描线法可以实现已知多边形域边界的填充，多边形域可以是凹的、凸的、还可以是带孔的。该填充方法是按扫描线的顺序，计算扫描线与待填充区域的相交区间，再用要求的颜色显示这些区间的像素，即完成填充工作。这里区间的端点通过计算扫描线与多边形边界线的交点获得。 阅读全文
摘要：
Private Sub Command3_Click()Dim conn As New ADODB.Connectionconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"conn.Execute "create table a (b longbinary)"End SubPrivate Sub Command4_Click() Set b = New ADODB.Recordset Set c = New ADODB.S 阅读全文
摘要：
Excel是一个非常优秀的报表制作软件，用VBA可以控制其生成优秀的报表，本文通过添加查询语句的方法，即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往每个CELL里写数据的方法提高许多倍。将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select*fromtable")则实现将其导出到EXCEL中Public Function ExporToExcel(strOpen As String)'*********************************************************& 阅读全文