易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 6.0 string 怎么实现 +=操作?

如题
分步
VB code:
Dim a
Dim b
a = a + 1
a = a + b
'或者
'a = a + 1 + b



哦,是string类型,走眼了。。。


好像没有+=这样的操作符吧,
只能是
dim str1 as string , str2 as string
str1 = "**" str2 = "**"
str1 = str1 + str2

VB不支持这个运行符
只能这样:strOne=strOne +strTwo
或者:strOne=strOne & strTwo
推荐后者,因为前者需要重载。

举个例子:
VB code:
Private Sub Command3_Click()
Dim a As String, i As Long
Dim b(10) As String
b(0) = ""
b(1) = "hehe"
b(2) = ""
b(3) = "heihei"
b(4) = "lala"

For i = 0 To 10
a = a & IIf(a = "", IIf(b(i) = "", "", b(i)), IIf(b(i) = "", "", "," & b(i)))
Next
Debug.Print a
End Sub


再问一个

    Set Fs_Start_Cmd_tcl = CreateObject("Scripting.FileSystemObject")
    Set F_Start_Cmd_tcl = Fs_Start_Cmd_tcl.OpenTextFile(F3, ForWriting, True, 0)

程序提示OpenTextFile 没有该函数或过程,为什么啊?

c = a & b


相关问答:

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

从VB转行VB.NET~~~开始的时候如何学基础入门啊~

VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......

vb中sql语句引号问题

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题:对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......

VB如何联系两个窗体?

就是设计一个计算机模拟考试系统,带有学生和管理员,所以登录窗体和主窗体想分开,登陆学生的显示学生的主窗体,登陆管理员显示管理主窗体,我只会一个窗体用一堆控件,现在享有多个主窗体,不知道怎么做,希望请大 ......

VB连接数据库查询超时问题

再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:

Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号