Private Sub HScroll1_Change()
da(i) = Trim$(Text1.Text)
If HScroll1.Value = HScroll1.Max Then
i = HScroll1.Max - 1
Label1.Caption = ""
Else
i = HScroll1.Value
Label1.Caption = zw(i)
End If
If da(i) <> "" Then
Text1.Text = da(i)
Else
Text1.Text = ""
End If
Text1.SetFocus
End Sub
请高手告诉我这段中间有错吗？
Private Sub HScroll1_Change()
答案:2 悬赏:80 手机版
解决时间 2021-01-28 05:22
- 提问者网友：蓝莓格格巫
- 2021-01-28 01:32
最佳答案
- 五星知识达人网友：孤独的牧羊人
- 2021-01-28 02:40
有啊
你最先执行da(i) = Trim$(Text1.Text)，此时i尚未赋值,然后才给i赋值，再去判断da(i)是否为空,会得到你想要的结果吗？
你最先执行da(i) = Trim$(Text1.Text)，此时i尚未赋值,然后才给i赋值，再去判断da(i)是否为空,会得到你想要的结果吗？
全部回答
- 1楼网友：有你哪都是故乡
- 2021-01-28 02:49
搜一下：Private Sub HScroll1_Change()
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯