xayzmb-优快云博客

原创关于对象的持久保存

testDLL 中的代码================================================Option Explicit Private strT As String Private myT As Variant Private myP As StdPicture Private P As StdPicturePublic Property

2008-04-10 16:28:00 1552

转载判断盘符是否U盘

首先声明以下 API : Public Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long 然后使用以下叙述调用： ret =

2008-04-01 10:47:00 1358 1

原创人民币大小写转换 & 四舍五入函数

人民币大小写转换代码Public Function DaXie(txtJE As String) As String On Error GoTo err1 Dim i As Long 循环变量 Dim K As Long 记录整数位循环位置 Dim NC As String 输入金额 Dim chrN

2008-03-25 17:58:00 1946

原创用winsock传送二进制文件

‘发送代码Public Function outFiles(filePath As String) Dim outFile() As Byte Dim outPath As String Dim outFileLen As Double Dim outFileStar As Double Dim lngN As Double Dim

2008-03-25 13:41:00 1032

原创全面控制Excel

全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := 应用程序调用 Microsof

2008-03-25 13:37:00 648 1

原创取得硬盘分区序列号

模块代码 API声明××××××××××××××××××××××××××××××××××××××××××××××Public Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal lpVolu

2008-02-25 15:18:00 3258

原创日历

private sub myRQ response.write "" response.write "" response.write " " response.write " " response.write " " response.write "雅虎主页" response.write ""%> --------------------------------

2006-05-17 08:28:00 823

原创将程序放入托盘中

以下是一个完整的托盘程序代码****************************************************************************************************************************************************************************************

2006-05-17 08:18:00 1030

转载将图片保存到数据库中

将图片保存到数据库中 Const TEMPIMAGEFILE = "TempImage" Dim cnnImage As New ADODB.Connection 数据库对象 Dim rsImage As New ADODB.Recordset 记录集对象 Dim strSql As

2006-05-17 08:12:00 1217

原创在不同分辨率下调整程序窗口

Option ExplicitPrivate FormOldWidth As Long 保存窗体的原始宽度Private FormOldHeight As Long 保存窗体的原始高度在调用ResizeForm前先调用本函数Public Sub ResizeInit(FormName As Form) Dim Obj As Control FormOldWidth = FormNa

2005-11-06 08:31:00 1390

原创取得windows目录

若是程序中必须用到 Windows 目录，要找到正确的路径，做法如下：在声明区中加入以下声明：Const MAX_PATH = 260Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As L

2005-09-09 14:48:00 711

原创鼠标位置

Public Declare Function WindowFromPoint Lib "user32" (ByVal X As Long, ByVal Y As Long) As LongPublic Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPublic Type POINTAPI X

2005-07-28 13:59:00 752

原创 MSHFlexGrid 控件

1) MSHFLEXGRID的重要属性.MSHFLEXGRID的属性非常多,其实绝大部分的属性和网格的显示的外观有关.在MSDN里,这些属性足以将人搞得眼花缭乱的了(我相信你没有耐性一个一个地翻查).下面列出常用的属性,方法事件及其简要说明.以便查阅.属性类型说明AllowBigSelectorBoolean返回/设置一个值,定义当在行或列的头部单击时,是否该行或列将整个被选中AllowUseR

2005-03-02 16:31:00 4400 2

在用VB5进行数据库编程时，经常要生成统计图形。生成的方法有很多种，最简单的是利用VB5提供的MSChart控件。具体操作方法如下：　　1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项，选中并应用，此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1中画一矩形，生成MSChart1,即出现缺省状态的直方图。设其ColumnCou

2005-02-02 16:21:00 1892

原创程序窗口置前

SetWindowPos 就是完成设置窗口位置和状态（pos=position）的功能。源代码如下： Option Explicit Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal

2005-01-27 13:44:00 1163

原创操作注册表

简介　　注册表最开始是出现在Windows 3.x，是用来为OLE保存数据的。那时Windows和其应用程序的设置值大多都保存在各不相同的.INI文件中。例如我们最为熟悉的System.ini和Win.ini就是这样的文件。当软件越安越多，这种文件也越来越多，而且遍布硬盘的各个角落。既不便于管理，也浪费了很多磁盘空间（因为这些文件大多都很小）。　　当Windows 95推出的时候，注册表应

2005-01-26 15:20:00 902

原创关于ADOX

关于ADOX-------------------------------------------------------------------------------------------------------1、ADOX 概述Microsoft® ActiveX® Data Objects Extensions for Data Definition Lang

2005-01-26 15:15:00 1006

原创在VB中动态添加可响应消息的控件

在VB中动态添加可响应消息的控件在VB编程中，经常要根据不同的情况在运行时向窗口中添加或者删除控件，而各个控件还要响应各种事件。在一般的情况下是首先在设计时将控件加入到窗口中，在它们的各个事件中写入代码，然后将它们的Visible属性设置为False。在运行时再使控件显示出来，但是这样既不方便同时也因为在设计时在窗口中加入太多的控件而使得程序的运行速度变慢。下面我向大家介绍

2005-01-26 15:14:00 1285

原创万年历页面代码

/***************************************************************************** 日期资料*****************************************************************************/v

2005-01-07 08:40:00 2238

原创窗体分隔

以下为一个类代码,使用时在窗体相应位置中调用即可Option Explicit Private myForm As Form 应用窗体 Private picP As Object 做为分隔条的控件 Private objBox1 As Object 分隔条左边控件 Private objBox2 As Object 分隔条右边控件

2005-01-05 17:27:00 862

windows注册表结构.chm

windows注册表结构详细说明 windows注册表结构详细说明

2009-09-22

ADO程序员参考.chm

ADO程序员参考 ADO 支持用于建立基于客户端/服务器和 Web 的应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO 同时具有远程数据服务 (RDS) 功能，通过 RDS 可以在一次往返过程中实现将数据从服务器移动到客户端应用程序或 Web 页、在客户端对数据进行处理然后将更新结果返回服务器的操作。