vb6.0窗口标题显示有关问题

2013-01-22

vb6.0窗口标题显示问题Dim mc(18) As Byte名字（unicode转换成中文名字）Dim s As Long年龄假如在窗口标题

vb6.0窗口标题显示问题
Dim mc(18) As Byte'名字（unicode转换成中文名字）
Dim s As Long'年龄
假如在窗口标题上显示 XXX同学xx岁
Me.Caption = CStr(mc) & "--" & s这样只显示mc。不显示s.
Me.Caption = s & "--" & CStr(mc) 这样写都可以显示。但是我要实现的是上面那句。先显示名字接着显示年龄。请大家帮帮忙 vb
[解决办法]
选错代码格式了。

Private Sub Form_Load()
    Dim mc(18) As Byte
    Dim s As Long
    Dim lLength As Long
    
    '模拟数据
    mc(0) = &HF
    mc(1) = &H5C
    mc(2) = &HE
    mc(3) = &H66
    s = 10
    
    '名称要取 ChrW$(0) 之前的有效部分
    lLength = InStr(1, CStr(mc), ChrW$(0)) - 1
    If lLength < 0 Then lLength = 0
    Me.Caption = Left$(CStr(mc), lLength) & "--" & s
End Sub

[解决办法]

引用:

CStr(mc) & "--" & CStr(s) 这个我试过。还是只显示mc。后面的s显示不出来。不知道为什么

估计是有chr(0)给截断了，试试看
Replace(CStr(mc), Chr(0), 0) & "--" & CStr(s)

热点排行

VB

vb6.0窗口标题显示有关问题