人气没了，怎么底下5，6年，10多年前的帖子都到首页了？

function和sub有什么区别啊，求老师讲下

vb有没有模拟键盘按下代码啊啊啊 我需要一个启动程序后就能长按下一个按键的代码，如何做到？ 不需要循环按一次的，只要长按的 。

自定义控件的属性，怎么设置缺省值啊。 我在控件的Initialize事件里面赋了初始值，但是这样有个缺陷。如果在设计模式修改了属性值的话，是不会生效的，程序运行时又变回初始值了。 怎么样能让它既有默认值，又可以随意修改呢

直接添加会提示加载错误

上个帖被吞了

就用了一个GdiTransparentBlt,没有外接部件,全基于原始控件.还是有点偷懒了,本来应该基于全图刷新,但控件用起来不费脑.零引擎回归原始的业余自制放置游戏探索日志6_哔哩哔哩 (゜-゜)つロ 干杯~-bilibili转自:https://www.bilibili.com/video/BV1Lz4y167hu?share_medium=web&amp

我是一名2019年的计算机单考单招生，以我的亲身经历告诉大家如何学好VB！ 1.VB的操作难不难？ 按照今年的考试题目来看很简单，第一题就是送分题，是一个红绿灯的题目，就是设置三个按钮，红，黄，绿三个按钮，第一下出现一段字这段字必须要有按钮上标题颜色。（这道题超简单） 第二道是有关于数的排序等等的，第三题则是在练习里常见的纠错代码与填代码题目。这道题也跟数字排序有关。 PR部分就是简单的渐变，擦除，变换。 PS则是制作一

程序一个主窗体Form1，通过这个主窗体随机再打开了N个新窗体，每个窗体的name都是随机且已知的。 我现在想在关闭主窗体Form1的同时，同时关闭所有已经打开的新窗体。 想了半天不知道如何是好，头发都掉了几根了 我试了在Form1的Unload事件里面逐一执行Unload + name，会提示类型不匹配呢

APP.path怎么没用了

链接: https://pan.baidu.com/s/12DoIa_2S03_c8pEJGSCaTQ 提取码: 7z8s 复制这段内容后打开百度网盘手机App，操作更方便哦 相关编写过程看参考本人C-S-D-N博文。

最近电脑课发的学习资料，有人要的麻烦先互关一下(总不能白给吧。。。。)，然后留个邮箱，我发pdf，不谢。非水军，吧务误删。

怎么不让LIST重复添加已经有的数据

求大神指点，vb中如何打印这种三角形。

我闲的**仿写了XP经典版的扫雷…… 但是我算法太垃圾了，所以游戏运行真心有点慢……Or 甚至还有点卡……Orz 我就抛砖引玉，求大佬们的指点……Orz

大佬们救救我

请问这一题怎么回事啊，看不懂

问下大家，四位数字怎么转换为时间，比如1230，转换为12:30？ 因为后续需要对这四位数字排序，还需要计算差值

求解1-1/21+1/31-1/41+1/51-1/61+1/71-1/81+1/91-1/100 我的代码哪里错了？谢谢！ Private Sub Command1_Click() Dim a%, b# b = 1 For a = 1 To 10 If a <> 1 Then If a / 2 Eqv Fix(a / 2) Then b = b - (1 / (a * 10 + 1)) Else b = b + (1 / (a * 10 + 1)) End If Else b = b End If Next a Print b End Sub

如果你在做游戏，不知道怎么让NPC追击玩家，可以试一下A*算法。 A*算法是计算在图中两点之间最短的路径，那有同学会提问了，两点之间最短距离不是直线吗。 如果加上障碍物，两点之间的直线就不一定是最短路径了。 要在两点之间找到最短路径就需要算法来计算，就少不了算法。 上测试图： 图中，每个顶点的数值，是对这个顶点的估值F。 F=G+H G：该顶点到终点的代价 H：起点到该顶点的代价 计算代价我们用 曼哈顿距离公式 计算。 把A*计算的顶

各位吧友，我是一名本科在读学生，专业以后可能会涉及编写程序解决一些工程类问题，之前学过c语言，但是感觉好难，想请教一下VB怎么样

一个文件夹里面有若干个工作薄，工作薄中有若干个工作表，所有的工作表 B列，C列，G列 进行求和

这是为什么，明天考试了，现在还不懂。

各位大佬有什么解决办法没 有偿

Option Explicit Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Private Const CP_UTF8 = 65001 Public Const BAIDU_APP_KEY = "你的APP KEY" '在百度申请后得到 Public Const BAIDU_SECRET_KEY = "你的SECRET KEY" '在百度申请后得到 Public Function strCut(strContent, strStart, strEnd) As String '文件截取函数 Dim strHTML, s1, s2 As String strHTML = strContent

VB做的上位机实例探讨

想问一下大家的VB6都是在哪下的，求个地址

Open "**.CSV" For Append As #1 'Append 从文件末尾开始写入，因为文件末所以不存在覆盖 Print #1, A,",",B,",",C,"," ; ‘写入内容为：A B C Print #1, ’换行 A B C Print #1, A,",",B,",",C,"," ; CLOSE #1 Open "**.CSV" For Output As #1 'Output 从文件开头开始写入如果有内容就会覆盖 Print #1, A,",",B,",",C,"," ; ‘写入内容为：A B C Print #1, ’换行 A B C Print #1, A,",",B,",",C,"," ; CLOSE #1 以上

我想点击计算按钮过后，使计算的结果显示在窗体strenthresult中。可是总会出现未找到方法或数据成员的错误。 我在module中定义了想显示的变量为public变量，请大神帮我看一下。 我的代码在楼下 截面截图也在楼下 自己百度了一晚上都不知道原因求大神帮帮忙！！

要把vb6软件的一些内容显示在电子屏上，电子屏demo是net版，看不懂。

分享一些自己历年来收集整理的UI窗体美化控件 源代码从自己很早前写的一个游戏辅助软件上扒下来的 分离不是很完善，有需求的自取！ 纯ＶＢ6代码，无任何外部ＤＬＬ之类 有任何建议欢迎跟贴反馈！ 效果如图： 下载地址：zlym 点 cc 斜杠 down 斜杠 vb_from 点 zip (请自行删除空格与替换中文字符) 下载地址如失效跟贴通知即可！

有大佬能帮我看看这段程序在干嘛吗？

求求求求，急急急。第三题

喜欢瞎搞，也就会经常把系统搞坏，然后就需要每次再去重装系统。但最烦人的是每次重装以后都得把软件去重新装下，所以问下吧里面的高手可不可以做一个软件自动安装器，可以静默安装，可以自定义安装路径之类的，不求一些在线安装的，离线安装的就可以，懂的高手能不能给个思路，或者方向之类的，感激不尽！

当前文件夹下所有EXCEL工作表在A1000自动求和如何实现

大佬们 我大概效果是出来了 就是从右边开始和对齐有点问题 麻烦大佬指教一下

VB中经常看到的arr与array 有什么区别？

Private Sub Command4_Click() Dim ADO1, ADO2, ADO3, ADO4, ADO5, ADO6 As Integer For io = 1 To 100 '?趨????? If InStr(Cells(1, io), "O???1") Then ADO1 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???2") Then ADO2 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???3") Then ADO3 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???4") Then ADO4 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???5") Then ADO5 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???6") Then ADO6 = Cells(1, io).Column End If Ne

Dim strPath As String, strFile As String, strNewFile As String strPath = "D:\Users\Administrator\Desktop\cenxx\" strFile = Dir(strPath & "*.*") Do Until strFile = "" strNewFile = strPath & "cenxx" & strFile Name strPath & strFile As strNewFile strFile = Dir Loop End Sub 如何把"D:\Users\Administrator\Desktop\cenxx\"和strNewFile = strPath & "cenxx" & strFile文件夹名cenxx，改成引用单元格b2的人名？

VB6串口上位机通信程序源码，可以形成实时曲线及历史记录 链接:https://pan.baidu.com/s/1RIVXdYXLKSEnlzZ7Yx1ikg 提取码:du3j

在做一个功能，将一个文件夹下，创建日期超过特定天数的文件全部删除。 思路是，先用dir函数将所有文件名存到一个数组里， 然后依次获取时间做比较，然后删除 现在遇到的问题是，是dir函数获取文件名时，如果文件名时中文的，会出错； 大家有没有遇到这样问题的？怎么解决？

缺少语句结束是什么意思，想把文字赋值给text4，应该怎么处理

求大佬帮忙看看为什么标红，按着书上原封不动的写的来着 (期末作业，明天就是ddl了，救救孩子吧)

这个选择题第十二题为什么选C呀？

想问一下大佬们关于这题的思路 感谢🙏