我在一个表单中有两个文本控件
txtBB,txtPsd 一个用来输入BB号码,一个用来输入密码

'定义一个全局函数用来给字符串填充空格,补足位数
Public Function fillstr(str As String, num As Integer) As String
Do While Len(str) < num
str = str + " "
Loop
fillstr = str

End Function


Private Sub cmdGo_Click()
Dim strPsd, strIp As String

strBB = txtBB.Text
strPsd = txtPsd.Text

strIp = winsck.LocalIP

If txtBB = "" Or txtPsd = "" Then
MsgBox "BB号码或密码不能为空！！！", vbOKOnly, "BB信使"
If txtUser = "" Then
txtUser.SetFocus
Else
txtPsd.SetFocus
End If
Else

strBB = fillstr(strBB, 9) '这个执行都没问题
strPsd = fillstr(strPsd, 12) '每次执行到这都说strPsd类型不匹配,但它明明是STRING型呀!!!!
MsgBox strPsd + ":"
'用fillstr函数把位数填满

winsck.SendData "0" + strBB + strPsd + strIp

End If
End Sub

不过如果我把传入的值改一下就没问题了
比如strPsd=fillstr(strpsd+"",12)
能过+""把它强制变成string型,但我郁闷的是
strpsd被我定义的是string,并且取的txtPsd文本框的值
为什么不是string型!@!!!!

[此贴子已经被作者于2006-10-24 9:46:41编辑过]

Private Sub cmdGo_Click()
Dim strPsd, strIp As String

strBB = txtBB.Text
strPsd = txtPsd.Text


应该是 dim strpsd as string, strip as string

难道VB定义不能用这种简写!!!!!!!!!!!!!!!!!!!!!!!!!

确实如此哈,我如此定义后不出错了,但我就很郁闷呀
书上都有这种形式!!!!!

有没有跟我这种方法相似的简写方式但不出错的申明方式

呵呵 你用的方式不对而已...那种定义 第一个函数的类型就是V类型..

明白了,用那种方式后面没跟类型的是V变体型
根本不能达到定义多个相同类型的目的,只是定义了多个变量
急使相同类型也要在后面跟上类型符
这样点都不好了
还是C好
int x,y,z,a,b,c /*定义的都是int型,呵呵*/

怎么说呢 可能是VB比C宏扩展化 虽然简便了 但是一些基本的东西可能就要费点事了 比如堆栈......