自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 资源 (20)
  • 收藏
  • 关注

原创 VBA常用语句116句,让你操作无限

(1) Option Explicit '强制对模块内所有变量进行声明(2) Option Base 1 '指定数组的第一个下标为1(3) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息(4) On Error GoTo 100 '当错误发生时跳转到过程中的某个位置(5) On Error GoTo 0 '恢复正常的错误提示(6) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示(7) Applica

2020-09-21 14:14:26 3358

原创 VB6 DeskTool 窗体代码

'有两张图片背景色不同,一为蓝色(TransColor=QbColor(9)),一为紫色(TransColor=QbColor(13))'如果Me.Picture使用了 .gif 的话(背景透明图片),则Transcolor = Rgb(66,66,66) 随你设。'************************* DeskTool 窗体代码。'要换图片的话,调整窗体大小刚好容下图片。

2024-01-12 20:07:18 524 1

原创 VB中用于访问注册表的方法,很适用

例如,可以向应用程序的主窗体中的 Form_Unload 事件添加代码以便在停机时保存设置值,或者向“选项”对话框的 Form_Unload 事件添加代码以便更新的首选项。下列代码保存 Backup 和 LastEntry 表项的新值,这些表项包含在名为“RegCust”的应用程序的注册位置的启动部分。如果在注册位置的 Software/Microsoft 部分没有应用程序“RegCust”的注册项、或者没有这些指定的部分或注册表项,该代码将创建它。表达式,如果注册表项设置中没有设置值,则返回缺省值。

2024-01-12 19:56:57 975

原创 实现根据tag自动打包并上传至release

实现根据tag自动打包并上传至release

2023-01-28 14:54:49 481 1

原创 VB6中如何导出EXCEL、FOXPRO格式的表

'注释:请先引用ADODB类库。Dim Export_Str, mdbTable As StringDim rsExport As New ADODB.RecordsetDim conn As New ADODB.ConnectionPrivate Sub Close_cmd_Click()Unload MeEnd SubPrivate Sub EXport_cmd_Click()Dim myPath, myStr As String, myPos As Integer注释:*******

2022-02-07 15:41:08 1419

转载 vb6中判断一个变量值是否为空

vb6中存在几个虚幻的值:Null、Missing、Empty、Nothing、vbNullString。除了最后一个之外,每一个值都不能直接用“a=值”来判断。下面分别解释一下这几个值的含义。1、Null。Null指一个不合法的数据,判断一个变量是否为Null使用isNull函数。这种数据通常出现在三种情况下:(1)最简单的,函数直接返回Null给调用方。譬如Function DivideEx(ByVal A as Double, ByVal B as Double) as DoubleIf

2020-09-17 14:08:31 4674 1

原创 VB如何更新

更新内容格式:最新版本=版 5.30本结下载地址=地 http://ys-f.ys168.com/614864239/UIVsg9u551H674556PG3/%E8%87%AA%E5%8A%A8%E6%9B%B4%E6%96%B05.3.exe址结下载方式=方 打开网页或下载文件。式结更新说明:1.土豆2.好的3.BL2CK4.測試更新。说结...

2020-05-02 14:12:52 600

渣渣影视APP对接后台源码

mt搜索192.168.2.56这是动态对接地址, 这个文件你放哪里都可以,能直接下载使用, 这个地址就是你的文件地址, 文件内内容为url=http://你的对接域名, 本页面的key对接密匙后台复制替换,搞定, 很好的itvbox后台和app 对接简单 功能强大 对接tvbox源, 带多仓 自动换源 php7.0

2023-11-09

新版高清IPTV管理系统

新版高清IPTV管理系统,部分源码 "fenlei": "电视剧$/vodtype/2-#电影$/vodtype/1-#综艺$/vodtype/3-#动漫$/vodtype/4-", "houzhui": ".html", "shifouercijiequ": "0", "jiequqian": "空", "jiequhou": "空", "jiequshuzuqian": "class=\"stui-vodlist__box", "jiequshuzuhou": "</li>", "tupianqian": "data-original=\"", "tupianhou": "\"", "biaotiqian": "title=\"", "biaotihou": "\"", "lianjieqian": "href=\"", "lianjiehou": "\"", "sousuoqian": "/vodsearch/", "sousuohou": "----------1---.html", "sousuohouzhui": "/voddetail/", "ssmoshi": "1",

2023-08-23

mysql面试题大全.docx

1. MySQL 索引使用有哪些注意事项呢? 可以从三个维度回答这个问题:索引哪些情况会失效,索引不适合哪些场景,索引规则 索引哪些情况会失效 • 查询条件包含or,可能导致索引失效 • 如何字段类型是字符串,where时一定用引号括起来,否则索引失效 • like通配符可能导致索引失效。 • 联合索引,查询时的条件列不是联合索引中的第一个列,索引失效。 • 在索引列上使用mysql的内置函数,索引失效。 • 对索引列运算(如,+、-、*、/),索引失效。 • 索引字段上使用(!= 或者 < >,not in)时,可能会导致索引失效。 • 索引字段上使用is null, is not null,可能导致索引失效。 • 左连接查询或者右连接查询查询关联的字段编码格式不一样,可能导致索引失效。 • mysql估计使用全表扫描要比使用索引快,则不使用索引。

2023-05-28

程序员简历模板.docx

# 高级程序员简历 ## 个人信息 - 姓名:张三 - 电话:+86 1234567890 - 邮箱:zhangsan@example.com - Github:https://github.com/zhangsan - 个人博客:https://zhangsan.blog ## 教育背景 - 2010-2014:北京大学,计算机科学与技术专业,本科 - 2014-2016:清华大学,计算机科学与技术专业,硕士 ## 工作经验 ### 阿里巴巴(2016-至今) **高级软件工程师** - 负责某项目的后端开发,使用 Java 和 Spring Boot 进行开发 - 优化数据库查询,提高查询速度 - 参与团队内部的代码审查,提高代码质量 ### 腾讯(2014-2016) **软件工程师** - 参与某项目的前端开发,使用 React 和 Redux 进行开发 - 与后端团队协作,完成接口对接 - 编写项目文档,协助新员工快速上手 ## 技能 - 熟练掌握 Java、Python、JavaScript 等编程语言 - 熟悉 Spring Boot、Djang

2023-05-28

2015-2023在线教育投融数据.rar

该数据集为一个csv文件:具体列是 时间 公司名称 公司名称链接 行业 轮次 金额 投资方 最新估值(估算) 三个关键词字段 数据完整,可直接使用

2023-05-28

出行产品未来14个月销量预测数据集.rar

创建项目后: Python用户,输入ls ../input/ctrip14/ 查看数据路径 R用户,输入list.files("../input/ctrip14/") 查看数据路径 使用相关包读取数据。 详细方法按照说明书操作查看

2023-05-28

293最新6.2源码后台加教程带app

仅供研究学习,是目前最流畅的app,接口很好用,玩差不多了, 免得你花钱买,自己下载

2023-05-14

观影猫双端影视源码新版

观影猫双端影视源码新版搭建方便

2023-04-26

仿麻花原生app前后端.zip

用到的开发工具android studio 一、后台 1. 原苹果cms后台文件不用动 2. 上传app压缩包到根目录,解压 内置教程

2023-01-28

短视主题三套正版2.0开源无加密

模板安装: 1. 解压压缩包后得到”template”与”static”两个文件夹,上传至网站根目录。 2. 登录网站后台-首页-快捷菜单-粘贴上短视控制器路径-保存(可看图一) 3. 短视PC设置,/admin.php/admin/dscms/configweixin

2023-01-28

VB6无网络验证码.rar

VB6无网络验证码.rar

2020-09-17

VB《通用进销存管理系统》.rar

VB《通用进销存管理系统》.rar

2020-09-17

UPX Unpacker脱壳软件.zip

UPX Unpacker脱壳软件.zip

2020-09-17

vb.net考试系统.rar

vb.net考试系统.rar

2020-09-17

文件遍历Everything-1.4.1.988.x86-Setup.exe

文件遍历Everything-1.4.1.988.x86-Setup.exe

2020-09-17

cports端口监测-v2.61.zip

1.可以显示当前所有TCP/UDP的端口使用情况。 2.可以根据端口结束程序。 3.可以关闭正在使用指定的端口的连接。 4.可以标记正在被不明程序使用的端口。 5.可以显示连接的状态,例如“正在监听”,“等待关闭”等。 6.可以使用过滤器进行列表过滤,只显示指定的信息。 7.可以很简单地拖动鼠标到指定程序,查看该程序正在使用的端口。 8.可以记录日志文件,和把列表导出为网页文件。 9、开发软件好帮手

2020-09-17

ChipGenius芯片精灵V4.19.0319.rar

检测芯片型号,主控型号,用于U盘扩展买到扩展盘修复回归原来的实际大小, 设备描述: [G:]USB 大容量存储设备(General UDisk)  设备类型: 大容量存储设备  协议版本: USB 2.00  当前速度: 高速(HighSpeed)  电力消耗: 100mA USB设备ID: VID = 048D PID = 1234 设备序列号: _ 设备供应商: General  设备名称: UDisk 设备修订版: 0100 产品制造商: General  产品型号: UDisk 产品修订版: 5.00  主控厂商: ChipsBank(芯邦)  主控型号: CBM2199A

2020-09-17

cbm-APToolV7200(2019-12-10).rar

芯邦量产工具分两种,UMPTool,APTool。UMPTool是常规量产工具,支持高格、低格;APTool仅支持高格.U盘修复扩容,支持CBM209E,芯邦CBM209x系列主控和219x系列主控芯片具体支持2093A1/2093P/2095/2193A1/2193P主控。设置默认密码为空。支持闪盘设置类型:普通盘 加密盘 启动盘 自动播放盘

2020-09-17

VB 语音报时.rar

Dim h As Integer, m As Integer, n As Integer bArr = LoadResData(118, "CUSTOM") '播放"叮咚" sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC bArr = LoadResData(116, "CUSTOM") '播放"现在时间是" sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC

2020-05-06

GIF录屏录像.zip

mnuFindTarget.Caption=录制目标窗口(&A)... mnuPrimaryMonitor.Caption=主显示器区(&P) mnuSecondaryMonitor.Caption=辅助监视区(&S) mnuRecordScreen.Caption=全屏幕(&F)... mnuISOMPEG1standard.Caption=ISO MPEG-1标准(AVI) mnuISOMPEG2standard.Caption=ISO MPEG-2标准(AVI) mnuISOMPEG4standard.Caption=ISO MPEG-4标准(AVI) mnuXvid.Caption=ISO MPEG-4 XVID ( .AVI ) mnuOpenDivx.Caption=ISO MPEG-4 OpenDivx ( .AVI ) mnuMicrosoftMPEG4part2.Caption=微软 MPEG-4 层 2 ( .AVI ) mnuMicrosoftMPEG4part3.Caption=微软 MPEG-4 层 3 ( .AVI ) mnuFlashVideo.Caption=Flash 视频( .FLV ) mnuISOMPEG4standardMP4.Caption=ISO MPEG-4 标准 ( .MP4 ) mnuAppleQuickTime.Caption=苹果 QuickTime ( Sony Vegas editable ) ( .MOV ) mnuMPEG2TransportStream.Caption=MPEG-2 传输流 ( .TS ) mnuMPEG2PSformat.Caption=MPEG-2 PS ( .VOB ) mnuVFWCodec.Caption=外部编解码器( .AVI ) mnuISOMPEG4standardWMV.Caption=微软 MPEG-4 层 3 ( .WMV ) 主要用于录制GIF\视频

2020-05-06

VB 手写文字识别程序.rar

Dim CutPic As RECT ListSame.Clear '清空List框 CutPic = CutLetters(PicPrint) '将PicPrint中的手写文本剪切 SapText.Left = CutPic.Left SapText.Width = CutPic.Right - CutPic.Left SapText.Top = CutPic.Top SapText.Height = CutPic.Bottom - CutPic.Top SapText.Visible = True ReDim OcrText(1 To Len(TxtSample.Text)) '重新定义OcrText数组的长度

2020-05-02

VB指纹分析和算法.rar

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

2020-05-02

支持多种格式的VB网络电视程序

Public Function GetFileName(strURL As String) As String On Error Resume Next Dim i As Integer Dim strFileName As String i = Len(strURL) - 1 If i <= 0 Then GetFileName = "": Exit Function If Mid(strURL, 1, 7) <> "http://" Then GetFileName = "": Exit Function If strURL = "http://" Then GetFileName = "": Exit Function Do Until i = 0 If Mid(strURL, i, 1) = "/" Then strFileName = Mid(strURL, i + 1, Len(strURL) - i) Dim a As Integer a = Len(strFileName) - 1 Do Until a = 0 If Mid(strFileName, a, 1) = "." Then GetFileName = strFileName Exit Function Else a = a - 1 End If Loop

2018-08-07

VB摄像头捕捉源代码

Declare Function lStrCpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long Declare Function lStrCpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As Any, ByVal lpString2 As Long, ByVal iMaxLength As Long) As Long Declare Sub RtlMoveMemory Lib "kernel32" (ByVal hpvDest As Long, ByVal hpvSource As Long, ByVal cbCopy As Long) Declare Sub hmemcpy Lib "kernel32" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

2018-08-07

GIF动画显示控件

很好用的纯代码GIF动画显示控件 =================================== 一款具有完整功能的显示GIF图片的开源控件,显示速度不错。无窗体,数据流小而且属于轻量级,可以任意加载到自己的程序中直接使用。支持播放、暂停、单帧步进,以及翻转动画,镜像显示以及灰度调整。适合显示动画帧数不是很多的GIF动画,很流畅。另外还支持远程网络位置显示GIF,类似一些加广告的软件中一些动画广告。

2018-08-07

VB6建立数据库和连接

简单建立数据库 建立一个asp读取的mdb数据库。 并建立 表 字段 等... asp连接数据库代码: Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("index.mdb")

2018-08-01

VB 编写自动升级更新程序.ra

VB 编写自动升级更新程序.ra

2017-10-14

3D文字制作软件源码VB版.rar

3D文字制作软件源码VB版.rar

2017-10-14

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除