shepherd_dirk的博客

Shell WINRARPath & " a -r " & TARGET & " " & SOURCE, vbHideShell WINRARPath & " x -r " & SOURCE & " " & TARGET, vbHide

vb6实现鼠标移入和移出效果

封装shell命令，使程序执行shell命令时等待shell关闭继续执行

用VB编写的神思的身份证读取信息的桌面程序主要实现了DLL文件的调用，二进制读取txt文件并转换出其中的中文。Private Sub Command1_Click() Dim name$, sex$, nation$, birthday$, address$, IDNo$, organization$, startdate$, enddate$ Picture1.P...

新建项目选择ActiveX项目重命名初始界面 全部保存 `ctrl+shift+s`添加接口并实现编译设置打包选项打包注册

图标样式error:vbCriticalquestion:vbQuestionwarning:vbExclamationinfo:vbInformation按钮样式确定:vbOKOnly确定取消:vbOKCancel终止重试忽略:vbAbortRetryIgnore是否取消:vbYesNoCancel是否:vbYesNo重试取消:vbRetryCancel

创建ActiveX Library1. File --> New --> Other --> ActiveX --> ActiveX Library创建Automation Object1. File --> New --> Other --> ActiveX --> Automation Object2. 输入类名然后直接点ok保存3. 设置接口，可以跳过这一步保存项目添加接口1

vb6里不支持json对象，这里使用通过引用js来实现json的解析获取简单的json串里的值遍历json键值对较多的复杂json串

Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")HTTP.open "GET", url, FalseHTTP.senddata() = HTTP.responseBodySet objStream = CreateObject("ADODB.Stream&amp

可以通过修改sleep的时间和每次下载的字节数来控制下载速度，窗体只有一个label1和一个command1Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Dim mDownLoaddComPlete As BooleanPrivate Sub Command...