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

来自msdn示例mscomm

各位高手，你们好，请教下！关于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)

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

求求了

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

咨询一个事，这是一个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、支持创建控制台应用程序：生成的应用程序没有任何

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

使用前要去控件的文件夹里面【右键】【管理员权限运行】【注册控件.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

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

我现在打包出来的“程序.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 楼下放其功能特性等：

吧里气氛有点低迷，出个题吧。 我最近想写一段读取文本里数字的代码，发现如果数字用汉字写的时候，读出来还是挺复杂的。比如108，可能写做一〇八，也可能写做一百零八。我想到的方法都不能说简单。大家有什么好主意吗？数字可以限制在65535以下。

一楼保留

输入：bcf 2 print 4 print "云码Basic乘法口诀" 6 print 8 PRINT "-------------" 10 FOR i = 1 TO 9 20 FOR j = i TO 9 22 p=i*j 30 PRINT i;" x "; j ;"=";p 40 NEXT j 50 PRINT "-------------" 60 NEXT i 62 print "2021-11-14于昆明Mac" 64 print "使用云码输入法Basic程序完成"

大佬们求助！我下了无数个VB的版本 ，但是每一个都会这样 ，去百度找结果，都是说重装 ，可是一直行不通。百度现在能找到的VB6.0都是一些很多捆绑软件的，吧里也没有找到类似的解决办法或者安装包。。有没有大佬能救救我啊

Visual Basic 6.0 Sirk 迷你版 20160110 ( VB6 Sirk Mini 20160110 ) 概述 　　1、安装包大小只有19M！保留大部分常用功能，避免过度精简。支持Windows XP、Vista、win7、win8、win10，解决企业版（完整版）安装失败的问题。 　　2、保留企业版所有控件，可以正常打开所有VB工程；保留资源编辑器、类生成器、ADO数据访问、ADO数据环境、数据报表等功能，方便创建数据库应用程序；支持鼠标滚轮，方便代码编辑。 　　3、支持创建真正的控制台应用程序（Console exe），除此

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

Vb调用timegettime api函数返回0,有人遇到过吗

谁可以指教一下 有偿服务

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

2016年我发一个API的tlb头文件，感谢广大吧友的支持，本人精力有限，加上换vc早已不用vb6两年了，这次最后一次更新。 主要修复上次重大更新的一些bug，另外再添加了wlan全部函数和WinHttp全部函数。添加WinHttp的原因是有吧友反馈说COM的WinHttp对象在连续请求时有字符串内存泄漏，至于是不是真有泄漏我倒没有亲自试验过，反正我将导出函数添加进来了。 上次发布的帖子在这里：http://tieba.baidu.com/p/4675878564 更新记录和截图就不发了，之前帖子已经发过了

具体要求腾讯会议聊

大神帮帮我

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

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