标签: vb6

有人可以帮助我恢复思绪吗？

如何在Visual Basic 6/VBScript源中指定十六进制值？

这不是0x ABCD,因为它在C++中,这是我能记住的......它是类似的......但是什么？

我正在尝试在我的桌面上运行遗留的VB6应用程序(它没有用户界面,是一个命令行应用程序),当我这样做时,我收到一个消息框说

Run-time error '4099':

Method '~' of object '~' failed

这对我来说没什么意义; 有没有人知道出了什么问题？

我正在从VB 6应用程序运行SQL Server 2005数据库.我通过ODBC DSN连接到数据库.

我将运行默认SQL服务器实例的计算机从"软件"重命名为"IT".然后我运行sp_dropserver和sp_addserver存储过程来重命名实例.

在重新启动SQL Server服务时,服务器能够获取新的SQL Server名称.

将ODBC数据源名称配置为新名称后,连接为"确定".我能够运行我的应用程序并通过ADO记录集读取记录.但是我无法使用该.Update方法更新任何记录集.我得到以下错误...SQL Server not configured for data access

如何在重命名的服务器实例上启用数据访问？

怎么来IsDate("13.50")的回报True,但IsDate("12.25.2010")回报False？

我试图在Windows 7 32位机器上安装Visual Studio 6.

操作系统来自裸机.

我按照这里提到的说明(我之前使用过)

安装没有报告错误,但是当我尝试添加Microsoft Windows Common Controls 6.0到工具箱时,我得到"对象库未注册"错误.

我尝试手动卸载并重新安装OCX,这两个都成功但我仍然有同样的错误.

我尝试安装SP6并没有错误安装(和更新OCX到更新的版本),但我仍然有同样的问题.

编辑:

如下面进一步调查所述,似乎IE10更新打破了MSCOMCTL.ocx.但是我也认为这与订单有关,因为我有另一台带有IE10的Windows 7机器,工作正常.

我们正在接近取代我们的几台开发者PC,并希望升级到64位以最大限度地提高PC的硬件/寿命,但我们还需要支持几种传统的VB6应用程序.也就是说,微软称它不受支持,但这并不一定意味着它不起作用.但是,只要功能正常,支持对于死工具并不重要.

• 它有用吗？
• 是否需要任何陷阱/变通方法才能使其运行？
• Service Pack 6的安装是否需要特殊考虑？(SP6基本上对VB6使用至关重要)

为什么你会"On Error Goto 0"在VB6应用程序中使用？

此语句将关闭错误处理程序,并且意味着任何错误都会导致应用程序崩溃.为什么这会是可取的？

!在Visual Basic 6.0中将感叹号()放在对象引用变量前面会做什么？

例如,我在代码中看到以下内容:

    !RelativePath.Value = mstrRelativePath

什么!意思？

我试图通过赋值语句在VB6中创建两个相同的对象; 像这样的东西......

Dim myobj1 As Class1
Dim myobj2 As Class1

Set myobj1 = New Class1
myobj1.myval = 1
Set myobj2 = myobj1

很明显,这不会创建两个对象,而是两个对同一对象的引用,这不是我所追求的.有没有办法以这种方式创建第二个对象,或者我是否必须一次复制一个成员对象...

Set myobj2 = new Class1
myobj2.mem1 = myobj1.mem1
...

？

编辑2斯科特·惠特洛克已经更新了他的优秀答案,我已将他的更改纳入这个现在正在运行的代码片段中.

Private Type MyMemento
     Value1 As Integer
     Value2 As String
End Type

Private Memento As MyMemento

Public Property Let myval(ByVal newval As Integer)
Memento.Value1 = newval
End Property

Public Property Get myval() As Integer
myval = Memento.Value1
End Property

Friend Property Let SetMemento(new_memento As MyMemento)
    Memento …

我正在做遗留应用程序的一些工作,而我的VB6技能并不是那么好.我需要检查String字段是否已初始化并设置为null/nothing或空字符串以外的其他字符串.在C#中,我只是做了类似的事情:

if (string.IsNullOrEmpty(myObj.Str))

我不确定在VB6中它的等价物是什么,而且我对使用If myObj.Str = ""它并将其称为好而感到紧张.这样做的正确方法是什么？

为了澄清,如果满足以下任何条件,我希望返回True:

• 该字段尚未初始化
• 该字段为空字符串(str ="",length = 0)
• 该字段设置为null,或Nothing,或vbnull,或任何形式的null值适用于VB6字符串.

该字段最初为Long,我正在替换的代码检查它是否设置为0.