wzk456的专栏

代码：SavePicture Image1, "d:\myimage.bmp"其中image1 也可以为picturemschart如何打印图片：系统需要有image控件，mschartClipboard.Clear    MSChart1.EditCopy    Image1.Picture = Clipboard.GetData(vbCFBitmap)

private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位：毫秒)Public Function Sleep2(T As Long) Dim Savetime As Long Savetime = timeGetTime '记下开始时的时间 While timeG

DoEvents的应用及注意事项  转让控制权，以便让操作系统处理其它的事件。DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队

Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"Set rs = cn.OpenSc

Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb" cn.Execute "select * into table2 from table1 where false" cn.Clo

FUNCTION CheckString (s) as Stringpos = InStr(s, "'")While pos > 0s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)pos = InStr(pos + 2, s, "'")WendCheckString="'" & s & "'"END FUNCTION以后在动态生成

一、INSERT INTO SELECT语句语句形式为：insert into Table2(field1,field2,...) select value1,value2,... from Table1;要求目标表Table2必须存在，由于目标表Table2已经存在，所以我们除了插入源表Table1的字段外，还可以插入常量，示例如下：1、创建测试表create TABLE Table1(

Private Sub Command2_Click() '添加一个空表Dim Link As New ADODB.ConnectionDim Rs As New ADODB.RecordsetLink.CursorLocation = adUseClientLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sou

VB.NET SendMessage (PostMessage)消息大全及使用说明 Windows是一个消息驱动式系统，SendMessage（PostMessage）是应用程序和应用程序之间进行消息传递的主要手段之一，这里我搜集整理了SendMessage（PostMessage）函数的详细参数介绍，以备自用。 （1）函数声明: Private Declare Function Se

使用记录：1. 安装好CodeSmart2007后，它会在“我的文档”里面创建一个名叫“My CodeSMART Files”的文件夹，里面保存着错误日志，个人配置信息（Personal.mdb）和团队配置信息（Team.mdb），但是如果“我的文档”是中文名，VB在启动时CodeSmart就可能找不到前面提到的两个配置文件，于是会提醒你指定这个两个文件的路径。每次启动时都会有这个问题，看

Visual Basic 6.0 的强大生命力使人舍不得放弃。微软在Win8一开始发行的时候，宣布过不再支持VB6，这招致了大量VB6的粉丝的不满。但是到了后来，又看到有人说可以在Win8上使用VB6了，这样对我来说，这当然是好事。今天因为调试一个软件，需要用到VB6对一些算法进行验证，于是就在Win8.1 64位企业版的4月8日更新的环境上，安装了VB6。我的安装源选择的是VB6中文企业版，

Windows窗口消息大全,全不全自己看//////////////////////////////////////////////////////////////////////////#include "AFXPRIV.H"//消息值的定义来源#include "Dde.h"//DDE消息值的定义来源#include "CPL.H"//控制面板消息值的定义来源#include "W

publicenum ButtonControlMessages:uint{BM_GETCHECK =0x00F0,BM_SETCHECK =0x00F1,BM_GETSTATE =0x00F2,BM_SETSTATE =0x00F3,BM_SETSTYLE =0x00F4,BM_CLICK =0x00F5,BM_GETIMAGE =

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