[已解决]谢谢爱疯老师。窗体修改

hwc2ycy

hwc2ycy

你的TEXTBOX CHANGE事件里好像还没有针对股票名称查吧。应该是arr(i,2) 做匹配就行了。

lhj323323

hwc2ycy 发表于 2012-9-25 12:17
检测是否输入有汉字，有的话就设置左对齐。

能否在我的原语句中修改？我不懂怎么改

hwc2ycy

用LEN,LENB就能检测出汉字。

hwc2ycy

又犯想当然的毛病了，工作表里可以用函数LEN,LENB检测出双字节，可在V里，这两个函数的输入结果一致，奇怪了。还得折腾。

hwc2ycy

这一段判断汉字的。

1.     Dim bHZ As Boolean
   
2.     For i = 1 To Len(TextBox1.Text)
   
3.        If Asc(Mid(TextBox1.Text, i)) < 0 Then
   
4.            hz = True
   
5.            Exit For
   
6.        End If
   
7.     Next
   
8.     If hz Then
   
9.        TextBox1.TextAlign = fmTextAlignLeft
   
10.     Else
    
11.        TextBox1.TextAlign = fmTextAlignRight
    
12.     End If

复制代码

hwc2ycy

另外，你可以检测下textbox1.text是否为空值嘛。如果为空，后面的查询就可以不用执行了。

lhj323323

hwc2ycy 发表于 2012-9-25 13:18
这一段判断汉字的。

不是针对textbox的左右设置，是针对list里的各列的左右设置

Me.ListView1.SubItems(3).TextAlign = fmTextAlignRight '现价
上面这句又要报错，

hwc2ycy

lhj323323 发表于 2012-9-25 22:13
不是针对textbox的左右设置，是针对list里的各列的左右设置

Me.ListView1.SubItems(3).TextAlign = fm ...

差那个控件，我这看不到了，兄弟。

爱疯

求助_list2.rar (168.11 KB, 下载次数: 18)

2012-9-26 10:54 上传

点击文件名下载附件
{:041:}