解决贴吧发代码的时候会导致代码格式混乱的问题。 效果如下： 阅读效果：

向各位大神请教，想从服务器数据库查询数据后导入本机数据库里，我一条一条导入的，太慢了，300条记录得用30秒，有什么办法快速导入吗？

编写把任意若干个文本文件合成一个新的文本文件 ①文本文件名是数字+中文而且带有特殊字符 ②文本文件内容是中英文并且带有特殊字符 ③不要改写内容 ④文件是可以任意添加的 ⑤添加方式如图示 （⑤这个可以忽略）

如何在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的能力？

在感叹deepseek强大的同时，有一点遗憾，程序运行无效果。请懂API的大神给看看哪里错了？ 这是deepseek自动生成的一段代码 半透明水印 'Option Explicit ' 'deepseek的半透明水印，无效果，有待查找原因 Option Explicit ' GDI API声明 Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32&quo

RThreshold=1，如果收到“abc”，OnComm事件Case comEvReceive触发一次，还是多次？也就是一次性收到abc，还是一个个字符收到的呢？

之前用的企业版，后面win10安装不了，换的极简版，但是找控件又嫌麻烦，然后我又找方法把它扩展为企业版，唉，就是玩，需要的楼下自取

　　我们知道，VB在画虚线时，线宽只能为1（DrawWidth=1），但有时候我们必须要画粗虚线，那该怎 么办呢？解决这个问题的思路是：要画多宽的虚线，只要在最初那条虚线的两旁画相应数量的虚线就行 了。比方说，画5个像素宽的虚线，那么就在第一根虚线的两旁再各画2根同样长的虚线即可。笔者据此 编写了一段代码，与各位共享。 　　新建一个窗体，上面只放置一个Line控件。代码如下： Option Explicit Dim BjDash As Boolean '是否画虚线：0-画实线，1-画

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

这是我自己开发的一个表格控件，早期版本是用VB6开发的，因为VB6对Unicode的支持不太好，所以今年用VC++重写了，速度比VB6版本的更快。 可以设置多种单元格类型，包含下拉表格： 模拟SQL Server企业管理器： 支持排序、底部合计行： 支持树状表格： 可以自己编程中单元格中画图： 如果不喜欢扁平风格，也可以设置成渐变的： 包含打印和打印预览功能：

前些天，看到QQ群有人发了个VB代码缩进整理用的软件，不过那个软件不能完美使用—— 它在整理代码时会把VB代码中的标签行直接弄丢。如果源程序中有标

求助，急用

pc端一直vb6.0，以前要用指纹仪，sdk没有vb，只有vb.net，现在碰到流水线用rfid， vb.net都没有，设备方说极少人用vb，看来还得看得懂C#，C++

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

有偿找一个vb设计的大佬 现在有vb程序和代码 现在需要一个懂凸轮机构且懂vb设计的大佬帮我修改代码让程序运转出图像

如图，人物图片背景是白色的，插入另一张地图图片后，有没有办法将人物融入到大背景中？

来自msdn示例mscomm

为什么打开师兄传给我的VB半成品，会显示这个啊，VB又跟CAD有什么关系？

大约20年前用vb编写的一款单机，饲养宠物的文字RPG，就是战斗训练探险都是一个对话框弹出来一句话，没有动画效果的，纯文字。 宠物的话，可以养野猪、独角兽，比蒙（里面好像是叫比比），用的都是英雄无敌3的怪物头像。有一个隐藏宠物，是蜡笔小新的小白，它的技能有棉花糖，小白抓小鸡鸡等等。 饲养的时限是180个回合好像，可以探险，训练，打工，买装备等等。 回合全部结束了就要打boss。 有个装备叫“xx良的毛”，装备了最后还要打大魔

好象文件都不一样，应该要重新做才好吧。有些属性方法有增加，看到窗体caption属性变成text，不是闲得。 .net面向对象，看着类似C#，还没怎么看顺眼。有克服种种不适升级的意义吗？

各位高手，你们好，请教下！关于vb6如何通过WebBrowser控件或者第三方库通过网址访问adge或者chrome，并与其交互数据

如何用VB获取第三方软件非标准windows窗体checkbox控件的状态？(用内存扫描方法)

串口用mscomm

工程级或窗体级，因为mysql连接未操作超时就断了，腾讯云默认是1小时，我想捕获这个错误自动重新连接，做在过程里太麻烦了

查询顾客多次购买的时间代码如下： Sub 多次购买时间查询() Dim b As Integer For b = 5 To 988 Dim x As Integer x = Application.CountIf(Sheet2.Range("C:C"), Sheet9.Cells(b, 3)) Set mrg = Sheet2.Cells(7, 3) For y = 1 To x Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg) Dim t As Integer t = 26 + y Sheet9.Cells(b, t) = mrg.Offset(0, 11) Next y Next b End Sub 谁帮我解释一下这段代码的意思：Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)

求求了

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

Visual Basic 6.0 Sirk 迷你版 2019.02.20 ( VB6 Sirk Mini 20190220 ) 　　1、支持主流操作系统，避免原版安装失败的问题：支持Windows XP、Vista、Win7、Win8、Win10(32位、64位)。 　　2、保留大部分常用功能，避免精简版过度精简：包含原版完整控件，可以正常打开VB工程；保留资源编辑器、类生成器、ADO数据访问、ADO数据环境、数据报表等功能，方便创建数据库应用程序；添加鼠标滚轮支持，方便代码编辑。 　　3、支持创建控制台应用程序：生成的应用程序没有任何

使用前要去控件的文件夹里面【右键】【管理员权限运行】【注册控件.bat】 内核使用Miniblink组件（基于Chromium内核）：weolar.github.io/miniblink/index.html 因为Miniblink组件没有VB6版本，所以我给Miniblink组件做了二次封装，让VB6也可以使用 Miniblink组件暂时不支持视频播放，以后看作者可能支持，SBrowser控件开放了GetWebWindow函数 如果有想要做再次开发的可以根据Miniblink组件的API用这个来操作SBrowser控件 Miniblink组件API文档：weolar.github.io/miniblink/doc-main.html Miniblink组

我是新手不知道什么api什么的，有没有大神能出个详细一点的教程，非常感谢！

我的免费网站已经建好一段时间了。有福同享，我今天便将建立免费网站的方法分享给大家，让更多的吧友拥有自己的网站! 先注明:二楼的回复区为公告栏，请留意回复区，并不要在2楼回帖。 本文的另一地址是: htt p://raineggplant. tk/blog/freesite/ （为防止度娘吞楼，链接中加上了空格，麻烦大家去掉。后面的链接也是如此） 在这里先由衷地感谢 <免费资源部落 htt p://ww w.freehao12 3.c om/ > 下面进入正题: ●空间 建网站的时候，空间可不能少。它就如同你

GetDIBits 如果调用本地BMP文件还可以处理，现在需要直接调用内存里面的图片，比如截屏后，获取RGB值，这个时候GetDIBits就不好使了。不知道内存里面的图像，GetDIBits要如何才能操作。有知道的吧友没，谢谢l

我现在打包出来的“程序.exe”必须和“程序.dll”还有“程序.runtimeconfig.json”放在同一个目录下才能运行。

b站上扒小说都是Python或者JAVA。我一共就想扒两三本，还得安装环境安装软件，麻烦。VB我记得直接记事本写完改后缀名就能用。老哥们有没有什么相关的资料？

只用黑白显示的（用线条或其他图形构成的）那种就行，万分感谢！

和服务器对话的格式是什么

比如说我动态添加了一个文本框，怎么才能让它显示出滚动条？求大佬帮忙

VBMAN：基于VB6的快速服务器框架 有人羡慕的 py 一句话启动一个 web 服务器, 现在 vb6 也可以了 !!! 这是一个可让你的vb程序快速拥有服务器能力的框架, 包括但不限于: 1, HTTP服务器 / 客户端 2, WEB API服务器 3, WEBSOCKET服务器 / 客户端 4, SSE服务推送数据到浏览器 5, 配套的数据库ORM模块 6, 配套的JSON模块 7, 支持作为 ASP 和 VBS/JScript 脚本服务器(可打包脚本源码为单文件EXE) 8, 单文件 .dll 方式发布 目前已完成静态服务器和vb对象服务器, 近期完成基本demo后免费发布

经常碰到网站首页被人恶意篡改的情况，也不能每次都打开源码看，太麻烦了 请教如何用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 ...

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

我用getpixel函数去获取一张图片的像素，但运行后发现只得到一个值，这是为什么？ For i = 0 To X temprgb = GetPixel(P1.hdc, i x, y)

rt 楼下放其功能特性等：