帮一客户修改VB6程序，需要对一个http url进行编码操作，也就是url encode。经过一番研究，决定用插件实现。1. 安装插件ChilkatChilkat Full-Version Software Components Downloads (chilkatsoft.com)选择 Chilkat ActiveX Componentswin32和x64的版本，实测我的Win10 x64系统用win32版本是有效的。2. 添加引用工程 > 引用，勾选 Chi.
原创
2022-03-29 15:32:48
969阅读
控件源代碼進行聲明：
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As IntegerPrivate Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Intege
原创
2008-04-16 16:20:00
1105阅读
1评论
Dim tDim start As BooleanPrivate Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.Enabled = True Com
原创
2023-05-09 22:09:10
229阅读
最近开始vb 所以记录下vb6.0工具的快捷键F1：显示MSDN帮助。当然你要安装MSDN，否则得不到真正的帮助了F2：显示对象浏览器。这里你可以看到对象的各种属性、方法与事件F3：查找一下个F4：显示当前选中控件的属性窗体F5：运行程序（VB.NET则是F8了）F7：由窗体设计切换到对应的代码窗体 ...
转载
2021-08-21 21:28:00
175阅读
2评论
功能：读取CSV文件的内容并导入到数据库中环境：Access2003 语言：VBA（对于使用VB6.0同样适用）数据库：D:\db1.mdb数据表：test
userId
数值型
userName
文本型CSV文件：D:\test.csv （使用Excel打开）
编号
姓名
123
王五
转载
精选
2009-12-13 20:26:59
10000+阅读
点赞
Function GetFile(FileName As String) As StringDim i As Integer, s As String, BB() As ByteIf Open FileName For
转载
2023-05-15 00:31:13
768阅读
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Lo
原创
2023-05-15 00:32:17
317阅读
类型 运算符 说明 示例 结果 优先级别 算术运算符 ^ 求乘幂 3^2 9 由高到低(关系运算符具有相同的优先级别)，可以通过小括号()改变运算的优先顺序。 *
转载
2021-08-23 10:52:47
986阅读
一"定义相关量一个结果集,用来保存结果,更新结果第一个字符串 ,用来保存sql语句,查询位置一个字符串,用来保存查询函数的查询状态Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As String第二:验证数据的有效性.1:是否为空使用了函数Sub TestTxt(txt as striing) as booleanIf trim(txt)="" thenTesttxt=falseElseTesttxt=trueEnd ifEnd function2:学号等字段是否为数字,利用函数If Not I
转载
2010-07-31 20:18:00
162阅读
2评论
Visual Basic 6.0中文版是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，它源自于BASIC编程语言，拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。Visual Basic 6.0简称vb6.0，是微软在1998年推出的一款可视化的、面向对象的(oop)、快速的wind
转载
2023-11-13 11:32:52
452阅读
Windows操作平台设有一个屏幕的保护措施，即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了，没有新鲜感了，是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏，同时节约能源。作为屏幕保护程序，应该具有如下特性：
1)屏幕保护程序运行时，鼠标光标被自动隐藏，在
原创
2021-08-26 10:34:05
308阅读
本周有个任务，实现一个数据上传接口，要求是VB6.0实现。
原创
2023-07-01 04:45:14
712阅读
Private Sub Command1_Click()Me.RefreshDim x As Integer For x = 2 To 100 If x Mod 2 = 0 Then If prime(x) = 1 Then Print x & " 这是偶数" End If
原创
2023-05-15 00:29:07
101阅读
本文的方法均已亲自验证
EXCEL 与 SQL数据库
SQL2005 导出成 Excel
方法一 导出SQL查询到Excel （Excel不存在）
前提：使用SQL Server2005 外围应用配置器——“功能的外围应用配置器”——开启xp_cmdshell功能EXEC master..xp_cmdshell 'bcp "SELECT Id,Campaign_
原创
2010-05-14 22:18:59
1131阅读
me[( )] [As type]部分 描述 ByVal 可选的。表示该参数是按值传递的。 ByRef 可...
转载
2013-07-15 22:07:00
240阅读
2评论
VB6.0 的编辑器不支持鼠标的滚轮实在是令人讨厌。不过微软还是提供了解决方案。对VB6.0和VBA都支持！ ://office.microsoft./en-au/assistance/HA101175901033.aspx
原创
2022-01-06 15:31:11
206阅读
近期接到客户咨询，说是VB6.0写软件界面上显示越南语乱码，需要看看怎样解决。我在自己电脑上也试了下，确实显示越南语结果是
