![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
一念工作室
Heart like iron can be fearless.
展开
-
shell 路径有 空格 等 问题 (已解决)
VB.NET +VB shell DOC命令 路径有 空格 EXE传递参数 等 问题 (已解决)shell "cmd /c C:\Program Files (x86)\ADC\2022.exe 111 222 333",0 ' 111 222 333向2022.exe 传递参数解决:shell "cmd /c" &Chr(34) & "C:\Program Files (x86)\ADC\2022.exe" & Chr(34) + "111 222 333",0 '一定..原创 2022-04-03 13:56:48 · 2110 阅读 · 0 评论 -
《小说阅读》txt小说浏览器、小说阅读、小说语音阅读
说明:基于VB6.0编程语言〇、txt文字排版规则 txt文件排版规则(例:天妃日记.txt) 《天妃日记》 第1章 飞跃 ......................... 第2章 惊雷 ......................... 第3章 彩云 .........................一、[←]-上一章节 点击可转至上一章节,直至第一章节停止(向前翻页)。二、[→]-下一章节 ...原创 2021-11-13 13:41:23 · 1860 阅读 · 0 评论 -
VB c# .net 图片转GIF动画/GIF分解/图片批量修改文件名/图片批量加水印/图片批量压缩
VB c# .net 图片转GIF动画1、视频播放实现 截图(动态) GIF2、将 jpg,png,bmp。。。。转换GIF动画图片3、核心代码 采用 C# + .net 编译。使用方法:shell *.exe 即可。将 jpg 图片 转换 gif 动画图片。需要组件留言。...原创 2020-10-10 23:31:06 · 753 阅读 · 1 评论 -
广告拦截卫士 V2020(拦截广告)
广告拦截卫士 V2020自动、手动拦截 流氓 自动弹窗 广告,让整个世界清静。编程语言:VB6.0请多多指正或交流。1、手动模式下,你可以拖动左上角图标,将至拖到广告弹窗标题栏位置,可自动定位广告路径及其他参数,自动完成添加。2、也可在中间位置右键选择“手动添加”,选择EXE位置即可。自动识别广告弹窗...原创 2020-08-10 11:42:32 · 319 阅读 · 0 评论 -
VB程序中的反三角函数
ArcTan:VB自带:AtnArcSin:Function ArcSin(X As Doule) As Double Dim Temp As Double If X = 0 Then Temp=0 Else Temp = Atn(X/Sqr(1-X*X)) End If ArcSin=TempEnd FunctionArcCos:Function ArcCos(X As Doule) As...原创 2020-06-16 13:48:33 · 2986 阅读 · 0 评论 -
vb6.0 EXE程序 运行错误 Unexpected error(正解)
vb6.0 EXE程序 运行错误 Unexpected error(正解)win7/win10运行正常。但更换win8.1系统运行就会出现运行错误 Unexpected error。重新生成一次EXE,可正常运行。原创 2020-06-03 17:45:01 · 3898 阅读 · 0 评论 -
屏幕绘画 V1.1 - 一念(VB 绘制 图形)
屏幕绘画 V1.1 - 一念注释:该程序用VB6.0编写,如果疑问在下方留言。1.打开程序界面2.打开程序后第二个界面。点击红黄两只笔图按钮,开始绘画。3.默认是画随意线条,你也可以选择数学几何图形(圆形、方形、三角形、直角三角形、扇形、多边形、五角星、心形、弧线等),你可以点击黑色笔选择笔粗和画图样式及添加文字。颜色,颜色填充,线条粗细,保存绘画图片,画板、橡皮擦等功...原创 2019-12-09 13:55:49 · 707 阅读 · 0 评论 -
VB WebBrowser1设置内核版本
加入注册表Set x = CreateObject("wscript.shell")b=x.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\" & App.EXEName)If b = "" ThenSet x...原创 2018-09-13 16:13:25 · 3709 阅读 · 1 评论 -
VB 数字大小
Public Function Mxi(XI As String, ZF As String)Dim f() As String, i, Max, Min, Sum, Avg As Singlef() = Split(Trim(ZF), ",")If UBound(f) = 0 Then Exit FunctionMax = CSng(f(0))Min = CSng(f(0))For ...原创 2018-09-13 13:44:38 · 404 阅读 · 0 评论 -
VB添加及删除控件
Do While Text10.Count > 1 '卸载 添加的控件Unload Text10(Text10.UBound)Loop For I = 1 To UBound(v) + 1 '添加的控件Load Text10(I)Text10(I).Top = 100 * I * 5Text10(I).Visible = TrueText10(I) = ...转载 2018-08-22 11:17:05 · 2039 阅读 · 0 评论 -
Jmail附件无限发送
Set Jmail = CreateObject("jmail.Message") For ix = 1 To Label6 If Text10(ix).Text <> "" Then Jmail.AddAttachment Text10(ix) '附件无限发送 Next ix...原创 2018-08-22 11:15:51 · 338 阅读 · 0 评论 -
VB清除中文字符
Private Sub Command1_Click()Dim s As Strings = ""For i = 1 To Len(Text1.Text)If Asc(Mid(Text1.Text, i, 1)) > 0 Then s = s + Mid(Text1.Text, i, 1)Next iText1.Text = sEnd Sub原创 2018-08-22 11:14:48 · 1293 阅读 · 0 评论 -
分隔符(清除一个字符前面所有字符)
strTypeEx = Text1.TextstrTypeEx = Split(strTypeEx, vbCrLf)For i = LBound(strTypeEx) To UBound(strTypeEx)n = InStr(strTypeEx(i), "、") Text2 = Text2 & "|" & Mid(Trim(strTypeEx(i)), n + 1) ...原创 2018-08-12 11:33:13 · 795 阅读 · 0 评论 -
VB几点至几点 查询代码
rsx.Open "Select * from aa WHERE DATS between #" + Text15.Text + "# and #" + Text16.Text + "# ORDER BY 序号 asc", Connx, adOpenKeyset, adLockOptimistic注明:DATS between #" + Text15.Text + "# and #" + Tex...原创 2018-04-30 17:21:56 · 451 阅读 · 0 评论