文章分类 -  VB

VB编程
VB之Command对象调用存储过程
摘要：private conn as ADODB.connection,rs as ADODB.recordsetcommand1_click()set conn = New ADDB.connection()conn.connectionstring="Provider=SQLOLEDB.1;user id=sa;password=;Initial catalog=xx;data source=yy"conn.opensetcmd = new adodb.commandset cmd.activeConnection = conncmd.commandText ="{ 阅读全文
posted @ 2013-02-12 20:48 翱翔软件 阅读(308) 评论(0) 推荐(0)
VB之调用存储过程
摘要：private conn as ADODB.connection,rs as ADODB.recordsetcommand1_click()set conn = New ADDB.connection()conn.connectionstring="Provider=SQLOLEDB.1;user id=sa;password=;Initial catalog=xx;data source=yy"conn.openset rs = new adodb.recordsetset rs.activeConnection = connrs.open "{call 存储过 阅读全文
posted @ 2013-02-12 20:43 翱翔软件 阅读(202) 评论(0) 推荐(0)
VB之BMP,JPG转ICO代码
摘要：在窗体上放置picture和ImageList控件picture1装入需要的图片，如jpg,bmp等。下面是讲picture1中的图片存储为ICO格式的代码：ImageList1.Listmages.add ,,Picture1.pictureDim Pic as stdPicture 或 objectset pic=Imagelist1.ListImages(1).ExtractIconImage1.Picture=picsavePicture Image1.picture,"d:\a.ico" 阅读全文
posted @ 2013-02-12 20:35 翱翔软件 阅读(491) 评论(0) 推荐(0)
VB与ActiveX控件
摘要：创建ActiveX对象set obj = createObject("工程名.类名")set obj2 = getObject("c:\t.doc","word.Document")VB创建ActiveX控件1.新建ActiveX控件2.修改工程名【工程】-【工程属性】，把工程名改为tnt3.把UserControl1改为www4.编译工程，生成ocx控件，比如位置在c:\windows\t.ocx注册表生成项HKEY_CURRENT_ROOT|tnt.www 默认 c:\windows\t.ocx|CLSID 默认 {....... 阅读全文
posted @ 2013-02-10 12:00 翱翔软件 阅读(310) 评论(0) 推荐(0)
VB+GDI把图像放到文字里
该文被密码保护。
posted @ 2012-02-06 17:31 翱翔软件 阅读(0) 评论(0) 推荐(0)
VB把excel数据导入ACCESS
摘要：VB把excel数据导入ACCESS 阅读全文
posted @ 2011-02-21 18:32 翱翔软件 阅读(1695) 评论(0) 推荐(0)
VB创建开始菜单快捷方式
摘要：VB创建开始菜单快捷方式 阅读全文
posted @ 2011-02-21 18:30 翱翔软件 阅读(421) 评论(0) 推荐(0)
VB实现桌面放大镜
摘要：VB实现桌面放大镜 阅读全文
posted @ 2011-02-21 18:30 翱翔软件 阅读(2031) 评论(0) 推荐(0)
VB枚举系统所有进程
摘要：VB枚举系统所有进程 阅读全文
posted @ 2011-02-21 18:29 翱翔软件 阅读(1054) 评论(0) 推荐(0)
给菜单加图标
摘要：Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hmenu As Long, ByVal nPos As Long) As LongPrivate Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hmenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, By 阅读全文
posted @ 2011-02-21 18:28 翱翔软件 阅读(195) 评论(0) 推荐(0)
交换鼠标
摘要：Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As LongSwapMouseButton (False)SwapMouseButton (true) 阅读全文
posted @ 2011-02-21 18:28 翱翔软件 阅读(133) 评论(0) 推荐(0)
VB实现抓图-示例代码
摘要：VB实现抓图-示例代码 阅读全文
posted @ 2011-02-21 18:25 翱翔软件 阅读(330) 评论(0) 推荐(0)
VB 播放内存里的声音
摘要：VB 播放内存里的声音 阅读全文
posted @ 2011-02-12 10:40 翱翔软件 阅读(1257) 评论(0) 推荐(0)
VB中MSHFLEXGRID常用的属性,方法事件
摘要：VB中MSHFLEXGRID常用的属性,方法事件 阅读全文
posted @ 2011-02-12 10:31 翱翔软件 阅读(20990) 评论(0) 推荐(0)
利用VB函数Dir()实现递归搜索目录
摘要：利用VB函数Dir()实现递归搜索目录 阅读全文
posted @ 2011-02-12 10:28 翱翔软件 阅读(520) 评论(0) 推荐(0)
VB高级编程——VB的多线程
摘要：VB高级编程——VB的多线程 阅读全文
posted @ 2011-02-12 10:09 翱翔软件 阅读(1011) 评论(0) 推荐(1)
VB 获取当前焦点所在的控件句柄
摘要：VB获取当前焦点所在的控件句柄。 阅读全文
posted @ 2011-02-12 10:01 翱翔软件 阅读(4813) 评论(0) 推荐(0)
AnimateWindow API 的应用
摘要：AnimateWindow API 的应用示例。 阅读全文
posted @ 2011-02-12 09:58 翱翔软件 阅读(190) 评论(0) 推荐(0)

欢迎访问翱翔软件