我需要当前用户和域。我正在使用一个VB6应用程序 谢谢一种方法是询问环境： Dim UserName As String Dim UserDomain As String UserName = Environ("USERNAME") UserDomain = Environ("USERDOMAIN") （显然，它只适用于Windows NT和更高版本。）这个怎么样 Private Function IsAdmin() As Boolean Dim groups As Object Dim

我们有一个程序，安装程序会检查配置文件是否存在，如果存在，它不会复制该文件（它假设用户修改了配置文件并希望保留这些修改）。不幸的是，这是一个Vista之前的应用程序，它将配置文件保存在程序文件中。问题是，如果在重新安装某个API时手动清除该目录，该API仍然认为该目录存在。例如，VB6及其“浏览文件”对话框可以看到该文件夹，而explorer、cmd shell等无法看到该文件夹。在文件上写入时，仍然会保留旧文件（对于某些API，但对于资源管理器），除了“浏览文件”对话框中的表单之外，无法删除旧

我想禁用VB6应用程序中出现的脚本错误。（我在这台机器上安装了VB6） 当前，如果我导航到某个特定页面，它会弹出“INternet Explorer脚本错误：此页面的脚本中出现错误”。。。“是否要继续在此页上运行脚本？” 将webbrowser1.silent设置为“true”无效。相反，所发生的一切不是显示错误消息，而是启动实际的“脚本”调试器，然后退出程序。在没有（visual studio）调试器的计算机上，它仍然会弹出一条消息，要求使用调试器，即在Vista上（当“静默”设置为true时

我正在使用来检查用户对象，并且WindowProc计数在RemoveWindowsSubClass时从不减少。用户中的合计也是如此，它是任务管理器中的用户对象 我读了Raymond关于在销毁窗口之前删除子类化的评论，但我的测试是在完全没有销毁它的情况下完成的 comctl的tooltip类在内部为TTF_子类化工具使用相同的子类化API，因此如果使用非合作工具提示，则会发生更多泄漏 下面是VB6代码 '--- Form1.frm ' Option Explicit Private Declar

我正在帮助我儿子编写一个程序来格式化文件，以便加载到另一个系统中。我以前做过这件事，没有遇到麻烦。现在我得到了一个13KB的逗号分隔文本文件，我正在使用FSO将它复制到另一个具有csv扩展名的文件中。由于某些原因，新文件总是停在同一个位置，即从原始文件末尾开始大约6条记录。我想它可能是在它停止的那一行之后的某个记录，所以我在文件中移动了该记录。没有变化停在同一个地方。所以把记录移到停止的地方。还是一样的问题。它在13KB处停止，留下大约6条记录。我唯一能想到的是文件大小，但它低于VB CopyF

如何从Visual Basic 6运行Google Voice？请参阅此API的简要说明： 看看你能想出什么

我赢得了维护一个使用大量外部控件的大型vb6应用程序的第一个价格 “大”的意思是：如此之大，以至于目前无法从头重写它 我正在寻找一个到vb.net的平滑升级路径，用更标准的控件替换第三方控件 Sheridian 3D控件是否有简单的替代品？我不在乎视觉效果，功能才是关键 值得考虑商业自动迁移工具和应用程序 他们使用三个D32.ocx SS控件。我认为它们都提供了用.Net等价物替换的选择 Artinsoft目前正在提供一种可转换多达10000行代码的产品

我正试图清空回收站，这是释放硬盘空间过程的一部分。他就是我目前掌握的密码。在我班的第一名： Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRe

如何在visual basic 6中创建30秒延迟？我只是希望VB6在继续下一行代码之前等待30秒 系统.线程.线程.睡眠（30*1000）（@Moox my bad；） 请注意，在UI线程中调用此方法将在等待30秒时挂起整个应用程序。更好的选择是为要执行的代码生成一个新线程 编辑： 因为您的其他问题都是关于VB6的，所以这里有一个提供VB6睡眠方法的链接： 请记住，@sanderd答案中的解决方案实际上会锁定应用程序。换句话说，所有UI部件都将无响应 如果您的目标只是防止控件移动到下一行，同时

我想通过编码而不是DSN将我的Visual Basic 6.0应用程序与MySQL5数据库连接起来。连接它们的连接字符串是什么？ 如果有人帮我做这件事，我将不胜感激 谢谢， Yugal这应该有效： ConnStr = "DRIVER={MySQL ODBC 5.1 Driver};" _ & "SERVER=myserver;" _ & "DATABASE=mydatabase;" _ & "UID=myuserid;" _ & "

有人知道为什么标签和框架（可能还有其他控件）在VB6中具有TabIndex属性吗？它有什么用处吗；我应该在我的应用程序中加入GUI编程的一些功能（我完全不知道）？TabIndex是用于确定用户按TAB键时聚焦控件顺序的属性。 如果使用TabIndex=5的控件被聚焦，并且用户按下了TAB键，则使用TabIndex=6的控件将被聚焦。以确认科迪在评论中所说的内容。报告说： 无法接收焦点的控件（帧和标签控件）保留在选项卡顺序中，但在选项卡切换期间跳过 但是 如果按帧或标签控件的访问键，焦点将移动到可

您是否有一个组合框或下拉框，用户可以从给定的备选方案列表中进行选择，或输入自己的值？这通常被称为非常简单的组合框，您必须指定您正在使用的小部件工具包，尽管在Cocoa中这是一个NSCombobox，在java.swing中它只是一个swing.combobox，在QT中是一个Qcombobox。通常被称为非常简单的组合框，您必须指定您正在使用的小部件工具包，但是在Cocoa中这是一个NSCombobox，在java.swing中这只是一个swing.combobox，在QT中是一个Qcombob

我正在用Vb6编写一个Media Center插件，在我找到当前正在播放的歌曲文件路径或URl之前，一切都很顺利 我花了好几个小时绞尽脑汁，想办法随时查看机器上当前打开的文件 我的想法是获取所有当前打开的文件，然后从中筛选扩展名，找到当前正在播放的媒体项，并获取文件路径 有人知道我怎么做吗？以及我应该查看或导入哪些方法、类或库。。这件事真的让我深思 我正在查看WMI Windows管理控件，但似乎找不到我要查找的内容。。任何帮助都会很好。我不确定您是否可以在VB6中执行此操作 Media Cen

我有一个正在移动到另一台服务器的应用程序。它正在抱怨缺少TABCTL32.OCX。我已在另一台服务器上找到此文件，我想复制并粘贴它 我发现在我移动的服务器上还有一个名为TABCTL32.DEP的文件。我必须跨多个文件复制这两个文件，还是依赖项文件是可选的 我已经尝试了一个没有DEP的应用程序。该应用程序在两种情况下都能工作。它是一个生产服务器，因此我想确定。Visual Basic安装向导使用.dep文件来确定ocx文件的依赖关系。您可以使用Windows记事本打开文件以查看内容 除非您使用的是

我想把一个双人床分成几部分，不要四舍五入 试图使用int和fix但结果很奇怪 MsgBox Int(17.82 / 1.62) 'gives me 10 but MsgBox 17.82 / 1.62 'gives me 11 我想要11这样的结果，但是如何使用int或fix函数？首先阅读以下内容： 然后看看这个： Private Sub Form_Load() MsgBox 17.82 \ 1.62 ' returns 9 MsgBox 17.82 / 1.62 ' re

我知道查询“按顺序选择*，其中id=”&Txtid.Text&“” 但是我做不到，它只需要一个没有Txtid.Text的纯sql命令 那么如何在查询中包含Txtid.text 我如何发送一个查询并在报表中显示结果，我只能生成一个命令并在其上构建一个报表，因此这必须是一种从代码中更改命令的方法，以便报表动态地查看数据 可能您需要选择多个项目 在启用多选的情况下，尝试向表单中添加一个列表框。然后，您可以将列表框中的所有ID连接成一个字符串，并将中的比较器用于您的条件，如下所示： sqlString

我正在使用活动报告和Visual Basic 6.0创建报告。在报告中，我可以输入缩放百分比和我想要的页码，然后按enter键。在这个过程中的某个地方发生了一些变化，现在它只接受百分比的下拉列表和页码的箭头按钮。有人碰到过这个吗 网上没有多少关于这方面的信息。我也知道VB6是多么过时，但它曾经工作过 请尝试创建一个单独的项目，或者使用安装程序附带的一个示例，看看这些输入框是否仍然存在？您是否正在自定义工具栏？也许有代码也在操纵行为。如果可能的话，你能发布屏幕截图吗？我添加了工具栏的屏幕截图。我过

我打开了一个表单，然后单击“文件”“表单另存为”，并给它起了一个新名称。但这只是重命名现有表单。我想保留现有的表单，但也要有一个不同名称的副本。好吧，我已经有将近十年没有运行VB6环境了，但我认为您所要做的就是（从Windows资源管理器或DOS命令行）复制表单的.FRM和.FRX文件，并用新的预期表单名称保存它们（.FRM和.FRX必须具有相同的名称），然后使用项目菜单中的“添加现有表单”将其添加到项目中。VB6保留了原始表单--在磁盘上--只是没有将其保留在项目中，因此应这样做： 如果您对打

我只有一个exe文件。我必须通过使用不同的图标进行更改来使用相同的exe执行多个设置。是否可以在执行安装程序时动态更改我的exe图标？请提供帮助 你的问题有点不清楚，我没有足够的因果报应来评论和要求澄清 如果您希望更改应用程序窗口左上角标题栏中显示的应用程序图标，请参阅Microsoft的这篇文章： 如果您试图在运行时更改快捷方式的桌面图标，可以使用一个名为iShellLink的库来简化此过程。你可以在这里找到它： 你的问题有点不清楚，我没有足够的因果报应来评论和要求澄清 如果您希望更改应用程

在vb6上如何实现这一点是非常不清楚的。有人知道如何实现这一点吗 谢谢大家，我真的很感激 Dim x As Integer Dim cmdargs() As String cmdargs = Split(Command$, "/") For x = 1 To UBound(cmdargs) MsgBox "Argument " & x & " = " & cmdargs(x) Next 将参数传递给exe： Hello.exe /this /is /an /e

我想用Timer1迭代列表框列表项 例如，如果列表框列表项具有“A”、“B”、“C” 然后我想让运行'A'，然后运行计时器1 完成“B”之后，运行timer1，依此类推 也许这对某些人来说很容易，但对我来说并不容易，因为计时器1正在继续循环 这让我有些困惑 对不起，我的英语不好，任何人都可以启发我，我真的很感激 Private Sub Command1_Click() For xx = 0 To List3.listcount - 1 Timer1.Enabled =

我在一个VB6项目中工作，有一个现有的菜单，是用菜单创建者创建的。在菜单项中以编程方式插入子菜单时遇到问题 第一个菜单是文件。它包含两个菜单项：选择和退出 我想在运行时在Choice中插入查询的每一行（仅第一列） 我的记录集运行良好，但我需要以下代码方面的帮助： Do While rs_choice.EOF = False 'add column1 in Choice '~Something~ = rs_choice.Fields("column1").Value rs_

最近我们遇到了一个问题，我们必须修改一个很久以前开发的ActiveX控件。问题是，我们丢失了源代码，但找到了具有不同GUID的同一控件的另一个版本 要求是在其他产品使用相同控件时保留旧GUID。因此，我们希望用旧控件GUID替换新控件GUID 可能吗？如果是这样，请告诉我如何在VB6中更改Active X控件的GUID。您不需要手动将接口和类GUID放入应用程序中，但在项目设置中，您需要启用“二进制兼容性”，指向具有希望项目使用的接口和类GUID的DLL 从Visual Basic 6.0项目文

我有一个用vb6和ADODB库编写的遗留应用程序，连接到Microsoft SQL server 2008。 我是否可以创建嵌套事务（classe Connection.beginters？） 我怎样才能知道它是否确实得到支持 Microsoft SQL Server 2008不支持嵌套事务 判断代码中是否确实支持它的最佳方法是检查Connection.beginters的返回值。对于每个嵌套事务，返回值将增加1 因此，如果您调用它两次并且嵌套事务正在工作，那么返回值将是2。第三个电话是3，以此

我仍然使用VisualBasic6（VB6）进行随机个人编码，我需要读写一些FLAC标记（音乐文件的元标记），如果我知道如何访问库，我将能够在VB6中快速编码，我将不得不从头开始学习VB dot net。是否有从VB6调用和使用taglib sharp的快捷方式？是否有人有任何示例？由于我只擅长基本编程，如果你有什么要分享的，请尽量明确，不要以为我自动知道它的一切。我知道如何添加DLL，但我想知道是否有任何方法可以调用taglib sharp，以及如何添加？非常感谢。（VB6是我所知道的唯一语言

好的，我知道这是一个非常古老的产品，所以我希望仍然有一些我们的老前辈可以帮助我。 在内部，我们有几个旧系统正在迁移到c#，但是它们仍然需要日常工作 我们有一个问题已经有相当长的一段时间了，而且似乎越来越糟糕，事实上，自从升级到Windows10以来，人们大多注意到了这个问题 举一个例子，一个项目由主应用程序和19个dll组成，它们都在项目中分组。项目的任何部分都可以编译并正常工作，但其他时候我可以编译dll，并且dll vbp文件会损坏 腐败可能是 复制 Reference=*\G{72F490

我在Visual Studio 2019中创建了一个字符串资源.RES文件，其中包含多种语言的各种字符串表，然后我将.RES编译成一个VB6 DLL（没有代码，VB6项目只是一个编译过的VB6 DLL）。以下是创建DLL的无代码VB6项目： 然后，我将该DLL中的字符串读入VB6程序，并输出到支持Unicode的标签控件 字符串可以从英语和阿拉伯语读取/输出，但对于希伯来语，它只显示相同的字符 Option Explicit Private Declare Function LoadStri

快速提问：并行端口能否同时接收和发送数据 如果您有更多关于VB和并行端口编程的提示，请随时告诉我。：） 谢谢是的，您可以同时发送和接收 请尝试此页面以使用VB 关于并行端口的好页面是的，您可以同时发送和接收 请尝试此页面以使用VB 关于并行端口的好页面谢谢您的回复。你能进一步发展它吗？它在实践中是如何工作的？有了exmepl，我将非常感激。我不懂VB，所以快速的回答是“不，我帮不了你”。我知道并行端口，它们有单独的输入和输出线，这意味着它们可以同时发送和接收。更多信息：可能会有帮助。谢谢你，那个

我们在VB6中使用内置ftp。拖放控制 VB6后面的ftp dll绑定到IE。 从IE6升级到IE7后，DLL会发生变化，无法连接到受密码保护的ftp 从VB6可以使用哪些ftp库/dll？ 最好是开源的。任何COM库都可以做到这一点，例如使用“Register for COM Interop”属性编译的.NET dll 我可以为你做这项工作

，我明白。我不明白的是和。它们是什么意思？他们是怎么进去的？它们有什么真正的用途吗？IMP是“实质含义”“a意味着b”或“如果a那么b”，这相当于不是a或b。EQV是“等价”或“当且仅当”，因此EQV b与（a IMP b）和（b IMP a）相同 他们到那里是因为有人想要完整。它们可以缩短一些逻辑表达式，但您始终可以使用NOT and and、NOT and OR或单独使用XOR来表示相同的内容。IIRC，它们都执行按位运算！对两个输入进行异或运算并返回结果 它们不存在于任何.Net代码库中（

我正在开发一个VB6可执行文件，它使用ODBC更新DB2表。当试图更新不存在的行时，程序不会像预期的那样抛出错误。为什么会发生这种情况 objAdoConn.Execute("Update T1234 Set A = 'X' Where B = 'y'"); 从SQL的角度来看，这个命令没有错——它只是不更新任何内容，这是一个完全有效的结果 因为这是一条有效的SQL语句，导致“0行受影响”。这就是成功。正确：这是一个有效的SQL语句，不会影响任何记录。如果您想知道有多少记录受到影响，请使用如下

我用于语音录制和播放的当前ocx控件与Windows 7不兼容。我已经感受到了生产与Windows 7兼容的软件版本的压力。作者已经声明他不打算编写与Windows7兼容的ocx 我在xharbour工作，所以我需要使用OCX或编写我想避免的全部内容，甚至不知道从哪里开始。我的基本需求是1用暂停和vox的方法从麦克风录制口述，2保存到文件，3然后用ff和rew的方法播放 谢谢, Reinaldo。我发现这个activeX似乎可以工作： 雷纳尔多

我创建了一个与支付和购买脉冲相关的软件。 我使用VB6、sqlite2009 for Inno创建了数据库及其设置。我创建了一个名为“IZ”的程序 简而言之，如果用户在注册表窗口中安装我的程序，则会在“PCclient”中创建一个文件夹。 问题是：当用户卸载程序时，我创建的（IZ）注册表文件（PCclient）不能丢失。 当用户卸载程序时，注册表文件（PCclient）也会被删除，我应该怎么做。 我应该向卸载时删除的注册表文件“PCclient”添加什么脚本。 我必须在VB6或Inno中添加脚本

是否可以将msflexgrid/mshflexgrid绑定到vb6中的自定义数据源？当然可以。这是VB6中的新功能之一 查看哪个适用于DataGrid，但同样适用于FlexGrids 您可以创建数据感知类和用户控件，也可以创建OLEDB简单提供程序。当然可以。这是VB6中的新功能之一 查看哪个适用于DataGrid，但同样适用于FlexGrids 您可以创建数据感知类和用户控件，也可以创建OLEDB简单提供程序。谢谢。该链接非常有用，类似于.net framework中的自定义数据绑定。谢谢。该

windows update安装安全更新后，无法加载我的VB6项目。显示的错误消息是“'[project\u vbp\u path]/MSCOMCTL.OCX'无法加载--是否继续加载项目？”。请注意，Message中的路径是vbp文件文件夹路径，而不是控件的注册路径 详情： MSCOMCTL.OCX在常用的system32文件夹中注册 在更新正常运行并加载更新后的MSCOMCTL.OCX之前一小时，由完全相同的项目生成的可执行文件（我已使用Process Explorer进行了检查） 安全更新

我有一个特定的VB6外接程序，需要递归启动。vbp逐个项目，修改属性，然后保存并关闭 我无法使用Shell（应用程序名称），因为它需要exe，但我想打开一个.vbp项目 有没有办法通过代码来实现这一点？如果我理解正确，那么您要做的就是修改vb项目的各种文件，这只是一个案例处理文本 如中所示，查找每个项目的.vbp文件，解析该文件以查找该项目中的.frm、.bas等文件，然后根据需要修改这些文件 用记事本等打开一些vb文件（.vbp、.frm、.bas、.cls），您将很快了解您需要做什么。现在你

我可以让进度条在每次加载页面时重复加载过程吗？ 这是我的密码 Private Sub Form_load() Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() On Error Resume Next PBcolor ProgressBar1, vbBlue, vbGreen ProgressBar1 = ProgressBar1 + 1 If ProgressBar1.Value = 5

如中所述 据我所知，线程是在一个进程中发生的事情，其中多个进程同时执行的外观是通过一种轮流共享单个线程的方式给出的 如果vb6不能促进这一点，一个vb6程序怎么能同时做两件事呢？只要同时做两件事就行了。。。有，也没有 通常在VB6中编写的代码100%作为事件处理程序在用户界面线程上运行。它们运行时需要做一些工作，然后返回到主消息循环，当消息队列为空时，主消息循环“驻留”在运行时并休眠等待请求 很多通常用C++编写的组件都有工作线程，它们可以并行运行。这些通常会触发COM事件或回调，或将窗口消息发

如何打印以下字符串非特定于报告日期的常规单位信息：粗体 Print #FileNumber, Margin & "General Unit Information not specific to report date:" FileNumber定义为打开的FileName，输出为FileNumber，其中FileName是文件的位置，Margin是一组空白字符串 有什么想法吗？你不能在纯文本文件中完成，但这对我来说很有用 打开文件 Print #FileNumber, "{\rtf"

我试图显示一个双精度字符，因此它在小数点后总是有4位数字。例如，一个double值为0.0182，另一个为0.0180。但是，我的问题出现在双端为0时，这会导致截断零并留下0.018。我试图在数字的末尾加上一个零来解决这个问题，但是收到了一个语法错误 Dim minFeature As Double 这将以字符串形式返回数字，并保留四位小数 Format(minFeature, "0.0000") 有关详细信息，请参阅。这将以字符串形式返回数字并保留四位小数 Format(minFeatu

请参阅下面的代码： GenErr: If Err = -2147217871 Then 'rs.CancelUpdate objCon.RollbackTransaction Resume AfterNes ElseIf Err = 3219 Then 'rs.CancelUpdate objCon.RollbackTransaction Resume ElseIf Err =

我在发送GeteBayDetails请求时遇到问题。 我使用VB6代码，是的，我知道FindPopularItems、GeteBayTime等， 而且效果很好 Private Sub Command1_Click() Dim httpCnct As XMLHTTP40 Dim xmlDoc As FreeThreadedDOMDocument40 Dim ebayurl As String Dim devid As String Dim appid As String Dim certid A

我在Globals.bas中有以下代码： Public Const strErrorLog = "log.log" Public Sub WriteLog(ByVal strMess As String, ByVal ErrLog As String) Dim intLogFile As Integer On Error GoTo GenErr 'Print the path of the log file If ErrLog <

查询检索recordcount确认的单个记录，但表中的每一行都会更新 我使用的是vb6和ms ado 2.8 Firebird版本为2.5.4.26856（x64） Firebird ODBC驱动程序2.0.3.154 这台计算机是64位windows 7 home edition Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cs As String Dim dbPath As String dbPath

我想在VisualBasic中使用按键过程结束程序。我使用这个代码，但每次我按下一个键，它不会结束程序 Private Sub Form_KeyPress(KeyAscii As Integer) End End Sub 我写了这篇文章，它很有效： Private Sub Form_DblClick() End End Sub 但是按下按钮不起作用您已经将代码放入了KeyPress事件的表单中。如果窗体上有任何控件，则活动控件将获取事件。当您将KeyPreview=True时，表单仅会看到按

我正在用VB6制作一个方程式图示器，并且我构造了一段代码，当鼠标指针位于picturebox（picturebox是显示曲线的位置）上时，它会显示鼠标指针的坐标 我已经成功地做到了这一点，鼠标的坐标显示良好，直到鼠标被放置到轴上（由直线函数构造）。指针位于轴上时显示的命令明显错误 当鼠标指针位于y轴上时，x值不是0，而是某个随机数。 当鼠标指针位于x轴上时，y值不是0，而是一些随机数 坐标显示在状态栏上。下面是可能帮助您解决此问题的代码 以下是状态栏上显示的co ORD代码： Private S

我正在使用VB6和PowerPoint 2010，我的目标是创建一个PDF，并能够使用ExportAsFixedFormat设置输出页面大小，与幻灯片大小无关。 但是，我不想使用打印驱动程序-我需要使用内置的ExportAsFixedFormat（或可能的SaveAs） 例如，不管幻灯片的原始大小如何，我希望最终的页面大小为11x17，横向，并在保持纵横比的同时，将幻灯片在页面内缩放到尽可能大（按比例缩放） 我已经有了我需要的所有代码，包括处理纵横比的缩放等 一个问题是，当我使用PPT代码（.P

我编译程序并在另一台计算机上运行时遇到问题 问题是： Run-time error '372'; Failed to load control 'VSFlexGrid' from vsflex8.ocx. your version of vsflex8.ocx may be outdated. Make sure you are using the version of the control that was provided with your application 如何解决此问题？此

我用谷歌搜索过这个。在这里搜索它。我最接近的答案是一个家伙在2003年的另一个论坛上问了同样的问题 在VB6 IDE中项目属性的“生成”选项卡中，可以设置生成的版本号。主要版本、次要版本和修订版。假设您将这三个设置为8、6和2-您希望看到您的exe将其版本设置为8.6.2-对吗 没有。你得到的是8.6.0.2！！ 我想把这个0设置为2，但我还没有弄清楚第三名的位置叫什么 你们中有谁长期从事VB6编程的人对此问题有解决方案吗 多亏了@jac，我从他指给我的线中找到了它。这正是我想要的，而且更多 您

在这里工作，我们有一个旧的VB6应用程序，我需要教新的技巧。我要做的第一件事是让它从用C编写的.NETCOM可见DLL调用方法。我已经做到了。现在我需要让它处理来自同一DLL的传入进度通知事件。下面是C代码： namespace NewTricksDLL { [ComVisible(true)] [ComSourceInterfaces(typeof(IManagedEventsToCOM))] public class NewTricks { publi