随笔分类 - VB/VBA
依然强大!
摘要：'原来的条件格式效率太低，改为主动方式着色 Sub SetColor() On Error Resume Next Dim hang As Integer '行数 Dim lie As Integer Dim IsBuy As Boolean Dim IsSell As Boolean hang =
阅读全文
摘要：大概1千行数据不到，加载要20+秒，实在受不了。前面各种尝试，关闭自动计算，优化vlookup，都不行。最后，还是问 deepseek。结果发现，ds说的对，问题出在我的条件格式上，关掉我的条件格式，一下子就秒开了。 嗯，用户提到他们有一个Excel文件，积累了大约一千条数据，但里面有很多公式，每次
阅读全文
摘要：excel中，大量使用vlookup，打开特别慢，打算优化一下。对于每次查询，使用“表格-范围-查询词”作为key，缓存结果。在vba中，新建一个模块，复制即可。使用：把原来的VLOOKUP换成vl，其他参数都不动Public dict As Object Function vl(lookup_va
阅读全文
摘要：十几年前最开始用VB时，是从数据绑定开始的，后来，自己慢慢开始“不屑”这种简单的、傻瓜化的操作，逐步向sql语句过渡：几乎所有的数据库操作都用sql完成，还颇以此自得。再后来，转向asp.net，页面中大量的数据库访问，逼迫自己慢慢形成自己的页面交换模块，来简化代码量。 今天刚好又写了一段数据库程序，发现，用adodc控件，可以快速的实现数据和控件之间的交互而几乎没有代...
阅读全文
摘要：使用了AquaButton按钮，支持很丰富的效果，不过就是不支持png，所以找来的 png图片，阴影部分总是不能表现得很好。 尝试了一下，找到一种较好的方式： 1、在ps中设置前景色和背景色分别为灰色和淡蓝色 即：灰色E8E7EA 淡蓝色6AA6E2 2、把png图片转换为64*64 3、分别用前景和背景作为底色，保存出两张bmp图片。注意必须是bmp，jpg优化后，颜色就有问题 4、把Pictu...
阅读全文
摘要：找了一些资料，比较靠谱的说把webbrowser的silent设置为true，但试了不行。最后找到一篇文章，说这wb_downloadbegin和wb_downloadcomplete中写wb.silent=true就行了。
阅读全文
摘要：Execute 方法（Find 对象） 运行指定的查找操作。如果查找成功，则返回 True。 语法 expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format,...
阅读全文
摘要：因为太简陋了，所以问题多多，但最烦人的，就是下载到一半就莫名其妙的挺了，摸索了半天，有点心得： 1.用循环和doevents来保持进度 2.用独立的timer来判断是否超时 3.超时的时间，用状态改变时的时间
阅读全文
摘要：N年前本来会的，忘了，刚刚找回来。 其实vb只能支持到256色，真彩图标需要更麻烦的设置。256色基本也够了，但是，找到的很多图标，在vb中却异常难看，颜色和分辨率都极差，不知什么原因，安装sp6后仍然一样。 今天才找到原因：图标文件中可以包含多种格式，必须要保证一个最优先的，如果这个不对就不行。 说不清，看图，用“天堂图标工作室”打开图标，可以看到 ...
阅读全文
摘要：'大文件传输不太适合 '添加intl控件 Private Sub Command1_Click() Inet1.Protocol = icFTP Inet1.RemoteHost = "60.***.***.***" '服务器地址 Inet1.RemotePort = 21 'FTP端口 Inet1.UserName = "username" '用户名 Inet1.Password = "u...
阅读全文
摘要：&H00000000&的格式，顺序不是RGB，而是BGR。 可以用RGB(r,g,b)函数。
阅读全文
摘要：希望设计一个圆角的窗体，但老是在圆角部分遇到问题，就是屏蔽色在圆滑的部分总是无法屏蔽干净，就像这个 经过一段时间的摸索，发现了问题的关键：图像也是很精确的东西，容不得半点的模糊。在ps中，对圆角往往会有一个平滑的处理，这个平滑往往会用一些相近的颜色在弯角处，产生平滑的效果。但它也是边缘无法干净的原因。找到原因就比较好处理了，我的心得是，这2个地方一定要注意，去掉“...
阅读全文
摘要：Windows2000已经出了n年多了,就先介绍一下Windows2000特有的API吧!! AnimateWindow是一个窗口打开和关闭时产生动画效果的新函数，因为是一个新的函数, 所以在 API Viewer中是找不到的,必需自己定义: Public Declare Function SetLayeredWindowAttributes Lib "user32" (B...
阅读全文
摘要：不可否认，vb是rad的绝佳工具，但是它在应付较大规模的项目时，如果设计不当，往往会陷入极端丑陋的代码的境地。我在大概两三前改用C#，现在暂时拾起它，尽管vb在近年没有任何变化，但我看它时，却感觉不太一样了。我感觉，这得归功与C#这个纯面向对象的语言，使人潜移默化地有了面向对象的思想。 同样的功能，我感觉现在的实现比原来要好看很多，甚至有时觉得挺漂亮的。 ...
阅读全文
摘要：webbrowser： 示例： For i = 0 To WebBrowser1.Document.All.length - 1 If WebBrowser1.Document.All(i).tagName = "HTML" Then strContent = strContent & WebBrowser1.Document.All(i).innerHTML ...
阅读全文
摘要：INET控件的几点使用 Inet控件支持HTTP与FTP两种通讯协议。利用这个控件可以完成许多功能。 我们通过例子来看看。 环境VB6+WINXP 打开VB6,新建工程 添加部件Microsoft Internet Transfer Controls. 在form中添加2个按钮，2个文本框和Inet控件 代码如下: Option Explicit '...
阅读全文
摘要：MSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。 创建XMLHTTP对象的语句如下： Set objXML = createObject(M...
阅读全文
摘要：因为编码涉及的内容既多且烦，特别是vb的编码，又有诸多限制，所以在解决URL中文编码的时候走了很久的弯路。 问题： 我的VB客户端需要向web服务器发送数据，在服务器端更新到数据库。但发送的数据中，肯定出现中文。但在服务器端，用request得到的是乱码。 尝试1： 知道vb中编码都是unicode，试图修改页面中的代码页，如： ...
阅读全文
摘要：VB6的IDE不支持滚轮，找了一个官方的外接程序，要用regsvr32注册一下，略微有点麻烦，我用setupfactory做了一个简单的安装包，安装一下就可以了。然后在vb的外接程序管理器里把鼠标支持打开即可。 VB6IDE滚轮支持
阅读全文
摘要：我需要对Mapx控件支持鼠标滚轮，找了一个可以使用的代码，来自 http://blog.csdn.net/areful/archive/2007/10/19/1832010.aspx 需要注意的是，在FormLoad中增加Hook Map1.hWnd，在Form_Unload中增加UnHook Map1.hWnd 另外，在鼠标移动经过...
阅读全文
