以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]中英文混编的字符串长度  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122843)

--  作者:blsu33
--  发布时间:2018/8/2 21:38:00
--  [求助]中英文混编的字符串长度
老师,
    动态添加控件的长度,不够的用空格不齐,全部是中文的可以对齐,出现应为就不行了,怎么处理?



[此贴子已经被作者于2018/8/3 10:48:18编辑过]

--  作者:blsu33
--  发布时间:2018/8/2 21:40:00
--  


代码


[此贴子已经被作者于2018/8/3 0:14:13编辑过]

--  作者:有点甜
--  发布时间:2018/8/2 21:48:00
--  

获取长度的方式改一下

 

Dim str As String = "中华abc"
Dim len As Integer = Encoding.default.getbytes(str).length
msgbox(len)


--  作者:blsu33
--  发布时间:2018/8/2 23:02:00
--  
老师,
没弄好,劳烦您给看看,为什么呢?例子在一楼,打开FA0101窗口对不齐

--  作者:有点甜
--  发布时间:2018/8/2 23:05:00
--  

参考3楼获取字符数量。

 

全部的.length都要替换成3楼代码获取。具体自行修改。


--  作者:blsu33
--  发布时间:2018/8/2 23:07:00
--  
这句 怎么替换 获取最长字段的长度
  len=dt.sqlCompute("max(len(poutcaption))","[vformid]=\'"& frmname &"\' and [ctlid]=\'"& sendername &"\' and [Countryid]=\'"& ylanguage &"\'")

--  作者:有点甜
--  发布时间:2018/8/2 23:19:00
--  
以下是引用blsu33在2018/8/2 23:07:00的发言:
这句 怎么替换 获取最长字段的长度
  len=dt.sqlCompute("max(len(poutcaption))","[vformid]=\'"& frmname &"\' and [ctlid]=\'"& sendername &"\' and [Countryid]=\'"& ylanguage &"\'")

 

Dim str = dt.sqlFind("[vformid]=\'"& frmname &"\' and [ctlid]=\'"& sendername &"\' and [Countryid]=\'"& ylanguage &"\'", "len(poutcaption) desc")("poutcaption")

 

得到str以后,再求长度。

[此贴子已经被作者于2018/8/2 23:19:04编辑过]

--  作者:blsu33
--  发布时间:2018/8/2 23:26:00
--  
为什么就是不行呢?
例子在一楼 还有新的问题了
点击窗口1主窗口“剪切”,打开的FA0101窗口的字段LABLE 为何没有标注红色,单独打开FA0101是可以标注红色的?

[此贴子已经被作者于2018/8/2 23:29:30编辑过]

--  作者:有点甜
--  发布时间:2018/8/2 23:30:00
--  

请具体说明哪句不行。自行学习编写代码啊

[此贴子已经被作者于2018/8/2 23:30:15编辑过]

--  作者:有点甜
--  发布时间:2018/8/2 23:31:00
--  
这种问题,自食其力。