
告诉你一个最有效的方法
text1.selstart = len(text1.text)。】 case is 0 text1.text "星期日 sunday " case is 1 text1.text "星期一 monday " case is 2 text1.text "星期二 tuesday " case is 3 text1.text "星期三 wednesday " case is 4 text1.text "星期四 thursday " case is 5 text1.text "星期五 friday " case is 6 text1.text "星期六 saturday " '**********space********** case 【。】 5 * val text1.text - 32 / 9end subprivate sub text1_keypress keyascii as integer if keyascii 8 then '**********space********** if chr keyascii "0" or chr keyascii 【。
这个方法怎么样,只是对自动换行的textbox和richtextbox无效。
还是用GetLineFromChar这个属性比较好k=12'指定要计算字符的行
hang=0
fori=1tolen(richtextbox1.text)
p=RichTextBox1.GetLineFromChar(i)

ifp=kthenhang=hang+1
nexti这样hang最后的值就是那一行字符数。如果为了精确,最好判断一下这一行中有没有chr(13)以及chr(10)这两个字符,如果有则把这两个字符数减去
循环中的代码可以改成这样:
p=RichTextBox1.GetLineFromChar(x)
pp=asc(mid(richtextbox1.text,i,1))
ifp=kandpp<>10andpp<>13thenhang=hang+1
这样就行了。

EM_GETLINECOUNT
AnapplicationsendsanEM_GETLINECOUNTmessagetoretrievethenumberoflinesinamultilineeditcontrol.EM_GETLINECOUNT
wParam=0;//notused;mustbezero
lParam=0;//notused;mustbezero
Parameters
Thismessagehasnoparameters.ReturnValues
Thereturnvalueisanintegerspecifyingthenumberoflinesinthemultilineeditcontrol.Ifnotextisintheeditcontrol,thereturnvalueis1.QuickInfo

WindowsNT:Requiresversion3.1orlater.
Windows:RequiresWindows95orlater.
WindowsCE:Requiresversion1.0orlater.
Header:Declaredinwinuser.h.
vc++2005中的richTextBox怎么用啊!
用RichTextBox如何将图片保存为一个RFT文件
RichTextBox输入图片的问题!

如何让100个TEXTBOX控件的GOTFOCUS事件都触发一个方法
TextBox里信息的长度
做时,是将textbox控件绑定到字段好,还是用程序处理好?
怎样使textbox的text内容和checkbox控件的caption长度能自适应变化呢?
请问如何设置richtextbox的第某行第某个字符到第某个字符的背景色
请问一下,如何显示TEXTBOX中文本显示的次数呀
Richtextbox 问题
richtextbox为何无法设置字体颜色呀?textbox控件是可以设的.为何richtextbox就不行呢?
richtextbox,控制光标的问题。
本文来自电脑杂谈,转载请注明本文网址:
https://www.pc-fly.com/a/jisuanjixue/article-95132-1.html
更新9
进贡够了