knrt.net
当前位置:首页 >> vB选中文本框部分内容 >>

vB选中文本框部分内容

按下alt+1 把text1中的文字复制到text2么?

Private Sub Command1_Click() '复制 Text2.SelText = Text1.SelText End Sub Private Sub Command2_Click() '清除 Text1.Text = "" Text2.Text = "" End Sub

在vb中,文本框控件(textbox控件)的seltext属性表示文本框控件中选中的文本内容.因此,要用代码删除文本框控件中选中的内容,只需下面一句代码便能实现: text1.seltext=""另外,文本框控件还提供了sellength和selstart这两个与选中文本相关的属性给我们使用.适当运用好这些属性,可实现一些文本框的常见功能.

Private Sub Form_Load()text1.selstart = 1 '这里是选中的开始位置Text1.SelLength = Len(Text1)-1'长度End Sub

'楼上的是只保留第一个文本框中选中的字符,第二个文本框中显示剩余字符'这个是删除第一个文本框中选中的字符,并在第二个文本框中显示剩余字符数Private Sub Command1_Click() Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.

private sub button1_click() '按钮1 me.text = textbox1.textend subprivate sub button2_click() '清楚 textbox1.text = ""end sub

选定好内容后按住[Ctrl]键不放,然后点一下[C]键,然后将光标定位到另一个文本框中,按住[Ctrl]键不放,然后点一下[V]键,就OK了.

public declare auto function getwindowtext lib "user32" alias "getwindowtext" (byval hwnd as integer, byval lpstring as string, byval cch as integer) as integerpublic declare auto function getwindowtextlength lib "user32" alias "

假设按钮是“command1”,文本框是“text1”,在按钮单击事件下输入以下代码:private sub command1_click() 指明过程,单击按钮触发.text1.visible=false 指明触发程序,文本框不可见 end sub 结束过程.

举个简单的例子吧,如:sub form_click() printer.fontname="system" printer.fontsize=24 printer.fontitalic=true printer.print text1.text printer.enddoc end sub 在窗体上画一个文本框,运行,输入内容,单击窗体,即可

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com