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

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

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

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

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

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

有大佬解答一下么

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

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

求2024年1月1日至现在（now）顾客的消费总积分写的宏代码如下 Sheet6.Cells(57,5)= Application.WorksheetFunction.SumIfs(Sheet2!Bn6:Bn198), "Sheet2!BL6:BL198",">n", "Sheet2!BL6:BL198","<m") n是起始时间点；m是结束时间点；Sheet2!Bn6:Bn198是顾客消费积分区域，Sheet2!BL6:BL198是顾客消费时间区域 运行时显示“语法错误，编译错误” 请指出Sheet6.Cells(57,5)= Application.WorksheetFunction.SumIfs(Sheet2!Bn6:Bn198), "Sheet2!BL6:BL198",">n", "Sheet2!BL6:BL198",&

请指出图片中H列是什么数据类型？ I列为什么是乱码？

各位大神，datagrid 控件中图片如何导出到Excel中？

sub A() .... call B ... end sub --------------------------------------------------- sub B() ... end sub 可以在事件B执行完成后，不回到事件A吗？或者在B中杀死A？

程序在本机正常。换到别的电脑。有的提示未预期错误，有的能用。还有英文的提示错误。请问大神。这

next没有for

为什么我在运行字体效果这一栏的时候显示未找到方法或数据成员，请各位大神指点🙏

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

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、支持创建控制台应用程序：生成的应用程序没有任何

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），除此

这两天，偶然翻到一个Tanner Helland调整亮度的代码，他认为最快的“数据流”方式，其实就是这边直接写内存的双缓存方式。 但是试了一下，使用滚动条对亮度实时调整，非常丝滑，明显比我的快。 把我代码里其它杂七杂八的东西去掉，快了不少，虽然也可以快速调整亮度，但总是有一点丢帧的感觉。 他用的类，一维数组。 我用的模块，三维数组。 我怀疑三维数组做亮度处理时不是顺序读写，改为一维数组，还是不行。 难道模块不如类快？ 偶然给

这是怎么做到的呢？ 我们可以从如下的视角观察“文本A”与“文本B”之间的关系： 先把“文本A”复制一份，名为“A副本”，然后把“A副本”进行编辑,最后把编辑完的“A副本”改名为“文本B”。 当比对程序在比对过程中发现对“A副本”做过“删除行”和“修改行”的操作时，比对程序会在“文本A”的对应行的行首标注记号“! ”（似乎是为了“有案可查”）;当比对程序发现对“A副本”做过“插入行”的操作时，比对程序会在那些插入的行的行

主要代码如下： Option Explicit '这是全部代码 复制到 Excel 中，用“条件格式”来显示 Dim n1 As Integer, n2 As Integer Dim L1 As Integer, L2 As Integer Dim QS() As Integer, CD() As Integer, mnMAX%, mn% Dim BWL%() '备忘录（优化） Dim tx1$, tx2$, RS$(), LS$() Dim fnL$, fnR$ Private Sub CmdMain_Click() '【计算】（命令按钮） '搜索和储存“编辑位置QS”和“编辑长度CD” Dim zn1$, zn2 As String, Tot% Dim Tmp As Integer, j1 As Integer, k2 As Integer, r As Integer Dim z1$, L2max% ReDim BWL(L1, L2) DoEvents Form1.MousePointer = 11

请教大佬们这个用for循环怎么算啊

趁着今天六一,这么欢乐的节日里,开个连载贴. 这个贴酝酿了有几天了,现在发出来看看反响.如果大家都不怎么感兴趣的话,我果断TJ掉. 贴吧的帖子偶尔会抽,或者排版问题影响阅读,所以我每一章都会在博客里也发一次. 看正版高清**连载请点:http://hi.baidu.com/zatansvb/blog/category/Visual%20Basic

这种界面代码要怎么做🙏

@你是163 @卡咋肥猫 @辛时雨 @命幽

我如何能让VB在本地连接放在服务器上的一个access 数据库？感谢各位大佬！

比如，我现在有一个标签！ 单价5元，数量是10个，总价：50元 这种纯vb语言如何实现！加减乘除都可以吗？ 我现在用的bartender标签打印软件内置的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后免费发布

调试程序时，一个对象的属性（Boolean类型）mo.active是true，然后表达式 mo.active = true 值居然是false，给我整蒙了，求大佬解惑 @miku_con @bxjt123 @jy497759649