-
-
3这是自己花几年时间编写的VB项目, VB的使用者, 可以直接使用。 pan.baidu.com/s/1QslzAv3uC3on_tf-xRl21g?pwd=spyz
-
10像Excel2003、Word2003，它们的设置选项里都有“自动保存”/“自动恢复”的项目，但在不少的GHOST版本XP上居然发现没法用，设置了还是无效。在一些特
-
201，简化公式，200个字变成10个字 有很多公式写的很长，看不懂很难维护，如果改成VBA代码，简化成一个超级函数，方便维护，还可以给多个工程共用，实现模块化开发 2，计算提速。有些vba运算很慢，需要几分钟到几小时，用好的方法，运行速度可以减到1分钟以内甚至10秒以内。 这2天做了一个3万个左右的订单表和产品销售统计的算法。 原来的主人，运行后就卡死了，后面按10个产品去查找订单，需要1秒左右，那3万个产品就要3000秒，差不多一个小时3VB6.0的系统对话框显示不全，不太方便使用，如下图； 有位博主开发了插件可以将对话框变大，信息显示的较全，效果如下，博文地址：https://blog.csdn.net/weixin_39705435/article/details/110906728，但是联系不上博主，哪位同道中人有，看下是否可以共享，谢谢！1想做一个桌面快捷键工具。我们程序员，用的环境是linux，经常需要命令行输入一串命令，每次输入都比较麻烦，所以我想开发一个快捷指令的工具，类似于下面这种： 点一个按钮，就会向前面鼠标点击选定的输入框，键入命令。 比如我打开一个SSH窗口,然后点击工具上的"查看IP按钮",就会向SSH窗口键入：ip -br -f inet addr 回车： 现在难点在，点开SSH 窗口后，我再去点开工具（因为工具没有一直保持在最前面和显示，收缩到了任务栏），然后点工1现在用PYTHON识别图片文字，PaddleOCR，Tesseract,Opencv等很多开源技术。知识大爆炸年代，几年不学习就跟不上时代了。 以前早的时候一个验证码图片上有4个不同颜色字符，带一些杂点，我写点代码按颜色最多的进行提取，然后每个字符做一个库，按点阵方式进行识别，哪个匹配度最高就能出结果。 现在的验证码，有的颜色太浅，有的干扰太严重，肉眼都分辩不清楚了。还有很多动画式的，新奇手段层出不穷，滑块之类的POST提交都无从下手了。 网页发布1vb用什么控件显示韩文等UNICODE文字，richtextbox控件吗？ 比如：(주)타조0主要是哪些功能 我想开发个工程管理器，DLL,OCX管理的，一键引用，不同版本DLL管理4我想写一个其功能类似于数组的Timer控件的类，定时执行任务；我这里摘抄了部分代码 请教怎么写才能实现类似于ListView那样的集合类。 子集里面给出地址就变成成员，不给地址就是方法这样的语句： 如： ListView1.ListItems.Add().... 子集不赋值给出Add /Clear/Remove等方法 ListView1.ListItems(1).Text = " " 子集赋值后可以更新属性。 我目前的代码 '窗体：frmMain-------------------- Option Explicit Private WithEvents Tsk As clsTask Private Sub cmdClose_Click() Tsk.TaskItem.Remove (1) End S3樂柠茶
2023-03
1指定一个textbox文本框控件作为SQL的查询string时： dim sql as string sql=text1.text 在text1文本框输入以下内容 select * from 数据表名 where 中文字段名 like '%关键字%' and 日期字段名=cdate(date()+100) order by 字段名 desc 直接书写代码时： dim sql as string sql = "select * from 数据表名 where 日期字段=cdate('" & Date+100 & "') 另外可以使用datavalue替换cdate0我觉的最主要的还是格局，大方向对了，才不至于走歪路或花了大量时间，效果却不好。 工欲善其事，必先利其器。 像开发软件，有一个配置好一点的电脑，然后把各种模块，工程模板，源码都整理好，开发速度就快了。 如何才能开发大型软件，接大单，让时间都利用起来，利润最大化？ 学习的时间，娱乐的时间，各种数据备份，查找等工作。 大家有什么经验可以说说看1我在picture容器中按时间顺序排放很多控件1000多个，由于picture容器的最大宽度限制放不下了，大家有没有其他好的办法。1比如 a="c:\abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd\a.txt b="c:\abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd\b.txt filecopy a,b 提示文件未找到，直接进DOS命令行也提示未找到。这种情况如何处理啊1text多行显示。将各行内容导到msflexgride1🀄️0Set dataExcel = CreateObject("excel.application") wj1path = "AAA.xls" If Dir(wj1path) <> "" Then Set WJ1 = dataExcel.Workbooks.Open(wj1path) End If 读出数据后，这个AAA.xls一直处于锁定状态，怎么释放呢？ 用wj1.close 或wj1.quit 都不行呢0我在win7写的vb6事件，到win10就没有反应了，但键盘事件反应正常。求大家指点一下。6怎么用vb6做账号密码并登录呢？0文件链接：https://share.weiyun.com/EbADqUZh2安装说明:执行setup.exe安装即可,无需注册! 安装后打开VB 按下F1即可弹出帮助窗口,也可以在编程的时候选中要查找帮助的代码..然后按一下F1 会自动弹出帮助窗口并且定位到你所选择的代码语句...msdn for vb6.0简体中文帮助文档,里面很多实例演示..非常好用。 下载地址：https://52fenxiang-top.lanzous.com/ic1zkqj2定义a和b为Long b = text1，这个text1的内容不一定什么时候会变，这个已经写好了 需要解决的问题是： 要a等于上一秒的b，然后每秒进行比对，若a=b,则无操作，继续比对，若a不等于b，则弹TextBox 没学过编程，最近在研究一个小工具，求大佬指点！小弟先在这谢谢了！1开发10年的VB6工程，在运行时突然出现：未知的错误(713) 是什么原因？ 重装VB6也不行。0下边那个代码，我总是出错，求大佬帮忙4dim a(0) redim a(1) 然后错误提示 数组维数已定义.... 我想做的是动态增加数组变量个数，该怎么做呢？比如说我想读取记录存入数组，但我不知道会有多少条记录，我想读到一条就增加一个数组变量1描述：我有两个485通讯查询需求，第一条指令“01 03 00 00 00 01 84 0A”，第二条“01 01 00 00 00 08 3D CC“ 发出第一条指令，接收到一串16进制数据，存到文本框“text1”，间隔1秒，然后发出第二条指令，接收到一串16进制数据，存到“text2”，间隔1秒再发第一条，覆盖到文本框“text1”，间隔1秒再发第二条，覆盖到文本框“text2”，如此一直重复， 用VB6的MSComm控件1各位大侠！请帮忙指导一下，我用VB6写了一个小工具，将300万条旧证件号转换成新证件号，不知道怎么原因运行超级慢，每更新一条记录估计要20秒左右，请帮忙看看是不是代码写错了，有没有更快捷的方法，谢谢！ 系统配置：联系i5-7400,64位win10,12G内存，数据库为mysql8.0 代码如下： on.open "DRIVER={MySQL ODBC 8.0 Unicode Driver}......" cn.Cursorlocation=adUseClient rs.open "select count(客户编号) as nm from 客户信息表",cn k=rs.fields(0) '计算客户信息表中总客户0Dim XlsApp As Excel.Application Dim XlsBook As Excel.Workbook Dim XlsSheet As Excel.Worksheet Private Sub Form_Load() Set XlsApp = CreateObject("excel.application") XlsApp.Visible = True Set XlsBook = XlsApp.Workbooks.Add Set XlsSheet = XlsBook.Worksheets.ADD XlsSheet.Name = "01" Set XlsSheet = XlsBook.Worksheets.Add XlsSheet.Name = "02" End Sub 先添加的表在后面，后添加的表在前面，怎样才能让后添加的表在后面呢？1我想用#输出文字达到点阵画图的效果,但这..识别不了?2
羟基丙酸
6-25
3求帮忙4以前没有接触过vb6，现在boss让我用vb6做一个软件界面，就上面这样子的。有没有有空的大神愿意抽出一点时间私聊教教我的。2大佬们，这两题怎么写代码4下面是需要解析的XML,如何能将每一项的name及valueString的values值解析出来 <Parameters xmlns="http://hl7.org/fhir"> <parameter> <name value="code"/> <valueString value="0"/> </parameter> <parameter> <name value="message"/> <valueString value=""/> </parameter> <parameter> <name value="data"/> <resource> <Parameters> <parameter> <name value="virtualCardNum"/> <valueString value="1000001"/> </paramete4各位大佬！这题怎么做啊！能不能帮额一下！蟹蟹！0这是怎么回事？0VB6串口上位机通信程序源码，可以形成实时曲线及历史记录 链接:https://pan.baidu.com/s/1RIVXdYXLKSEnlzZ7Yx1ikg 提取码:du3j0VB6 串口上位机源码 步进电机控制 链接:https://pan.baidu.com/s/1CI6eStwIa88Y8aASn-ZvFA 提取码:1r3v1老师您好 vb编程中续行符怎么敲不上去，续行实现不了。1新手求助！ 我想做一个系统登入，输入账号密码正确直接登入，账号密码错误跳出提示窗口，账号密码检测Access数据库,点击…可以跳出密码修改的窗体并修改密码 然后期还想给每个用户分配不同的权限，又改如何操作呢？ 烦请大佬给的代码加下标注，不然本新手看不懂,感谢！0为了写另一个工程就把原先的一个工程的一个bas文件拆成两个了，代码没变。没想到生成的exe是以前的2倍。以前700kb，现在1.6mb了。是不是代码一样，bas文件越多exe文件就越大？
羟基丙酸
