VB2005
中文本框的两个小问题 1.当文本框得到焦点时选中所有
内容 在6.0中 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 这样是可以的 在2005中 Private Sub Text
Box1_GotFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles Text
Box1.GotFocus Text
Box1.SelectionStart = 0 Text
Box1.SelectionLength = Text
Box1.TextLength End Sub 却不行 2.能否
禁止文本框不接受粘贴
功能,或是有粘贴
功能时就触发某一事件? __________________________________________________________________________ 2.能否
禁止文本框不接受粘贴
功能,或是有粘贴
功能时就触发某一事件? 这话怎读起来那么别扭? 改改: 2.能否让文本框不接受粘贴
功能,或是有粘贴
功能时就触发某一事件? __________________________________________________________________________ 你先看一下Text
Box.ShortcutsEnabled
属性 能否
解决你问题。 __________________________________________________________________________ .NET Framework 类库 Text
BoxBase.ShortcutsEnabled
属性 注意:此
属性在 .NET Framework 2.0 版中是新增的。
获取或设置一个值,该值指示是否启用已定义的快捷方式。
属性值 如果启用快捷方式,则为 true;否则为 false。 备注 使用 ShortcutsEnabled
属性来启用或禁用下面的组合快捷键: Ctrl+Z Ctrl+E Ctrl+C Ctrl+Y Ctrl+X Ctrl+Backspace Ctrl+V Ctrl+Delete Ctrl+A Shift+Delete Ctrl+L Shift+Insert Ctrl+R 可以重写此
属性以指定其他快捷键。 __________________________________________________________________________ txt
Box.focus应该就行 __________________________________________________________________________ 竟然能在此区看到hbxtlhx(平民百姓)真是高兴 先谢谢了 我看看先 __________________________________________________________________________ 把Text
Box.ShortcutsEnabled的设为False后确实不能再复制粘贴,鼠标右键也
禁止了 刚接触.NET没多久,重写还无从下手呢 第2个问题已
解决 可是第一个问题还是不行,当用鼠标点
中文本框后并没有选
中文本框内的
内容,只是有一个输入光标存在 __________________________________________________________________________ 你
添加如下的两个事件试试看: private void text
Box1_Enter(object sender,EventArgs e) { this.text
Box1.SelectAll(); } private void text
Box1_MouseDown(object sender,MouseEventArgs e) { this.text
Box1.SelectAll(); } __________________________________________________________________________ text
Box1_MouseDown可以实现鼠标点下时选中框内所有
内容 但是问题又出来了 在6.0中第一次进入时是选中所有
内容,当再点一次时就输入状态,而这却始终是选中状 __________________________________________________________________________ 哦! 这都是Windows默认控件Edit在.NET中的实现造成的问题,如果你一定要处理的和VB6.0一样,你可能要对Text
Box的WndProc这个事件做一些处理了! __________________________________________________________________________ Text
Box没有WndProc这个事件吧在VB2005中好像是没有 C#中没去看 __________________________________________________________________________ 1、 Text
Box1.SelectAll() 选中全部 2、 Private Sub Text
Box1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text
Box1.KeyPress If (Asc(e.KeyChar)) = 22 Then Ctrl+V 无效 e.Handled = True End If End Sub 3、鼠标右键 __________________________________________________________________________ 1、 Text
Box1.SelectAll() 选中全部 2、 Private Sub Text
Box1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text
Box1.KeyPress If (Asc(e.KeyChar)) = 22 Then Ctrl+V 无效 e.Handled = True End If End Sub 3、鼠标右键 __________________________________________________________________________ 谢谢楼上的兄弟 不过第1点还是没有
解决,你的答案连事件都没有 还有就是e.Handled = True代表何意? __________________________________________________________________________ 在VB2005中,你的GetFocus
代码是有用的.只不过由于GetFocus
调用在Click这前,因此当点下鼠标时,本来全选的状态被冲掉了. 你看看我下面给的
代码,可以
解决你的第一个问题,不要忘了给分噢! Public Class Form1 Dim blnFlag As Boolean = False Private Sub Text
Box1_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Text
Box1.Click If blnFlag Then Text
Box1.SelectAll() blnFlag = False End Sub Private Sub Text
Box1_GotFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles Text
Box1.GotFocus blnFlag = True End Sub End Class __________________________________________________________________________ 楼上兄弟的变通
方法确实可行 不过把 If blnFlag Then Text
Box1.SelectAll() blnFlag = False 放在Text
Box1_MouseDown事件中就更理想了 在Click事件中要等鼠标UP后才能选中,感觉不爽 __________________________________________________________________________