![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
visual basic
wzk456
擅长嵌入式软硬件,MCU,VB,C#,C++
展开
-
vb6 如何保存图片,mschart如何打印图片
代码:SavePicture Image1, "d:\myimage.bmp"其中image1 也可以为picturemschart如何打印图片:系统需要有image控件,mschartClipboard.Clear MSChart1.EditCopy Image1.Picture = Clipboard.GetData(vbCFBitmap)原创 2015-08-14 09:42:22 · 1752 阅读 · 0 评论 -
vb延时
private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位:毫秒)Public Function Sleep2(T As Long) Dim Savetime As Long Savetime = timeGetTime '记下开始时的时间 While timeG原创 2016-01-10 22:45:37 · 820 阅读 · 0 评论 -
在VB语言中,DOEVENTS的具体的用法和含义
DoEvents的应用及注意事项 转让控制权,以便让操作系统处理其它的事件。DoEvents 函数会返回一个 Integer,以代表 Visual Basic 独立版本中打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序中,DoEvents 返回 0。DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件,并且在 SendKeys 队原创 2016-01-10 22:38:17 · 6586 阅读 · 1 评论 -
判断ACCESS中是否存在某个表
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原创 2015-12-21 15:38:14 · 6739 阅读 · 0 评论 -
使用select into复制表
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原创 2015-12-21 14:14:08 · 606 阅读 · 0 评论 -
处理Select语句中的单引号
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以后在动态生成原创 2015-12-21 13:36:30 · 3171 阅读 · 0 评论 -
INSERT INTO SELECT和SELECT INTO两种表复制语句
一、INSERT INTO SELECT语句语句形式为:insert into Table2(field1,field2,...) select value1,value2,... from Table1;要求目标表Table2必须存在,由于目标表Table2已经存在,所以我们除了插入源表Table1的字段外,还可以插入常量,示例如下:1、创建测试表create TABLE Table1(原创 2015-12-21 12:50:23 · 684 阅读 · 0 评论 -
visual basic access 新增空表 字段
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原创 2015-12-21 10:55:32 · 445 阅读 · 0 评论 -
SendMessage消息大全
VB.NET SendMessage (PostMessage)消息大全及使用说明 Windows是一个消息驱动式系统,SendMessage(PostMessage)是应用程序和应用程序之间进行消息传递的主要手段之一,这里我搜集整理了SendMessage(PostMessage)函数的详细参数介绍,以备自用。 (1)函数声明: Private Declare Function Se原创 2016-01-05 11:01:09 · 3891 阅读 · 0 评论 -
VB6 codesmart 出现问题解决
使用记录:1. 安装好CodeSmart2007后,它会在“我的文档”里面创建一个名叫“My CodeSMART Files”的文件夹,里面保存着错误日志,个人配置信息(Personal.mdb)和团队配置信息(Team.mdb),但是如果“我的文档”是中文名,VB在启动时CodeSmart就可能找不到前面提到的两个配置文件,于是会提醒你指定这个两个文件的路径。每次启动时都会有这个问题,看原创 2016-01-16 23:13:01 · 2003 阅读 · 0 评论 -
在Win8.1 X64下安装VB6及后续补丁的正确方法
Visual Basic 6.0 的强大生命力使人舍不得放弃。微软在Win8一开始发行的时候,宣布过不再支持VB6,这招致了大量VB6的粉丝的不满。但是到了后来,又看到有人说可以在Win8上使用VB6了,这样对我来说,这当然是好事。今天因为调试一个软件,需要用到VB6对一些算法进行验证,于是就在Win8.1 64位企业版的4月8日更新的环境上,安装了VB6。我的安装源选择的是VB6中文企业版,原创 2016-01-15 22:28:53 · 5587 阅读 · 1 评论 -
Windows窗口消息大全
Windows窗口消息大全,全不全自己看//////////////////////////////////////////////////////////////////////////#include "AFXPRIV.H"//消息值的定义来源#include "Dde.h"//DDE消息值的定义来源#include "CPL.H"//控制面板消息值的定义来源#include "W原创 2015-12-29 14:05:50 · 1199 阅读 · 0 评论 -
VB SENDMESSAGE BM_CLICK
publicenum ButtonControlMessages:uint{BM_GETCHECK =0x00F0,BM_SETCHECK =0x00F1,BM_GETSTATE =0x00F2,BM_SETSTATE =0x00F3,BM_SETSTYLE =0x00F4,BM_CLICK =0x00F5,BM_GETIMAGE =原创 2015-12-29 12:56:53 · 3322 阅读 · 0 评论 -
VB中对EXCEL的各种操作
全面控制 Excel首先创建 Excel 对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口:ExcelID.Visible := True;2) 更改 Excel 标题栏:ExcelID.Caption := '应用程序调用 Microsof原创 2017-02-08 15:20:15 · 28659 阅读 · 2 评论