【100JB悬赏】取文本像素宽度，如何获取指定某段文本占用的像素(宽度)

霸哥

如题，想获取某段文本在屏幕上占据多少像素(要准确的，取文本长度()*8 这种就不要说了)；
可以是编辑框里的内容、可以是画板上写出的文本；

不要模块命令

咪兔

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
h	整数型
w	整数型

画板1.字体 ＝ 编辑框1.字体
h ＝ 画板1.取高度 (“咪兔”) ÷ 2
w ＝ 取文本长度 (编辑框1.内容) × h
调试输出 (w)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 h, 整数型<br /> .局部变量 w, 整数型<br /> <br /> 画板1.字体 ＝ 编辑框1.字体<br /> h ＝ 画板1.取高度 (“咪兔”) ÷ 2<br /> w ＝ 取文本长度 (编辑框1.内容) × h<br /> 调试输出 (w)

镇坛道德标杆

hdc = GetDC( xxx.取窗口句柄())

GetTextExtentPointA (hdc, Title, 取文本长度 (Title), SIZE)
ReleaseDC (xxx.取窗口句柄 (), hdc)

  

数据类型名	公开	备 注
SIZE		SIZE
成员名	类 型	传址	数组	备 注
宽度	整数型			width
高度	整数型			height

.版本 2<br /> <br /> .数据类型 SIZE, , SIZE<br />     .成员 宽度, 整数型, , , width<br />     .成员 高度, 整数型, , , height

zgmcrf

画板.取宽度（取某段文本）

咪兔

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 h, 整数型
   
6. .局部变量 w, 整数型
   
7. 
   
8. 画板1.字体 ＝ 编辑框1.字体
   
9. h ＝ 画板1.取高度 (“咪兔”) ÷ 2
   
10. w ＝ 取文本长度 (编辑框1.内容) × h
    
11. 调试输出 (w)
    

复制代码

咪兔

这样也可以

画板1.字体 ＝ 编辑框1.字体
调试输出 (画板1.取宽度 (编辑框1.内容))

jr21066

如果是做自适应编辑框.有个笨办法.用编辑框的自动换行来判断.

  

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
行号	整数型

编辑框2.内容 ＝ 编辑框1.内容
编辑框2.起始选择位置 ＝ -1
外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )
判断 (行号 ＝ 1)
循环判断首 ()
外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )
编辑框2.宽度 ＝ 编辑框2.宽度 － 1
如果真 (编辑框2.宽度 ＜ 100)
跳出循环 ()

循环判断尾 (行号 ＝ 1)
编辑框2.宽度 ＝ 编辑框2.宽度 ＋ 2

判断 (行号 ＞ 1)
循环判断首 ()
外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )
编辑框2.宽度 ＝ 编辑框2.宽度 ＋ 1
循环判断尾 (行号 ＞ 1)
编辑框2.宽度 ＝ 编辑框2.宽度 － 2


编辑框1.宽度 ＝ 编辑框2.宽度

.版本 2<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 行号, 整数型<br /> <br /> 编辑框2.内容 ＝ 编辑框1.内容<br /> 编辑框2.起始选择位置 ＝ -1<br /> 外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )<br /> .判断开始 (行号 ＝ 1)<br />     .循环判断首 ()<br />         外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )<br />         编辑框2.宽度 ＝ 编辑框2.宽度 － 1<br />         .如果真 (编辑框2.宽度 ＜ 100)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .循环判断尾 (行号 ＝ 1)<br />     编辑框2.宽度 ＝ 编辑框2.宽度 ＋ 2<br /> <br /> .判断 (行号 ＞ 1)<br />     .循环判断首 ()<br />         外部编辑框_取光标所在行和列号 (编辑框2.取窗口句柄 (), 行号, )<br />         编辑框2.宽度 ＝ 编辑框2.宽度 ＋ 1<br />     .循环判断尾 (行号 ＞ 1)<br />     编辑框2.宽度 ＝ 编辑框2.宽度 － 2<br /> .默认<br /> <br /> .判断结束<br /> 编辑框1.宽度 ＝ 编辑框2.宽度

123.rar (153.84 KB, 下载次数: 3)

2017-12-11 10:00 上传

点击文件名下载附件