经常碰到网站首页被人恶意篡改的情况，也不能每次都打开源码看，太麻烦了 请教如何用VB6做个自动匹配的程序，用了市面上什么豆包，文心，KIMI，chatai什么的编的程序都不能用 功能：text1从a.txt中加载网址，每个网址一行，text2加载该网址的 源码，然后与网址对应的txt文件进行比对（只需比对前200个字符），不同的在text3中记录对应网址方便查看 a.txt http://www.a.com http://www.b.com ... http://www.a.com.txt http://www.b.com.txt ...

如何将一个控件变成三个如图一所示，三个控件的名称是一样的

找了资源文件夹里面也没有。

vb6等其他软件终于可以完美支持h5网页了。

比如取得now()的日期部分，2024-12-17。竟然没找到这样的函数。

自己工作原因，有时候会用VB6写一些管理类的小程序。但是VB自带的表格真的不好用，网上找的表格好用点的差不多都是收费的，并且不便宜，于是就决定自己写一个。 因为是自学的VB，可能知识不是很全面，真心觉得写表格真是困难，这个表格前前后后写了有一个月。 先介绍下表格，支持用户列位置拖动调整，鼠标列宽拖动调整，双击表头排序，支持列对齐方式，列格文本格式化显示，支持文本输入，下拉多了选择框，真假复选框，按钮，图片，日

1楼

谁可以指教一下 有偿服务

如标题，例如计算f(x)=2x，关于x的在(-2,2)定积分。求解如何计算。微积分原理：将函数曲线与x轴连成一个平面图形，以x轴为单位将平面图形分成很多小块，计算出每一小块的面积，总面积就是积分了

准备把10张jpg大图（每张2000*11000像素），纵向合并成一张jpg，最多只能合并5张，再多就出错。有时Bitmap3=0，有时Bitmap2=0，此时保存jpg文件就是0字节了。从任务管理器查看程序，内存占用500M以上，58%以上。核心代码如下： （！！！考虑是内存的原因，太大。有没有办法，使用类似追加的功能，多次保存生成一个大文件？？？） GdipCreateBitmapFromScan0 W, H, 0, GpPixelFormat.PixelFormat32bppARGB, ByVal 0, Bitmap3 GdipGetImageGraphicsContext Bitmap3, graphic预览 For i = 0 To 10 GdipLoadIm

学校里的西沃白板有个功能就是允许多个同学同时写字 ，但是如果用鼠标模拟写字的话只能一个学生写字，有能解决的大神吗？

大家帮忙看下。 程序写好了，运行没毛病，准备交差了就生成exe文件。然后运行exe文件后，结果本来正常的功能，却提示运行时错误6：溢出。 这个出错的功能是在485串口和传感器通讯读取数据时出错的。 这个排查应该怎么排查？exe文件能打断点吗？还是我生成exe文件方式不对呢？

在win7环境下运行正常，在xp下则提示 “unexpected error”。 有没有捕获 “unexpected error” 的方法，试了 on error goto err 也不显示错误

我是1999年开始学习vb6的，它入门简单，开发速度快，但是要想写一个优秀的程序，还是花很大的心思。遥想当年，我通宵学习研究编程技术，积累了几个G的学习资料。后来工作需要，走上了用vb写小程序小工具的路。我看到现在还有人在学vb，特别是初学者底子薄，一遇到问题便束手无策。而在群里提问，时效性不强，等到有热心人解答时已经过了时效。所以本人想提供付费技术支持，如果有谁有急事，可以向我求助，我在不忙时会给予解答

一个是选出素数并排序，另一个是仅产生素数

求助各位 把设备明细表中柜号对应的型号规格数量依次批量复制到工作表“明细”行“元件名称”与行“箱体之间的列C列D列E区域的单元格中 这个可能有点难度 谢谢各位了

这个只能显示1列，我的意思是能显示多列，像古代写信一样，一列显示不下，从右向左排（或从左向右排）

布置的作业，vb一点都不懂

具体要求腾讯会议聊

记录在编程中遇到问题的解决思路 脑子越来越僵化，解决问题没有以前反应那么快，所以把它当做学习编程路的日记记下来。 请勿灌水，仅供参考。 如果吧友有什么问题，请另发新帖。 如果说的有什么不对，请斧正。

Private Sub Command1_Click() Dim x() As Double Dim x1() As Double Dim B() As Double, Y() As Double Dim BT() As Double, BY() As Double Dim a As Double, b As Double（后面这半截显示声明重复，在删了之后，能够勉强运行） Dim x0_hat() As Double Dim n As Integer, i As Integer Dim detB As Double, invB() As Double Dim result As Double ' 初始化数组大小 n = 5 ReDim x(1 To n - 1) ReDim x1(1 To n) ReDim B(1 To 2, 1 To n - 1) ReDim Y(1 To n - 1) ReDim BT(1 To 2, 1 To 2) ReDim BY(1 To 2) ReDim invB(1 To 2, 1 To 2) ReDim x0_hat(1 To 1) ' 从文本框中读取数据 For i = 1 To

该项目使用 C# 语言和 Avalonia 框架复刻了经典的 Visual Basic 6 IDE，支持创建、保存、加载和运行 VB6 语言的项目，能够在 Windows、macOS、Linux 和浏览器中运行。 开源地址：https://github.com/BAndysc/AvaloniaVisualBasic6

一楼保留

我创建了form1和form2，在form1中编写了代码 运行后，当我单击command1后，再单击对话框中取消按钮，为什么form2仍然加载 是不是因为show的功能比unload方法强大

做这样的程序肯定是需要声明变量的吧？文本框1和文本框2两个变量已经声明好了。接下来怎么查找文本框1中的单个字母出现的次数并显示在标签1中呢？

ado+mysql5.7。直接在phpmyadmin操作是正常的。参数是varchar，就报类型不对，数字类型可以。这是root用户。如果自建的数据库用户，到给参数这步就不对了，如下图。

咨询一个事，这是一个c++的简谱编辑器，唯一缺点不支持中文，一打中文就乱码，它是怎么做到不支持中文的

亲爱的吧友们，表格出到3.0了 今晚抽空给大家发点图先看一下。 当初开始做表格的时候，也在吧里发过帖子，有支持的点赞的，但是也有很多冷嘲热讽的，很是寒心 表格计划是做两个版本，一个个人免费版，高级功能会限制下。另一个版本是商业版，会手点费用，因为做表格太花费精力了。我这个表格做了3年，自己才算比较满意。 希望大家多多评论，点赞支持，给点鼓励 下面放图

把在win7用vb做的小程序复制文本框内容，然后在win10点击复制，不起作用

大神帮帮我

第一个VB程序做好了。可是怎么改显示大小

rt 楼下放其功能特性等：

如何在VB中实现按ctrl+A后，全选文本框中的文字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 1 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 或者用这个 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And (KeyCode = Asc("a") Or KeyCode = Asc("A")) Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 但如果窗体上有N个命名都不一样的文本框，有没办法做到所有文本框都一次性赋予CTRL+A的能力？

请大神指点，此处如何修改，拜谢

有大佬解答一下么

iCode V1.2。 功能上增加了ColorCode组件，通过修改内存实现代码RGB配色，不再被约束，附带配色方案导入导出

取字符串并判断

vb6.0向txt写入几个汉字，乱码，请大家帮忙，谢谢了

winsock远程时候，因为远端电脑锁屏了，winsock连上后黑屏一片，无法控制，“ctrl+alt+del”按键也根本用不上（没有锁屏时候可以正常控制）。想在此求助各位大佬，如何做到像向日葵控制软件一样，可以看到锁屏界面，并可以“ctrl+alt+del”，输入账号密码进入电脑界面。

做了exe+mysql和php+mysql。php的连接在服务器端，exe只能写在exe里，防君子，还能怎么弄呢？

Dim t As Double t = Now Dim m, n, o As Integer m = Sheet6.Range("c51") & t o = 45292 n = Sheet6.Range("c51") & o Sheet6.Cells(4, 1) = m Sheet6.Cells(5, 1) = o End Sub 运行宏时，显示：运行时错误“6”溢出。 请教大佬如何修改，谢谢！

生成的图片在这➡ ⬅这么小的一个图片 这是用来测试的数据，测试图片在D2的单元格里，我想创建文件夹后把D2列的图片存进去，图片是生成成功了，但是并不是D2列的，而且小的有点夸张，求教各位怎么才能按照原本的尺寸生成出来啊 Sub SaveColumn4AsImageToUserFolder() Dim lastRow As Long Dim county As String Dim town As String Dim user As String Dim contentCell As Range Dim ws As Worksheet Set ws = Sheet1 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow county = ws.Cells(i, 1).Va