wf824284257的博客

前言本文整理了 Excel 中 VBA 的常用操作代码示例。使用了 ms office 2016 。开始step.1 新建excel文件新建excel文件，命名为test.xlsx ,如下图所示。step.2 启用开发工具文件->选项->自定义功能区，将【开发工具】全打钩后，点击确定。step.3 VBA调用Excel函数使用录制宏功能，实现VBA调用Excel...

在窗体Form1上放置一个一个ListBox控件List1，然后在Form1的窗体代码里面复制以下即可Option ExplicitPublic item_height As SinglePrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As

博主之前用的时候一直没办法突出显示，今天偶尔发现RichTextbox的一个属性HideSelection，默认为True。。。。而只需要将HideSelection设置为False，Find之后就可以突出显示了，像下面这样子，Find “克鸟” 之后希望可以帮到后来的小伙伴

直接复制代码稍微修改一下就可以用了1模块代码Option ExplicitPublic Const DefaultIconIndex = 1 '图标缺省索引Public Const WM_LBUTTONDOWN = &H201 '按鼠标左键Public Const WM_RBUTTONDOWN = &H204 '按鼠标右键Public Const NIM_ADD = 0 '添加图标Public

VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes1效果图2VB代码模块代码Option ExplicitPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

VB通过windows API实现窗口透明，部分透明1 效果图展示 2 相关API函数介绍Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long创建一个由点（x1，y1）到（x2,y2）的矩形

VB SQL Server 连接时出现运行时错误’-2147467259博主最近要把数据库放到远程服务器上，然后进行数据库连接，但是写的程序怎么也连接不上数据库。。。最后发现是连接字符串中单词拼错了。。。connectionstring="driver=SQL Sever;sever=IP地址;uid=sa;pwd=数据库密码;database=数据库名"server 写成了sever。。。。哎糗

VB聊天工具：借助服务器端实现O2O通信博主最近自己做了一款聊天工具，类似qq的样子，来简单分析一下如何借助服务器帮助建立O2O的连接进行在线通信假设A要与B通信，S是服务器端那么A、B与服务器要用tcp连接，这样A、B在连接S时会告诉S自己的ip；A与B之间用udp连接，需要互相知道对方的ip和port，这个需要S告诉它们。连接流程如下：1。首先A登录，以tcp连接S，S得知A的ip，写入数据库i

VB 生成exe后，动态加载窗体的show事件会出现运行时错误5的解决方法博主最近在做一款聊天工具，需要动态加载聊天的窗口，用到这样的代码Dim newchat As New FrmChatnewchat.show这样的代码在调试过程没有问题，但是在生成exe文件后，却在show事件这里报错[运行时错误5，无效的过程调用或参数]，这里明明没有什么问题啊，博主搞了很久，也没搞明白，不过最后找到解决

VB SQLSever image数据存入和取出rs是已经打开的记录，有Picture字段，字段类型是Image，现在需要将本地图片存入数据库，或者将数据库内的该图片取出‘读取本地图片的路径path到数据库Public Sub ImageReadIntoDB(path As String)Dim istream As New ADODB.StreamWith istream .Type =

VB查找sqlsever中是否存在某张表cn是adodb.connection对象，已经打开了数据库，现在查找数据库内是否存在名字是lblu.caption的表，如果不存在，则创建 Dim rs As New ADODB.Recordset strsql = "select * from sys.tables where name = '" & lblu.Caption & "'"

#vb winsock udp循环绑定端口在使用udp协议时，需要绑定一个端口，但可能指定的端口被占用。 所以需要进行循环，从指定端口往后开始，寻找一个未被占用的端口进行bind'从5100开始绑定端口直到成功为止Dim p As Integerp = 5100On Error Resume NextDo Err.Clear p = p + 1 wsk.Bind

VB远程连接sqlsever express博主之前一直是连接本机的sqlsever，今天在做项目的时候需要远程连接sqlsever，突然就头大了，花了2个小时才搞好。博主把用到的资料在这里总结一下。如果一直是用windows验证登录数据库的话，要修改sqlsever的sa密码 http://jingyan.baidu.com/article/3aed632e7a7d8b70108091c7.ht

VB的PaintPicture与StretchBlt的异同比较不太了解这两个函数的小伙伴可以先看一下下面几篇博客：PaintPicture函数 http://blog.youkuaiyun.com/wf824284257/article/details/53221631 http://blog.youkuaiyun.com/wf824284257/article/details/53222996StretchBlt函数

VB中windows API StretchBlt，BitBlt的应用前瞻：1.BitBlt，StretchBlt用法2.StretchBlt与PaintPicture比较1.BitBlt函数函数原型：Declare Function BitBlt Lib "gdi32" _( _ByVal hDestDC As Long, _ '目标句柄ByVal x As Long, _

VB 键盘按键事件的shift参数以及vbshiftmask,vbctrlmask,vbaltmask前瞻：1.shift参数值表 以及 vb*mask 值表2.ShiftDown=(Shift And vbShiftMask)>0如何理解正文：1.shift参数值表 以及 vb*mask 值表比如这两个函数中的shift参数Private Sub Form_KeyUp(KeyCode As Int

VB总结(1)常用内部函数——计算函数，字符函数，转换函数，日期函数经过2周半左右的时间，博主终于认认真真刷完了一本600页的VB教程。。。因为VB是博主接触的第一门编程语言，之前有零散的学过一点，所以系统的学起来还是蛮快的。接下来几篇博客会总结一下这本教程中的一些难记的东西，方便以后查看，也希望可以帮到后来学习的小伙伴们话不多说，第一篇是关于VB的4类常用内部函数1.计算函数Sqr(x) 求x的

VB实现可调节难度的九宫格拼图实现本游戏需要熟练掌握paintpicture函数的应用，如果读者对该函数不熟练，需要读一下前面两篇博客哦 http://blog.youkuaiyun.com/wf824284257/article/details/53221631 http://blog.youkuaiyun.com/wf824284257/article/details/53222996九宫格拼图，这个游戏，怎么说呢

VB实现简单的扫雷小游戏扫雷这个小游戏可谓是简单又好玩，百万不腻，不知道有没有小伙伴跟博主一样脑热的曾经扫过一整个屏幕的雷。。。今天呢，博主在这里总结一下自己做扫雷小游戏的主要过程以及主要思路，当然实际的过程相比这里介绍的可能会复杂一点点，博主已经将自己的扫雷源码上传到资源页了，读者可以参考。希望可以帮到后来的小伙伴们，游戏效果如图好，下面我们从头开始依次分析一下如何实现这样的效果1.游戏功能分析扫

VB PaintPicture （第2篇）如果看本篇不太懂的话，请先看第一篇先把函数参数表放在这里对象.PaintPicture picture,x1,y1,[width1],[height1],[x2],[y2],[width2],[height2],[opcode]1.简单的图片的进入效果实现 图片从左到右进入 的效果，需要怎么做呢很简单可以想到用paintpicture 函数 比如 每隔0.1

VB PaintPicture （第1篇）1.函数参数对象.PaintPicture picture,x1,y1,[width1],[height1],[x2],[y2],[width2],[height2],[opcode]对象： 可以是 Form,picturebox或printer等picture ：源图片x1,y1 ：对象上的起点坐标 width1,height1 ：对象上的宽和高x2,y2

VB 连接 带密码的Access mdb accdb 数据库以前在学习vb连接Access的时候，没加密的还好，带密码的就是出错，头疼了好久之后就没管它。今天又看到类似的问题，决定深究到底直到找到解决的办法。然后就解决了这个问题。具体方法如下：1. 连接 *.mdb数据库路径 “G:\DataBase\1.mdb” ，密码为 “wf”connectionstring="Provider=Micros

简单的 VB MDI 文本编辑器总结最近兴致来潮，用VB做了一款MDI文本编辑器，在博主的资源页可以下载，在这里把思路和遇到的问题总结一下。界面如下 1.设计思路一个MDI窗体，一个子窗体，一个查找替换窗体，共三个窗体在MDI窗体设置菜单，子窗体不设置菜单在MDI窗体放置commondialog控件来实现 打开文件 保存文件 以及 设置字体的功能，该部件需要手动添加Microsoft Common

VB6代码界面滚轮支持VB6IDEMouseWheelAddin.dll在博主的资源页可以下载，使用方法是：1.将该dll放入VB98安装目录2.以管理员身份运行cmd3.cmd输入regsvr32 [绝对路径]\VB6IDEMouseWheelAddin.dll，并回车4. 进入VB6，点击 外接程序，外接程序管理器，选择MouseWheel Fix ，复选框选中 在启动中加载 和 加载\卸载