我们使用上面列出的microsoft修补程序升级了我们的计算机，现在有些winsock控件出现问题。在谈到新的组件库时，我们面临两个问题： 我们正在使用Form.Controls.Add（…）动态创建Winsock控件。对于新的DLL，它给了我们一个运行时错误731，说明我们需要添加许可证 此问题通过在添加控件之前添加line License.Add（控件的PrgID）来解决 现在的问题是，当我们尝试将此控件设置为mWinsock类型的对象时，会出现运行时错误类型不匹配。有什么想法吗？您可能

我已经创建了一个VB6应用程序，希望从中发送SMTP电子邮件。电子邮件发送和接收正常，但当附加Excel 2003文件时，虽然接收正常，但当尝试打开该文件时，文件会损坏。。。我也尝试过保存附件，然后打开它，但问题仍然存在。感谢您的帮助……附件数据必须进行编码。并非所有邮件服务器和客户端都是8位安全的。 Base64是最常见的编码方法。在编码文件时，很可能会损坏该文件（如果确实损坏的话）。我们必须先看一些代码和网络传输日志，然后才能进一步提供帮助。是否有其他类型的文件（我希望有非文本文件）谢谢De

我们有一个使用Active Reports 2的传统vb6程序。我们一直在运行从xp sp2到Win7 64位的混合操作系统。除了一台特定的机器，我们所有的东西都在工作。此计算机（win7 64位）在显示某些活动报告时，背景图像不会像预期的那样拉伸以填充页面。我已经检查了所有的内部软件安装和dll版本，看看是否有什么东西没有安装，但我找不到任何不同的。我开始认为这一定是Active Reports 2的低级依赖，但我也找不到 有谁知道我可以尝试进一步解决这个问题吗？自定义DPI？在win7中，除

我正在用vb6编写一个程序来通知用户。该程序在windows systray中，并在计时器上最大化主窗体。但是，如果用户使用某个应用程序打开，则我的窗口是从后面打开的。如何打开顶部的通知窗口？您可以使用passingHWND\u top作为hwninsertafter参数将窗口设置在顶部 请注意，有一些示例会迫使窗口聚焦，而不是仅仅移动到顶部，这是不应该做的，因为这会让用户非常恼火（Outlook在许多其他应用程序中都会这样做）

我有一个excel文件，其中包含7到8个工作表（sheet1、sheet2…），我想逐一阅读所有工作表。有人可以建议我如何在VB6.0中实现这一点吗？您可以使用该集合。它有一个包含工作表数量的Count属性，您可以通过Worksheets（2）访问工作表2-您不需要知道工作表的名称

我想用vb6代码检查操作系统是32位还是64位，处理器是32位还是64位。所以请帮我获取这些代码。 在vb.net中，我可以使用Environment.Is64BitOperatingSystem属性，它仅在.net 4.0及更高版本中工作。 但是如何在vb6中获取这些信息呢？对于CPU，您可以使用WMI并获取AddressWidth。 可以找到VBScript的示例您可以尝试WMI类的DataWidth或AddressWidth属性，在32位处理器上，值为32，在64位处理器上，值为64。操作

我们正在使用VB代码，当用户拖动图标并释放它时，应该打开一个新窗口，但只有窗口的标题可见，而窗口的其余部分设置为0,0，因此用户看不到任何变量，标题也没有任何扩展选项。如果我理解正确，您希望显示没有正文的表单，只显示标题栏及其标题 例如： Private Sub Form_Click() Height = Height - ScaleHeight End Sub 当您运行该代码并单击表单时，它将调整大小并仅显示标题栏 请注意，任何形式的事件都不会发生奇怪的事情 除了通灵能力，我相当肯定你没

几年前我用VB6编程，我非常喜欢它，因为它非常简单和快速，当VB.net出现时，我放弃了它，因为它改变了很多东西。 我想知道经过这么多年，是否有一种新的语言或IDE比VB6更方便、更快地帮助编程。 我对学术/个人问题不太感兴趣，比如，非常高的性能、通过OSs的巨大灵活性、开源等等。我想知道是否有什么东西可以为中小型桌面应用程序编程。以非常简单和快速的方式 如果我的英语不是很清楚，请原谅 编辑：尼古拉斯： 嗯，我必须承认，我没有太多地尝试VB.Net，我有点失望，因为我必须学习很多新东西，而且不久

我有一个VB6应用程序，它仍然引用一些旧的VB5库（dll、vbr、tlb和ocx）。我们遇到了一些奇怪的问题，例如无法使用advapi32.dll读取注册表。我已尝试使用UAC权限运行该应用程序，但仍然无法运行。我们无法重新编译该应用程序，因为它有多个无法下载的控件和组件，并且不再受支持。任何想法（除了重写，因为我们已经在工作）都将受到赞赏 另外，我们已经在Windows XP模式下尝试了此应用程序。然而，以下是我对此的“抱怨”： 加载为vbFormCenter和vbModal的窗口在两个监

在VB6中测试两个单件是否相等的最佳方法是什么 我想测试两个值是否等于7位有效数字 建议使用 If Abs(a - b) <= Abs(a / 10 ^ 7) Then valuesEqual = True End If 有更好的方法吗？我维护一个CAD/CAM应用程序，而且我必须一直处理浮点数。我有一个调用fComp的函数，当我需要测试相等性时，我会传递一个浮点值fComp调用设置为特定精度级别的舍入函数。对于我们的系统，我四舍五入到小数点后6位。您可能需要更高或更低的价格，这

我的一个朋友正在用vb6制作商业程序，向最终用户销售应用程序是否需要任何许可证。他拥有vb6开发者许可证。据我所知，vb6应用程序没有具体的许可证要求。最重要的是，当前的操作系统附带VB6运行时，目前情况确实如此。VB6运行时一直预装到Windows Server 2008 R2。这里有大量有用的信息可供您的朋友参考： 对Windows Vista、Windows Server 2008和Windows 7上的Visual Basic 6.0的支持声明 -从VB6手册中输入 您可以将使用Vis

我们需要弄清楚服务如何窥视正在运行的VB6应用程序和/或其DCOM生成的exe，并弄清楚哪个VB6应用程序与哪个DCOM exe相匹配。VB6应用程序和派生的exe都位于同一服务器上 我们有一个VB6应用程序，它通过CreateObject（）调用生成一个调酒师实例（来自Seagull Scientific）。在给定的服务器上，我们可能有十个或二十个应用程序实例，每个实例代表仓库中的一个手持射频枪客户端。95%或更多的VB6应用程序将有自己的调酒师 由于我们无法控制的情况，我们的一个VB6实例将

我使用的是VB6，我的表单有一个TextBox控件。我希望用户能够在文本框中输入时间，但我必须验证输入时间是否正确 例如： Textbox1.Text = 236161 '(User Input) 236161 = HHMMSS 上述输入的时间错误，因为分和秒大于60 我可以使用什么代码来检查文本框中输入的时间格式？对于.Net，您已经包含了regex。在VB6中，您必须使用COM或ActiveX库，并将它们作为引用添加到项目中(http://www.regexlib.com/Displa

我有一个VB6应用程序，它使用WebBrowser控件访问站点。 我需要将用户的Windows身份验证凭据推送到控件，这样他在访问intranet中的web应用程序时就不会被要求输入用户和密码 我在.NET中看到过类似于本文的解决方案 有没有办法用Visual Basic 6实现这一点？VB6 WebBrowser控件将显示与IE相同的行为--因此，如果URL位于受信任的站点或intranet区域，它应该自动使用您的网络凭据--无需编码 如果要以编程方式将URL添加到区域，请使用该函数。VB6

我的任务是对遗留的VB6 Winform应用程序进行更改。我发现这个应用程序被不必要地分割成多个DLL（一些DLL只是几个类）。所以，我正在努力将一些DLL整合到主程序中，但我遇到了一个问题，我需要一些帮助 其中一个DLL包含一个名为CTest（Test.cls）的类。主程序在以下代码行中使用它。strProgId是命名另一个DLL的字符串 Dim objTest As CTest Set objTest = CreateTestObject(strProgId) Public Funct

我在尝试从一个旧的（但仍然保持的）VB6exe项目（*）源代码构建ActiveX dll时偶然发现了这一点，以便通过COM/NET互操作执行一些测试 （期望的）用例是： 以带有公共方法的VB6类为例，获取或返回一些控件（例如CommonDialog）引用 将此类编译为ActiveX dll 通过.NET中的COM互操作创建此类的实例，并正确调用其方法 简言之，第一个问题是 Public Function bad_dlg() As CommonDialog Set bad_dlg = N

使用VB6 我的默认软件显示设置为“800 x 600” 具有不同显示设置的客户端，如“800 x 600”、“1366 x 768”、“1280 x 768” 客户端使用的软件超过“800 x 600”显示设置表示软件未配备全屏。软件显示显示器尺寸的75%宽度 当我根据显示手动调整软件大小时，图像显示得非常大 如何根据监视器的显示大小以全屏显示软件 需要代码帮助只需将主窗体更改为最大化（将属性窗口状态设置为2-最大化），然后确保它包含的任何控件根据需要调整大小或移动。只需将主窗体更改为最大化（

有人能帮我把它转换成autoit吗，或者至少告诉我如何在autoit中实现这一点 Private Const DC_PAPERNAMES = 16 Private Declare Function DeviceCapabilities Lib "winspool.drv" _ Alias "DeviceCapabilitiesW" ( _ ByVal lpDeviceName As Long, _ ByVal lpPort As Long, _ ByVal iI

经过这么多年，我正在研究一个非常古老的ASP代码。我能够使它在VS2008上运行。然而，当我点击页面时，我经常会看到 Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /xxy/Search/includes/criteria_toolnewbag.asp, line 19 Invalid class string 我知道COM组件在VB6上，这是因为COM注册导致的错误吗？如果是或否，如何解决

好的，我已经开发了一个2d侧滚器（platformer），它在IMO中非常高效，使用1个定时器，我正在努力使移动平台成为可能。以下是我尝试并正在调试的内容 Private Sub Timer1_Timer() 'moving platforms For f = 0 To Platform.Count - 1 If Platform(f).Tag = "moving" Then For j = 0 To Platform.Count - 1 If

我继承了一些遗留的vb6代码。这是一个为windows pc生成本地管理员密码的工具。该密码应仅包含有限的字符集。这工具很好用。。只要它不在中国或俄罗斯的个人电脑上运行，它就会生成奇怪的密码，没有人能输入。当然，这与当前的操作系统文化有关。Chr（CharCode）函数在这些系统上返回一些奇怪的字符。有人知道如何使这种文化保持不变吗？我只希望该工具生成带有标准ASCII字符的密码 Function generatePassword(PASSWORD_LENGTH) Dim NUMLOWER, N

我正在尝试在vb6中实现Jetaudio API。。。 我已经从API SDK中获取了常量的值 Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Al

我是VB的新手，我需要知道它是如何完成的。 已经三年没学VB了，我记不太清楚了。 文本框中有一个值（5.43），需要减少0.34 但代码是这样的： TextBox3.Text=Val（TextBox3.Text）-0.34 我该怎么做？ 这是VB 6顺便说一句，没有尝试过，但可能是： TextBox3.Text=Cdbl（TextBox3.Text）-0.34像这样 TextBox3.Text=Double.Parse（TextBox3.Text）-0.43这将在C语言中工作# 双精度数字=Co

我是VB新手。我正在测试一些旧的VB代码。守则如下： Public GlobalCommArea() As Byte ... ... 'GlobalCommArea is set to some value 现在，我想看看这个GlobalCommArea变量的内容。（顺便问一下，这是一个变量吗？） 所以我试过了 outputBox.Text = GlobalCommArea 但是outputBox（文本框）没有显示任何内容。如何将GlobalCommrea的内容打印到文本

我希望我的应用程序只适用于一个系统，我希望获得一个在所有系统中都一致、唯一且可用的硬件信息 在你看来，什么信息是最好的？如何使用Visual Basic 6获得它 谢谢MAC地址和硬盘驱动器序列号是我所知道的最可用的唯一硬件ID。CPU在几年前就打算推出一项功能，但由于隐私问题，这个想法被压制了 没那么容易。您获得的硬件信息量取决于用户运行软件的权限。如果您可以确保拥有完整的权限，您可以考虑使用WMI在VB中获得的硬盘驱动器id等。请注意，这两个id可以随时更改。MAC地址可以更改，交换NIC

我的问题差不多有两部分。首先，我正在尝试格式化一个已转换为整数的字符串。我有以下代码： If Idx2 = 0 Then response.Write(sName & vbKeyTab & " E01 " & vbKeyTab & CInt(oSplit(1)) & "</br>") End If 我的第二个问题是关于我的代码的CInt部分。我的oSplit数组中的数据是一个字符串，我将它转换为一个整数。然而，似乎CInt正在

我已经用VB6.0创建了OCX。这个OCX中有自定义activex控件。自定义控件在我的应用程序中使用。我已经在一个系统中安装了我的应用程序，在这个系统中我注册了第一个应用程序 我的第二个应用程序需要OCX中提供的自定义控件，在以前的控件和新的自定义控件中几乎没有增强功能 为此，我使用以前的控件和添加的新控件创建了新的OCX。在这种情况下，将来如果我需要不同的控件，我需要创建更多的OCX文件。这很难维护不同的OCX 如果我在现有OCX中添加新功能并在系统中注册，则现有的应用程序无法找到以前版本的

当我试图编译代码时，在VB6中出现了“用户定义类型未定义”错误。谁能告诉我需要做什么来解决这个错误吗。下面是我得到错误的那一行 objINI As clsMPT_INI_COnfig 将包含该类的类文件添加回项目。您正在尝试创建clsMPT\u INI\u COnfig的实例。您必须将其创建为类，或者确保已导入包含该类的正确库 clsMPT_INI_COnfig不是VB预定义的类。因此，如果不以原始源为目标，就不能隐式调用它

我正在VB6应用程序中使用Crystal Reports ActiveX viewer（v10）。 2003年12月10日01:41 AM 799944 crviewer.dll 查看器加载“确定”并显示报告，但使用对话框上的按钮可用的导出格式仅限于： 水晶报告（RPT） 制表符分隔文本 正文 我已确认所需的导出dll（如u2fsepv.dll、u2fxls.dll等）位于windows\system32和Common files\Crystal Decisions\2.5\bin目录中 我

在我的VB6应用程序中，我使用scriptcontrol1.0通过我的应用程序运行外部脚本。但在运行时，我得到以下错误 "Error running Perl script: A script engine for the specified language can not be created." 我安装了ActivePerl 5.14，运行以下代码时出现错误： Dim perl As New ScriptControl perl.Language = "PerlScript" 知道问题

在我现有的visual basic 6应用程序中，我连接到一个ftp站点。现在，另一方将协议更改为ftps，并将端口更改为22 我的代码不能正常工作。我收到错误vb FTP运行时错误“35753”“此方法不支持协议” 我只更改了代码中的端口和url 我以前的url类似于ftp.xxx.com.tr 我将url更改为 sftps://ftp.xxx.com.tr 我正在尝试使用filezilla连接到同一个位置，它将url更改为sftps://ftp.xxx.com.tr 所以我复制了它。st

好的，我花了很长的时间，但我最终在VB6应用程序上与quickbooks集成。它在我的机器上工作得很好。我实际上在我的构建机器和worte上安装了qbdsk11，并测试了代码。项目中唯一的新引用是QBFC11.dll 因此，我将QBFC11.dll添加到我的innosetup中，让它在dll上执行regsvr，并希望这足够了 不是 首先，在安装过程中，我注册dll失败。显然，这个DLL不是要注册的 但是.DLL是放在WindowsSystem32中的，所以我尝试了我的程序 没有。不起作用。我得到

有没有人知道除了使用第三方文本框控件之外，还有没有其他方法可以将HTML输入VB6文本框 我没有在网上找到任何东西 希望你能利用这一点。我们在.Net中这样做是为了允许表单上的简单编辑控件发送格式化电子邮件。因此，我们有一个带有自定义菜单的RTF文本框，用于创建文本，然后提取RTF，将其转换为HTML，并将其作为HTML内容添加到电子邮件正文中。RTF到HTML的转换使用本文中的代码： 下面是我们用来将其联系在一起的包装器代码—它只需要一个RTF输入，并直接返回一个HTML输出： Imports

我有以下代码： Dim com1 As IO.Ports.SerialPort = Nothing 但是当我尝试键入此代码时，它没有IO…。如何在项目中引用它？该库是VB.NET的一部分，因此无法从VB6访问 从VB6访问串行端口的常用方法是MSComm ActiveX控件，尽管还有其他更易于使用的COM端口控件 当您将其设置为System.IO.Ports.SerialPort时会发生什么情况？@如果我键入Ctrl+SpaceBar，则最好使用\mkstemp，当您键入时，它会显示代码的可

我需要得到像EMPN0001、EMPN0002、EMPN0003、EMPN0000这样的值 这里的“EMPN”不能更改 4位数字是整数 用户将只输入4位数字，但文本字段已具有值EMPN example EMPN 0001 EMPN 0002 这是我的密码 Dim Employee as String Private Sub Text_EMPLOYEE_NUMBER_Change() 'Text_EMPLOYEE_NUMBER.TEXT =Format (Text_EMPLOYEE_NU

我不知道我做错了什么。我一直在“显示输出”下得到错误“预期：语句结束”。评论 Option Explicit Private Sub cmdOkay_click() 'Declare counter variable (p) Dim p As Integer p = 8 'Declare variable to hold calculated minutes Dim minutes As Integer 'Displa

我为这个愚蠢的问题道歉。我正在维护旧的遗留VB6代码，我有一个实际工作的函数，但我无法理解为什么它可以工作，或者为什么没有它代码就不能工作 基本上，此函数读取UTF-8文本文件并在DHTMLEdit组件中显示其内容。它的工作方式是，将整个文件读入字符串，然后使用ANSI代码页将其从双字节转换为多字节字符串，然后将其转换回双字节 使用这个复杂的机制可以使组件同时正确显示包含希伯来语、阿拉伯语、泰语和汉语的页面。不使用此代码会使文本看起来像是向下转换为ASCII码，显示字母所在的各种标点符号 我不明

我有一个在XP上运行良好的程序，但只是在Windows7机器上安装了它，这部分代码不起作用。没有错误消息，只是无法检索数据。 其他注册表操作正常 Dim n As Long Dim keyname As String Dim keyvalue As String Dim hkey As Long Dim hkey1 As Long Dim regopentype As Long Dim lretval As Long Dim lkeyvalsize As Long Dim lpattr As L

我们使用Visual Basic 6.0创建了一个windows应用程序 外部应用程序访问VB应用程序窗体（屏幕）中的控件和数据，并向用户提示验证消息。我们假设外部应用程序正在使用user32.dll中的'FindWindow'，'FindWindowEx'API函数，以使用下面链接中解释的逻辑访问我们的应用程序 是否可以限制外部应用程序访问VB应用程序窗体（屏幕）中的控件和数据？是否有任何方法限制此匿名访问 提前谢谢 谢谢， Sujatha。您的程序将文本交给您。VB6窗体软件包正在为您执行

我在visual basic WebService中有连接代码： Dim webService As SchnittstelleRechte.Service1 = New SchnittstelleRechte.Service1 如果连接持续超过5秒，我想停止连接。有可能这样做吗？？？谢谢。试着这样做： Dim webServiceSchnittstelle As SchnittstelleRechte.Service1 'Dim number as integer = 1 Public

我已经创建了一个程序，我正在努力使它更有效率。其中有需要用户输入的文本框。当所有必需的信息都在中时，将在另一个多行文本框中生成报告。生成的报告中显示的日期格式为“dd/MM/yy”，这一点非常重要。我已经在下面使用了此代码： Dim a as String a = Format(Textbox1.text, "dd/MM/yy") 然而，它所做的唯一一件事是，当有人用这种格式“dd-MM-yy”键入日期时，它会将其转换为我想要的日期。但是当有人使用“.”（dd.MM.yy）甚至“.”（dd.M

我需要填充一个dbcombo，我已经写了这个 Private Sub cargamunicipios() Conexao_Banco Dim rs As New ADODB.Recordset SQL = "select código , nome from aux_municipios" rs.Open SQL, cn DBCombo4.RowSource = rs End Sub recorset可以正常工作，但是有mistmach类型，填充dbc

我正在寻找一种方法来折叠我的VB6代码。 我找到了一个选择，但我真的很讨厌： 工具>选项>编辑器选项卡>取消选中“默认为完整模块视图” 在VB.NET IDE中是否有更好的方法，如#Region“regionName”方法 编辑： 位于代码窗口左下角的两个小按钮的作用与上述相同 不，不可能。 关于CodeSMART： 只能显示“分支线”。 至于这些地区，它们只是一些特别的评论，仅此而已。 看见 CodeSMART可能会为您工作。看一看。我记不清所有的特征了。不过，我会考虑编辑你的问题，以反映你真

我最近买了一个新的tower，并使用第三方软件移植了我所有的开发工具（另一个故事本身），包括VB6.0、我所有的第三方工具和Btrieve。我和Btrieve之间唯一的问题是烦恼多于一切。在这个新的塔上，我必须记住在尝试从IDE内部运行编译后的应用程序之前运行一次，否则它将不会加载，然后在尝试打开第一个文件时返回相应的错误 如果其他人遇到过这种情况，并且知道如何修复它，我将不胜感激。检查后，我意识到我需要关注两个文件：w32mkde.exe和wbtrv32.dll 通过手动运行exe文件，它将加

现在我正在开发一个工具，它允许我使用VB6和带以太网屏蔽的arduino UNO测量网络连接之间的延迟。 现在我在服务器代码（VB6程序）方面遇到了一些问题。 我有两个Winsock，都有不同的端口，它们都在监听arduino客户端的连接。现在，如果我只有一个活动连接，没有任何问题，一切正常，但一旦第二个客户端连接到整个服务器，就会开始疯狂。突然，它报告第一个连接的客户机失去了连接，因此简而言之，服务器不希望一次连接两个客户机，但我确实需要它：/What's your出了什么问题 我将快速解释s

我有一个VB6 ActiveX EXE，它正在从另一个桌面应用程序调用。启动桌面应用程序时，我可以看到process manager中列出的ActiveX exe。如何从VB6 IDE中调试此ActiveX组件？将ActiveX exe项目加载到VB6 IDE中。根据需要设置断点。按F5（或使用鼠标单击开始按钮图标） 然后启动桌面应用程序。当它实例化应用程序时，它将连接到IDE中运行的副本。请注意，任务管理器中不会显示ActiveX exe。将ActiveX exe项目加载到vb6 IDE中。根

尝试加载VB6项目时，它抛出加载错误-找不到License.dat文件。 继续时，项目已加载。但表单上的控件以意外的顺序重新排列。 许多控件（如ListView、Datagrid等）转换为图片框类型 请提出最好的解决方案 问候,， 阿卡什这回答了你的问题吗？

我知道命名控件的限制是254，超过这个限制，您必须使用控件数组。但我们似乎也达到了阵列的极限。知道绝对限制是什么吗？我们有一个用VB6编写的记录管理系统，并且有一个UI指南，其中规定每个记录都应该有一个与其关联的数据输入表单（即不能打开其他窗口）。由于这一政策，我们系统中较复杂的记录类型之一现在有一个表单，总共有659个单独的控件。我们遇到了256个命名控件的限制，然后随着时间的推移将许多控件转换为控件数组。最近，在浏览了整个表单并将剩下的几个独立控件转换为控件数组之后，我们压缩了5到6个新控件

我有一个VB6应用程序，它可以列出一个文件夹的目录并提取文件名。其中一些是重音符号，例如“Guimarães.txt”（带有波浪线的小A）。VB Dir函数和FileSystemObject函数都无法识别重音字符，而是将文件名返回为“Guimar？es.pdf”，因此我随后无法打开该文件。我可以在Windows资源管理器中正确查看该文件 这仅在一个运行Windows Server 2003 R2的实时环境中发生。在我们的测试系统上，我们可以正确读取文件，尽管这些系统主要是Windows 2008

我有一个用VB6编写的程序，它读取一个长文本文件并执行一个很长的操作。 我也实现了进度条，但我的问题是，当我的程序说“没有响应”之后，它会在任务完成后再次开始响应 如何消除此“无响应”问题？您可以在长时间操作中调用DoEvents，但要小心，因为它与此相关。Windows/Explorer会将进程更改为“无响应”状态，如果进程太长而不处理任何消息。 在VB6中，当运行一长段代码而不调用DoEvents时，就会发生这种情况 不幸的是，VB6不容易执行多线程，因此最好的选择是在操作期间定期调用DoE