自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(20)
  • 资源 (2)
  • 收藏
  • 关注

原创 关于对象的持久保存

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 1439

转载 判断盘符是否U盘

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

2008-04-01 10:47:00 1201 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 1546

原创 用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 883

原创 全面控制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 555 1

原创 取得硬盘分区序列号

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

2008-02-25 15:18:00 3068

原创 日历

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

2006-05-17 08:28:00 756

原创 将程序放入托盘中

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

2006-05-17 08:18:00 928

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

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

2006-05-17 08:12:00 1095

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

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 1239

原创 取得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 614

原创 鼠标位置

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 679

原创 MSHFlexGrid 控件

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

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

原创 运用MSChart,生成统计图形

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

2005-02-02 16:21:00 1717

原创 程序窗口置前

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 971

原创 操作注册表

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

2005-01-26 15:20:00 800

原创 关于ADOX

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

2005-01-26 15:15:00 885

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

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

2005-01-26 15:14:00 1138

原创 万年历页面代码

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

2005-01-07 08:40:00 2008

原创 窗体分隔

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

2005-01-05 17:27:00 791

windows注册表结构.chm

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

2009-09-22

ADO程序员参考.chm

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

2009-09-22

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除