- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何代码实现文本框右边滚动条在最下面？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101378)
-- 发布时间：2017/5/29 18:29:00
-- 如何代码实现文本框右边滚动条在最下面？
如何代码实现文本框滚动条在最下面？
[此贴子已经被作者于2017/5/31 16:40:44编辑过]
-- 发布时间：2017/5/31 9:03:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.ScrollBars = System.Windows.Forms.ScrollBars.Horizontal
-- 发布时间：2017/5/31 10:31:00
--
您好 这个代码是错的 ，我用了这个代码滚动条都不见了
-- 发布时间：2017/5/31 10:55:00
--
你说的是 Vertical 纵向滚动条 打开后在最下面吧？
-- 发布时间：2017/5/31 11:06:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Sendkeys.Send("{End}")
-- 发布时间：2017/5/31 11:13:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.ScrollBars = System.Windows.Forms.ScrollBars.Horizontal
txt.WordWrap = False \'自动换行设置成false
-- 发布时间：2017/5/31 16:39:00
--
是的纵向
-- 发布时间：2017/5/31 16:40:00
--
老师 我要的是 右边 纵向的 ...谢谢麻烦您了
-- 发布时间：2017/5/31 16:49:00
--
Dim txt As Object = e.Form.Controls("TextBox1").BaseControl
txt.SelectionStart = txt.text.Length
txt.SelectionLength = 1
txt.ScrollToCaret()
txt.SelectionLength = 0
| 下载信息 [文件大小：300.0 KB 下载次数：14] | |
 点击浏览该文件:textbox滚动例子.table |