如何在visual basic 6中检索字符串数组的最后一个元素 我处理的文件名包含多个点，这些点被分割成一个数组，我只想处理扩展名。下面的代码可以工作，但有一个硬编码元素我想删除 Private Sub Form_Load() Dim aPath() As String Dim FileName As String Dim realExt As String FileName = "A long dotty.file.name.txt" aPath =

在VB6中，如果包含字母数字数据的列表框具有焦点并且按下了字符键，则列表框中以该字符开头的第一个元素将高亮显示。如果按下多个字符，则在每次按下字符后都会选择以每个字符开头的第一个元素。键入M-A-R-T将选择第一个M字，然后选择第一个A字，以此类推 我想做的是编写一个算法，使用多个字符串动态搜索列表框。因此，键入M-A-R-T将突出显示以M-A-R-T开头的第一个元素。“Sorted”属性已经做到了这一点，但我的列表框位于一个包装器中，该包装器使用自定义排序方法，如果启用Sorted，该方法将被

使用VB6，是否可以获取active directory中所有可用域的列表 谢谢， Alex将ActiveDS类型库和ADO的引用添加到项目中 Sub GetDomains() Dim objRootDSE As IADs Dim objBase As IADs Dim path As String Dim rsDomains As ADODB.Recordset Dim cnADS As ADODB.Connection Dim cmdCommand As

我有从txt文件读取值的记录集rc1。字段为rtn，amt，name。现在我从表t\u rec中获取数据，并将其分配给另一个记录集rc2。并与记录集rc1进行比较 If rd1.Fields![AccountNbr] = rc2.Fields![RTProvided] Then Set rc2.Fields![ClaimStatus] = "c" rc2.Fields![DateClosed] = CqDate rc2.Fields![Audi

我正在尝试连接Gramin usb GPS以获取visual basic项目中的坐标，但我不知道如何实现此目的，请有人给我指出正确的方向吗？如果Garmin装置使用RS-232（标准串行）接口，然后，它的USB驱动程序可能会实现一个虚拟串行端口，您可以使用MSCOMM控件打开该端口 打开硬件管理器检查是否有额外的端口，甚至可能在插入时标记为“Garmin” GPS装置使用简单的标准文本协议。只要没有其他应用程序打开该端口，您就应该能够在VB中打开该端口并捕获输出，只需对波特率等进行一点实验。48

我正在使用VB6 Winsock控件。当我向服务器发送帖子时，我会将响应作为多个数据到达事件返回 您如何知道所有数据何时到达 （我猜是Winsock_Close事件触发的时候）我过去使用过VB6 Winsock控件，我所做的是以某种方式格式化消息，以了解所有数据何时到达 示例：每条消息以“[”开头，以“]”结尾 “[消息文本]” 当数据从DataArrival事件传入时，请检查消息“]”的结尾。如果在那里，您至少收到了一条完整的消息，并且可能是新消息的开始。如果有更多消息正在等待，请将消息数据存

如何在Visual Basic 6中保存断点？ 有插件吗？目前我有MZ工具，但不幸的是，它们不保存断点。我不确定是否有第三方工具，但您可以始终使用： Debug.Assert False 完成后请记住将其删除。这就是Stop语句的作用，即充当永久性无条件断点。这是一个不错的VB6加载项，用于在退出时保存断点。 当您说Visual Basic 6时，是指使用Interdev吗？断点不是从一个会话保存到下一个会话吗？（老实说，我不记得了，但我认为他们是）VisualStudio6是IDE的名称。当

如何在VB6.0中执行此操作 当文本框为空时，文本框中有一个默认标题，比如说“在此处输入名称”。但当用户填写时，标题将被替换 如果希望在用户选择文本框开始键入之前在文本框中输入默认值： 对文本框使用GotFocus（）事件，并插入以下内容作为代码：txtName.text=”“ 在LostFocus（）事件中，使用： If txtName.text = "" Then txtName.text = "Enter Name Here" End If 如果希望在用户选择文本框开始键入之前在文本框中

我看到的是一个旧的VB6 ActiveX.dll，它的无人参与执行和保留在内存中检查框显示为灰色。我发现当表单附加到项目时会发生这种情况。我删除了表单，但是框仍然是灰色的 我必须做些什么才能使它们能够单击？我刚刚在一个全新的VB6 ActiveX dll项目中尝试了这一点，您是对的，添加表单后无人参与的执行框将灰显，但一旦删除表单，该框将再次启用 这个项目非常简单——一个类和一个表单，所以我不知道你的项目中是否有其他元素会使复选框变灰 更新： 我刚刚试过另一种方法。我启用了无人参与执行，以查看我

我有一个VB6.0遗留项目，它使用Active Reports Pro 2.0生成报告。 在运行时，一切似乎都正常，但报告没有出现 我使用windows 7作为操作系统 怎么了 谢谢用错误处理将报告代码包装起来，并记录这些错误。具体来说，点击详细信息，ReportStart，ReportInitialize事件。问题很可能发生在这些系统中的某个地方，而您的代码或ActiveReports正在消化错误。您能否更具体一些。您正在运行哪一行代码来显示不起作用的报告？

我决定尝试为VB6提供service pack 6，这是一个使用我们的旧版应用程序的尝试。我希望它能使旧的应用程序工作得更好，崩溃更少，这样我们就可以继续将这个应用程序迁移到.NET。无论如何，这个VB6应用程序有十几个我们编写的DLL，都是用VB6编写的，都是用SP5编译的。我是否必须将VB6 SP6应用于所有DLL项目以及主VB6 Windows应用程序？这样做是明智的，因为您将在编译器等中获得任何增强功能 它有点过时了，但我认为您不会发现任何需要处理的重大代码更改。通过SP5和SP6做了大

我应该什么时候去学习模块，什么时候去上课 模块和类何时加载到内存中 我可以卸载已经加载的模块和类吗？静态（BAS）模块加载并在运行期间保持驻留状态。类（CLS）模块提供更动态的代码和数据分配 类还提供更好的封装，可以创建多个实例，可以持久化，并且与静态分配相比具有许多其他优势 手册中有一个完整的章节，您可能需要阅读和学习。学习版以上的所有合法VB6版本应在随附的MSDN CD中包含此材料和更多内容。还可以从一些新的和使用过的来源找到硬拷贝书籍。静态（BAS）模块在运行期间加载并保持驻留状态。类（

我需要在VB6开发项目中使用对Microsoft Word 97的引用。（说来话长——简而言之，如果我使用MSWord97的ref，那么我就可以支持Word 97+） 我在我的开发机器上使用MicrosoftWord2007。理想情况下，如果我不安装Word97，那就太好了 在VB6中，我试图设置对C:\Software\Microsoft\Office97Pro\OFFICE\mso97.dll（软件路径-未安装）的引用，但没有成功。然后，我尝试了regsvr32 mso97.dll，但出现了

我在TextBox1.GotFocus事件函数的第一行有一个断点 当我在别处调用TextBox1.SetFocus时，GotFocus断点从未被击中。为什么? 调用函数中的代码：Text1.SetFocus Private Sub Text1_GotFocus() // code here End Sub 一个小节目来说明我的意思 运行程序并单击表单（标题保留为1），单击文本2以使其成为焦点，然后再次单击表单（标题更改为2） 然后在表单中取消对Text2.SetFocus的注释时执行

通过我的代码，我可以启动和停止服务，基本上在我的应用程序中，我正在刷新WIA窗口服务。因此，在停止服务之前，我想知道状态。。据我所知，QueryServiceStatus执行此操作，但在我的代码中返回0（失败） “启动/停止/暂停/继续服务” '服务名称是 '命令可以是0=开始，1=停止，2=暂停，3=继续 ' '如果成功，则返回True，否则返回False '如果有任何错误，请致电Err.LastDLLError以了解详细信息 函数ServiceCommand（ByVal ServiceNam

我的图表如下： Private Sub pin8_Paint() pin8.Line (48, 48)-(168, 96), vbBlack, B pin8.Line (56, 48)-(72, 32), vbBlack, B pin8.Line (82, 48)-(98, 32), vbBlack, B pin8.Line (108, 48)-(124, 32), vbBlack, B pin8.Line (134, 48)-(150, 32), vbBlack, B pin8.Line (5

我正在尝试将此HTML保存到HTML文件中。此代码有两个问题 1。它认为“刷新”部分不是字符串的一部分 我已经尝试了使用Chr（34）而不是“但是它仍然把我带到错误2”来修复这次购买 2.当我打开HTML文件时，它在所有文本周围都有引号，看起来像垃圾 我将如何着手修复这些错误？谢谢 Dim nFileNum as Integer nFileNum = 4 Open "WebWindow.html" For Output As #nFileNum 'Open the fil

使用Headers属性时，以下代码中出现错误： Public Function UploadImage(image As String) As String Dim wc As System.WebClient 'create WebClient Set wc = CreateObject("System.Net.WebClient") Call wc.Headers.Add("Authorization", "Client-ID " & ClientId) <------

我是vb6和通信应用程序的新手，我尝试运行一个在两个串行端口之间发送和接收数据的示例（我通过com0comsoft安装了两个串行端口） 在本例中，我希望用户在textbox1中键入charracters，然后单击命令按钮，textbox1中的charracters将显示在textbox2中 Private Sub Command1_Click() com1.Output = Text1.Text End Sub Private Sub Form_Load() com1.CommPort = 1

这段代码不起作用，因为它没有正确地显示剩余部分，因此无法计算十六进制 正确：100093357561071/16=62558345984756.69 VB6 MyMod返回0而不是有效的余数 我一直不知道如何将如此大的值转换为十六进制字符串？VB6中唯一方便的数据类型是变量的十进制子类型，它可以准确地表示100093357561071。Double和Currency本机类型都缺少所需的精度 还有处理有符号值的问题，以及需要多少字节的精度，是否应抑制前导零，以及其他可能的问题 很难想象在实际应用中

我正在写一个VB6程序，需要一些关于PlaySound函数声明语法的帮助。我已经编写了附带的代码片段，它成功地播放了Tada.wav，但没有反映所有的标志 我可以有多个dwFlag，还是仅限一个 我希望dwFlags包括SND_ASYNC、SND_FILENAME和SND_LOOP 以下是我迄今为止尝试过的代码： Dim RetVal As Variant Private Const SND_ASYNC As Long = &H80 Private Const SND_FILE

我遇到了一个问题，VB6给了我一个溢出。我使用逐位运算来查找单个位的状态，但该语句尤其是以下语句的最后一行： 将a变暗为双精度 双倍调暗b 双精度c a=2^31 b=0 c=b和a 错误发生在最后一行，溢出。我的印象是And运算符被限制为4个字节（在VB6中是长的），因此溢出了 a=2^31 它大于长的上限。有人能确认/澄清/解决这个问题吗？同样，我只需要找到单个位的状态。（如果我使用a、b和c货币，也就是8字节，但存储为整数类型，也会出现这种情况。我需要44位，因此默认为8字节数据类型） （

我想为我在visual basic 6项目中创建的所有表单制作一个模板，例如，我想在所有包含用户名等的表单上添加一个标题，我知道在c#中，我所要做的就是使用适当的控件制作表单，并使所有其他表单从中继承，在visual basic 6中，似乎没有使窗体从另一个窗体继承的方法 要创建自己的模板，请保存要用作模板的对象 模板，然后将其复制到Visual Studio的相应子目录 基本模板目录。例如，创建自定义MyForm表单 模板，保存名为MyForm的表单，然后将MyForm.frm文件复制到 \V

尝试在VisualBasic6中制作游戏“21”，我已经完成了所有操作，但是MsgBox在半身像或21点时没有显示。有什么想法吗 Private Sub cmdCheckScore_Click() lblPC1.Visible = True lblPC2.Visible = True lblPC3.Visible = True End Sub Private Sub cmdDrawCard_Click() If lblDraw1.Caption = "" Then 'Draws 3

您的代码示例缺少开头的Do语句，可能是一个over-site。另外，@nabuchodonossor是正确的，因为在循环结束时，最后一条记录的字段（0）的值最多为txtschair.Text。但是，您需要的帮助是构建一个字符串查询，在该查询中，您将用一个变量值替换字符串的一部分 private Command1_Click() Dim a as string a = text1.text OpenQuery "SELECT * FROM a W

好的，假设我有一个示例文本文件，其中包含一些逗号分隔的值，如下所示： -1,0,3,0,5,4,6,7,8,9 我想在VB 6.0中制作一个程序，打开该文件，读取值并将其存储在变量中，这些变量显示在文本框中，如（示例）： 等等 因此，当我在程序文本框中输入这些值并点击save file时，它会用新值保存文件。就这么简单。谢谢你们 （注意：此答案假设文本文件仅包含一行。） 首先，您需要读取文本文件： Dim rawData as string Dim sFileText as String D

我有替换预定变量字符串的代码，但我的代码似乎效率不高，因为如果需要替换的字符串越多，替换函数就越多，我该如何处理 Dim appName As String Dim appVer As String Dim desc As String appName = "MyProject" appVer = App.Major & "." & App.Minor & "." & App.Revision desc = "{appName} {appVer} is free

我在文件写入似乎停止0x4000的位置遇到问题 For wrtCntr = 0 To lpNumDataBytesReturned - 1 WriteDataBuffer_trans(wrtCntr) = TransposeBits(ReadDataBuffer(wrtCntr)) Put #4, , WriteDataBuffer_trans(wrtCntr) Next wrtCntr '' Ret = WriteFile(FileH, WriteDataBuffer_tra

我最近编辑了一位同学的数据收集软件，符合我的要求。当我在Visual Basic 6中运行时，该程序运行良好，但理想情况下，我希望将该程序编译为.exe文件，以便可以从任何PC上运行。但是，当我选择将其转换为exe的选项时，在编译该程序时出现以下错误： 编译错误：未定义子或函数 我很好奇为什么我的程序会在Visual Basic中运行，但不能编译成exe。如有任何修复/建议，将不胜感激 您必须使用Start（F5）在IDE中运行应用程序-这不会执行完整编译，因此不会捕获所有编译错误。我建议您始终

在我的运动控制软件和等离子割炬之间通信时，偶尔会出现这种错误。串行链路用于在切割开始前一次性设置切割信息。我正在使用VB6和MSComm来实现这一点 我知道端口本身已经失效，因为发生故障后，其他串行通信软件诊断程序等也无法访问端口。我想了解MSCOmm在收到此错误时正在做什么，以便找到更好的硬件解决方案。Mscomm32.ocx仍由Microsoft提供。你可以请他们的支持人员帮忙。如果您订阅了MSDN，您可能有权获得免费支持事件 抱歉如果您已经想到了这一点，我希望其他人能给您一个直接的解决方案

有一种方法可以将语音识别集成到Visual Basic 6项目中？以下是一些有用的资源： 您可以使用Microsoft speech SDK（软件开发工具包）向程序中添加语音和文本到语音。您可以从以下位置下载4.0a版： 下载SDK后，需要进行“培训”，以提高语音识别的准确性 资料来源：

MSBuild脚本在正确执行时遇到问题，但在TFS Build Explorer中，它报告一个失败的红色X图标。然而，尽管所有构建报告都失败了，但如果我检查日志，它们看起来很好，并以以下内容结束： 已在项目TFSBuild.proj中完成构建目标EndToEndItemation。 已完成构建项目C:\Builds\EDRM Development\CI\u Development\u IW471\u UserGroup\u CG3\BuildType\TFSBuild.proj EndToEn

我有一个用VB6编写的代码。 我有一些变量，可以通过一些代码操作来删除？ 删除一个或两个额外变量有什么好处吗？而不是删除变量（您如何引用任何内容？）只需缩小其范围。而不是删除变量（您如何引用任何内容？）只需缩小其范围。删除局部变量通常有两个原因 该程序使用更少的内存 记忆，这是很小的，不是 删除变量的原因 代码变得非常复杂， 更容易阅读，而且更少 复杂的。（这是删除变量的真正原因） 由于维护（尤其是VB6）是您花费90%时间编程的地方，因此让您的生活变得更轻松是值得的。删除局部变量通常有两个原因

我有一个项目正在使用以下方式加载图像： imgwrc1.Picture = LoadResPicture(115, 0) 现在我如何添加图像并给它id 116，参数中的0显示它是位图，但项目文件夹中没有位图。那么从哪里加载图像呢。 我想在对话框中显示此图像从加载项管理器加载VB资源编辑器加载项，然后将图像添加到资源文件，然后使用LoadResPicture函数访问它。我知道图片必须存储在资源文件中，现在如何在VB编辑器中将图像添加到资源文件中

我有一个正在使用Printer对象打印文件的打印应用程序。在一台特定的机器（而不是其他机器）上，该程序在处理一定数量的文件（20个左右）后将崩溃 崩溃总是发生在DoEvents呼叫期间 有人见过这样的东西吗 谢谢 我会检查Watson博士和mini dump文件，找出到底是什么崩溃了。在XP上，它存在于： C:\Documents and Settings\All Users\Application Data\Microsoft\Dr Watson 在其他版本的Windows中，不同的位置。使用

我正在使用mshtml.tlb加载/解析html，我想扩展它，以便按代码单击元素。问题是在点击按钮后，加载过程陷于停顿。 在我的特定情况下，我希望执行用户登录 这是我的密码： Dim WithEvents m_doc As HTMLDocument ' load page Set m_docNU = New HTMLDocument Set m_doc = m_docNU.createDocumentFromUrl(m_url, vbNullString) Do While m_doc.re

如何使用CDO向一组收件人发送电子邮件？我使用的是VB6。这在Office 97和我们当时进行的任何交换中都有效： Dim oOApp As Outlook.Application Dim newMail As Outlook.MailItem Set oOApp = CreateObject("Outlook.Application") Set newMail = oOApp.CreateItem(olMailItem) With newMail .Di

我已经承担了VB6应用程序的责任 我在一台旧机器上安装了VB6 IDE。当我编译应用程序并将.exe复制到客户端计算机时，Rich Textbox控件会破坏应用程序并导致运行时错误 在哪台机器上编译应用程序有多重要？应用是否可能需要具有不同ID的控件，因此出现运行时错误？您需要将Rich Textbox控件richtx32.ocx部署到客户端计算机。显示它不是Windows的一部分，您需要自己部署它 您可能希望为您的程序创建一个 您可以查看，以便只复制程序及其依赖项（如richtx32.ocx

我帮助开发了一个程序，它可以让玩家在全屏游戏打开时管理他们的音乐等。以前，我在表单上有一个WMP控件的不可见副本，我只是操纵该副本以产生所需的效果，但现在我收到了用户的请求，要求删除WMP控件，以便他们可以将软件放在专用服务器上。我的问题是，如何通过删除控件来维护WMP支持，而是添加对msdxm.ocx或WMP.dll（或两者）的引用，并在运行时创建WMP对象 我处理的系统范围从98-W7。使用wmp.dll和msdxm.ocx签入引用 我已经试过了： Dim WMP as New Window

正在寻找在VB6中执行此操作的最佳方法。通常，我会使用这种方法 ' count spaces For i = 1 To Len(text) If Mid$(text, i, 1) = " " Then count = count + 1 Next 并不是说这是最好的方法，但您可以： distinctChr = " " count = Len(text) - Len(Replace(text, distinctChr , "")) 我将使用修改后的桶排序

是否有方法使用Visual Basic 6（例如通过COM接口）以编程方式填写Infopath 2003表单？Infopath基于XML，因此没有编程挂钩（如您所想）来操作接口。通过在用户打开表单之前手动更改XML，可以从另一种语言预先填充表单。如果您是表单设计器，InfoPath还支持多种内部脚本语言 如果你想分享更多关于你的情况的信息，我们可以推荐最好的方式

我在记事本中打开了VBP文件，那里有不同的标签，如CompatibleMode，Command32，HelpContextID，ServerSupportFiles，编译类型，优化类型，收藏夹PentiumPro（tm），代码视图调试信息，开始模式 我想知道不同标签的含义。如果您有任何想法，请回复。我在谷歌上找到了，但什么也没找到。所有这些标签都指向您的项目属性。 在VB6中打开项目时，转到“项目”菜单并单击“项目名称属性…”。从那里开始，VB6帮助可以告诉您想要知道的一切 比如说 版本兼容性

为了管理来自特定客户端的错误，我正在考虑让应用程序在启动时向我发送当前的错误日志文件 在VB6/XP环境中实现这一点的最佳方法是什么 电子邮件可能很容易，但我想这可能会触发各种防病毒/防火墙保护 连接到Web服务器可能更好。在这种情况下，应用程序还需要打开Windows防火墙吗？我正在使用XMLHTTP上传客户端错误日志，如下所示： 我认为，从他们的电脑到你的电脑的任何连接都会触发Windows防火墙。唯一可能不会触发Windows防火墙响应的是，如果您尝试在端口80上执行HTTP请求，但即使这

我找到了一些在线资源，展示了如何在Windows7 64位机器上编译vb6代码。由于我没有计算机科学背景，我不确定将windows 7 64位计算机上生成的DLL部署到windows server 2003 32位计算机上是否有任何障碍 在我的windows 7计算机上编译vb6可以吗，即使它是针对windows 2003服务器的？可以，也可以。VB6总是编译32位应用程序，并且它链接到VB6运行时。是的，这样做很好。VB6总是编译32位应用程序，并且它链接到VB6运行时。我遇到了在Win 7

我正在编写一个VB6程序，该程序需要打开MS Access 2010数据库.mdb，但尝试时出现无效文件类型错误。我需要更新驱动程序吗？我需要的答案，但不知道是安装VB6 SP6。几年前，我在一台新电脑上安装了VB6，但不知道有什么service pack可以让VB6处理post MS Access 1997表格。不过还是谢谢你 如果可以用开发机器打开Access数据库，那么应该可以通过代码打开它。你没有显示任何代码，因此我们无法进一步帮助你。你就是问这个问题的戴尔吗？您是否碰巧创建了两个帐户？

我是vb新手，试图通过搜索网络或询问同事来解决问题，但现在我陷入了死胡同。我想让我的程序在保存到数据库之前确保我的所有文本框都已填充 这是我的密码： Private Sub CmdSave_Click() Set rs = New ADODB.Recordset With rs .Open "Select * from table1", cn, 2, 3 If LblAdd_Edit.Caption = "ADD" Then If MsgBox("Do

大家好，我是一名php开发人员，但自从在一家公司工作以来，我得到了一份vb6项目的工作 这个软件很旧，至少有10年了，我一点也不懂vb6。但我仍然设法解决了一些错误，但现在我坚持下去，没有得到任何解决方案。我在编译项目时遇到了这个错误，突出显示了这段代码 with.Panels6=已选择 Public Sub StatusBarDateTime() '' FrmMain.Stb1.Panels(5) = Time FrmMain.Stb1.Panels(6) = Format(Da

当strCompany长度超过255个字符时，VB6将关闭，但在下面的行中不会显示错误消息。有什么办法可以让它工作吗 rptReport.ParameterFields。GetItemByName@company.AddCurrentValuestrCompany我个人从未遇到过这种情况，但下面是我如何将数据添加到Crystal Reports中的参数中，并且工作正常 rptReport.SetParameterValue("@company", strCompany) 当然，@compa

我是自学成才的业余Visual Basic程序员。我的节目是为我自己、朋友和一些非营利组织准备的。我有一个情况，我认为会相当简单，但似乎不是这样 我有一个名为txtBilled的6个元素1-6的文本框数组。当值输入到除元素6以外的任何元素时，我想将值添加到1-5中，并将结果放入元素6。我的问题是由于文本数组的属性没有提供失去焦点选项。搜索国际米兰提供了这样一种说法：这是正常的，其他人说失去的焦点应该一直存在。 作为第二种方法，我尝试使用validate元素。以前从未使用过这个，我在网上找到了一个

我正试图找出类型不匹配错误的原因，但我不明白它被抛出的原因。我正在分配一个与从中分配的变量类型相同的变量 Begin bxControls.starTable m_tblClaims 'Defined at the top of the form file Dim objTable As PVDataTable5.DataTable Set objTable = m_tblClaims.Table 正如您所看到的，发生的赋值不应该有类型不匹配，因为它们是相同的类型。任何帮助都会很棒。TIA试