vbcode : Private arrBase64() As String arrBase64 Split(StrConv(cstBase64, vbUnicode), vbNullChar)vb.net code: Private arrBase64() As Char arrBase64 cstBase64.ToCharArray()
VB6的快捷键组合按键 窗体设计 代码设计 运行中断时 F1 帮助 F2 对象浏览器 ShiftF2 - 转到变量/函数定义的地方 F3 - 查找下一个 ShiftF3 - 查找上一个 F4 属性窗口 - CtrlF4 关闭当前窗口 F5 运行 ShiftF5 - - 重新运行 CtrlF5 全编译运行 …
今天帮同事做另一家公司的Web系统数据对接,我方发送请求,对方返回一些数据,用的是客户端用的是VB6,代码记录如下: Dim postData As String Dim url As Stringurl "http://111.11.11.11/services/getQuickInfoSer…
VB6代码界面滚轮支持 VB6IDEMouseWheelAddin.dll在博主的资源页可以下载,使用方法是: 1.将该dll放入VB安装目录 2.以管理员身份运行cmd 3.cmd输入regsvr32 [绝对路径]\VB6IDEMouseWheelAddin.dll,并回车 4. 进入VB6,点击 外接…
装作自己厉害到能写博客了… 真的只是个水贴…做的比我好的不是大有人在了 而是不计其数了 最简单的 四舍五入到个位: Iris Int(Lily 0.5) 推广到 四舍五入到10^P位: Iris Int(Lily * 10 ^ (-P) 0.5) * 10 ^ P …但是为什么不用Round(expression [,numdecimalplaces]) 呢 再…
有朋友曾猜测易语言是在VB6基础上二次开发或二次封装的产品。 我在这里提几个思路可用于协助否定该猜测。 VB6编译的程序在Windows 95系统内运行需要VB6运行库(MSVBVM60.dll直到Win98才被操作系统内置),而易语言编译的程序在Windows 95系统内运行并不需要该运行库…
VB6 VB.NET ----------------------------------------------------- DoEvents System.Windows.Forms.Application.DoEvents() Command1.BackColor vbRed Command1.BackColor System.Drawing.Color.Red Command1.BackColor S…
需要添加Microsoft XML,version2.0的引用或更高版本 一 创建XML Dim xmlDocum As MSXML2.DOMDocument Dim xmlRoot As MSXML2.IXMLDOMElement Dim xmlNode As MSXML2.IXMLDOMNode Dim xmlElement As MSXML2.IXMLDOMElement Dim…
VB6 常用的时间函数以及计算方法 Now 获取系统当前时间(包括日期) Time 获取系统当前时间用于计时,Time 函数不是很精确,可以用API函数 GetTickCount() 截取日期的一部分:year(T) 年份month(T) 月份day(T) 日DatePart…
今天帮同事做一个数据对接,从返回的数据中提取想要的部分。返回的是一个WebService结果,由外圈的XML标记和中间的有效内容组成,现在要把有效内容取出来,VB6.0实现。 下面是返回的内容: <?xml version1.0 encoding…
VB6 在Win10中 DPI字体125%的时候字体显示模糊的解决方案 右键VB6的主程序 选择右键菜单中的属性 选择上方兼容性选项卡 点击更改高DPI设置 勾选替代高DPI缩放行为, 选项内容"应用程序" 即可 点确定 再使用, 怎么样, 世界变得如此清晰.
windows 7 下 vb6 MSCOMCTL.ocx 对象库注册失败解决办法 1 重装vb6 2 安装vb6sp6补丁。 3.安装VB60SP6-KB2708437-x86-CHS补丁。4 管理员身份运行命令行提示符 cd C:\Windows\System32REGSVR32 MSCOMCTL.OCX。 regtlib msdatsrc.tlb这么折腾一下就好了,也不…
目前网上的那些QQ机器人都需要下载什么什么软件,我想自己弄个QQ机器人,所有有了想法就去实现。 实现方法: 首先要先说明一下:两种语言要怎么沟通呢? 我一开始也寻思着,后来发现txt文档可以,不过…
开发环境:VB6 程式版本更新, 读取INI文件做对比, 确认版本是否最新. 可用VB6的工具下的API检视员来自动生成API调用代码. INI文件内容: [Version] TEST2017-11-20 00:00:00 调用API. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias …
日期:2018年8月4日 作者:Commas 注释:这是本人写的第一篇文章,此处留个纪念。写此文章,一是方便自己,二是希望可以帮助有需要的人;本文若有哪些地方写的有所纰漏,还望各位看客指出&a…
vb6连sqlite: vb6.0操作SQLite数据库 http://lanhy2000.blog.163.com/blog/static/4367860820081119727474/ 在vb6中使用sqlite http://hi.baidu.com/jt09/blog/item/35f557ae27245cc77dd92aae.html VBSQLite 例子(原创)http://www.lichsky.com/…
一个VB6 IDE插件,改写自CodeHelp,修正了几个Bug 需要的可以联系我: vbcoder126.com / tanaya163.com 插件应用:
1.图片(Bitmap)改变为32位使用FreeImage_ConvertColorDepth函数。图片半透明绘制需要图片(Bitmap)是32位的。 2.图片(Bitmap)的半透明绘制使用函数:FreeImage_PaintTransparent。 3.图片&…
我查的资料是这样的,但是我没有试过第一种方法 可能是因为我自定义了安装目录吧 我直接在C盘里面搜索VBE6EXT.OLB 然后右键它查找这个东西的所在位置我的是在 C:\Program Files (x86)\Microsoft Office\root\vfs\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA6…
封装shell命令,使程序执行shell命令时等待shell关闭继续执行 Option Explicit Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Decl…
之前写过一篇日志,关于VB6程序在Windows7下运行的问题(http://www.dingcrown.com/soft/blog/Log/?/ID/28.html) 。那么,如果要在Windows7下进行VB6开发,那该怎么办呢? 首先,Windows7已经不象Vista那样,可…
Visual Basic.NET是Microsoft Visual Studio.Net套件中主要的组成部分之一。.Net版本的Visual Basic增加了更多特性,而且烟花为完全面向对象的编程语言。本文主要介绍VB.Net的新特性,并比较VB6.0和VB.Net之间的区别。 1、什么是VB.Net? Mic…
vb6里不支持json对象,这里使用通过引用js来实现json的解析 获取简单的json串里的值 Dim ScriptObj As Object Dim JsonStr As String JsonStr "{""code"":""0"",""msg"":""SUCCESS&…
这几天在网上看到几篇关于VB位运算符的帖子,有篇文章叫《VB移位运算函数》的,代码不仅繁琐、效率低,而且存在漏洞,在网上被四处转载,有些误人子弟。为此,写了几个关于VB位运算的函数,以供大家学…
时间戳常量 Private Const TimeZone_China As Long &H8 中国(北京)时区[东八区] Private Const TimeStamp_Base As Date #1/1/1970# 时间戳起始时间:1970年1月1日 0时0分0秒 Private Const TimeStamp_Max As Date #1/19/…
最近做一个项目是vb方面的,vb6.0写的程序,除了分析底层,也写了程序,觉得vb确实不靠谱。vb写小程序还是可能。计算量一大,就不行了。 vb解析型语言效率低,用了很多msvbvm函数,不停地穿越到vbvm虚…
钟爱绿色小巧的软件。怀旧一下,整合了几个资源,做了一个VB6SP6极度精简绿色版。压缩包大小5M。网上的极度精简绿色版不是SP6的,特意在其基础上更新了SP6。不是单文件版,所谓单文件版不过是执行了注册表注册,把文件解压…
VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)UDP协议用Bind TCP协议用Listen 用bind方法可以有两个参数,一个是绑定本地ip,另一个是绑定本地端口,而winsock用udp协议则是必须绑定ip和端口 用tcp只绑定端…
今天写一篇博文告别使用了15年的VB6,从此终结程序生涯。记得读大学的时候第一学习编程,用VB6嵌入MediaPlayer控件写了一个简易视频播放器,看着视频的画面激动人心,从此就爱上了编程,从此也和VB6接下了不解之缘…