自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 收藏
  • 关注

原创 delphi 动态调用DLL

**********DLL中**********   function test(const astr:PChar):Boolean;stdcall; **********应用中********** Type       TFTest= function test(const astr:PChar):Boolean;stdcall; var tft:TFTest;

2013-05-22 14:40:59 556

转载 Delphi 运行时 可拖动控件

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) btn1: TButton; Main1: TIm

2013-05-11 23:51:02 1404

原创 vba 导入 TXT 到 access

导入TXT,是需要导入规格的,而这个导入规格是怎么来的呢?其实很简单,请看以下图 然后就选择高级~!! 这个就是导入规格了! 然后就这个规格另存为 “XXX”,如“TXT_Upload” 好了,这样,我们就是可以在VB上写代码了! Sub upload DoCmd.TransferText acImportDelim

2013-04-21 16:48:11 2377

原创 VBA 自动导入文件夹中的EXCEL表

Public Sub LOAD() Dim filepath As String, files As String, filename As String filepath = CurrentProject.Path & "\文件夹\*.xls" files = Dir(filepath) 'Debug.Print filepath Do Unti

2013-03-06 16:00:33 2567

空空如也

空空如也

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

TA关注的人

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