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

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

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

比如我想把1和2，用连音线连接起来，只能很生硬的这么一个一个打，而jpword就可以把连音线画到音符上面，不知道怎么实现的，求大佬答疑解惑

之前用学校电脑做的VB作业 之后在自己电脑上打开发现可以打开代码窗口但是无法打开对象窗口进行编辑(一点对象窗口按钮就闪退) 只编辑代码的话也无法成功保存(点开保存也闪退) 哇 救救孩子8！

如题

工作中有需要用到MQTT协议,于是拿delphi写了一套完整的客户端.封装成exe给vb6调用,两者消息通讯 MQTT客户端功能丰富,运行稳定.有需要的可以跟帖或者私聊,售价500.提供完整vb6代码. 当然你也可以找那些免费的MQTT客户端来用或者自己写.仅给需要的人提供一个解决方案

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

有懂的吗

根据图1的代码循环显示出六张图片 原本以为是根据以数字命名的图片名称以及变量n达到目的，没想到运行了一下 计算机表示找不到 n.jpg💔💔 求答案

比如FileName是文件的绝对路径，比如说是c:\text\a.txt这样 然后想得到的是c:\text这样。 因为目的是写一个可以打开文件所在的目录文件夹，所以想得到

有没有大佬教一下这个用vb怎么写，可有偿，老师要求500行朝上

呵呵 是我第一次发贴 大家鼓励下dim miaomiao=XXXX ‘把需要用到的时间数值赋值 单位为秒XXX.caption="需要的时间为：" & (miao \ 31104000)\100 & "年" & ((miao Mod 31104000) \ 2592000)\100 & "月" & ((miao Mod 2592000) \ 86400)\100 & "天" & ((miao Mod 86400) \ 3600)\100 & "小时" & ((miao Mod 3600) \ 60)\100 & "分" & (miao Mod 60)\100 & "秒"

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

先别急喷我。 先看图。 这是易语言的数万个模块中的一个模块，看下已经封装好了而且开源的可以随意修改。 但是VB为啥就没有这种封装好的模块？ 为啥还没衰落？

偏机械类专业，VB现在还有用吗？有必要学吗？

在IDE里面编写代码，获取当前系统的DPI缩放值，是正常的，可以识别缩放倍数。但是只要一编绎成.exe文件，就全都认为是1.0的倍数。搞不懂了，无论我把系统缩放去调成多少，反正运行.exe文件就是1.0，但你只要一进IDE，就正常了. 请教下高手什么原因，怎么解决。 想用Bitblt做一个复制当前屏幕的功能，结果因为系统缩放只能截一半屏幕； 球球了...

因为电脑没空间按一个地图了，大佬能否解答一下，谢谢