如何使获得焦点的文本框显示自定输入的字符？(页 1) - VB.NET论坛

tiyaoli 发表于 2007-11-29 09:21

如何使获得焦点的文本框显示自定输入的字符？

因工作的需要自己用VB.net开发了一个移动设备（PDA）上的小程序，具体界面如下：
怎么样才能使这些数字按钮的数输入到上面的几个文本框中获得焦点的文本框中！请求高手帮个忙？

[size=12px]下面的的数字按钮相当一个软键盘，点击下面的数字使其输入到上面任意一个有焦点的文本框中！[/size]

[size=12px][attach]30765[/attach][/size]

bygg 发表于 2007-11-29 09:30

点击事件写个赋值不行吗??
可能是我没明白你的要求

fairy4 发表于 2007-11-29 10:29

判斷焦點位置，點擊數字把數賦予該焦點的文本！

tiyaoli 发表于 2007-11-29 10:48

[quote]原帖由 [bold][underline]fairy4[/underline][/bold] 于 2007-11-29 10:29 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121754&ptid=189144][img]http://bbs.bc-cn.net/images/common/back.gif[/img][/url]
判斷焦點位置，點擊數字把數賦予該焦點的文本！ [/quote]
我就是不知道怎么样判断识别这些有焦点的文本框

tiyaoli 发表于 2007-11-29 10:53

[quote]原帖由 [bold][underline]bygg[/underline][/bold] 于 2007-11-29 09:30 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121450&ptid=189144][img]http://bbs.bc-cn.net/images/common/back.gif[/img][/url]
点击事件写个赋值不行吗??
可能是我没明白你的要求 [/quote]
是用点击事件来赋值的，但是如何让这个事件来判断有焦点的文本框？

wfscyl 发表于 2007-11-29 16:15

轮寻控件

fairy4 发表于 2007-11-30 09:11

定義一個全局變量intNum，用來儲存控件的tabindex
然后你你要輸入的文本控件的click事件里面加入如下語句
intNum = Me.ActiveControl.TabIndex
比如：

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
      intNum = Me.ActiveControl.TabIndex
End Sub
每個文本控件的 click事件都必須有此語句
然后在button按鈕的click事件里面書寫控制代碼

比如：
Select Case intNum
         Case 0
            Me.TextBox1.Text = "焦點在此位置 "
            Me.TextBox1.SelectionStart = Me.TextBox1.TextLength
            Me.TextBox1.SelectionLength = 0
            Me.TextBox1.Focus()
         Case 1
            Me.TextBox2.Text = "焦點在此位置 "
            Me.TextBox2.SelectionStart = Me.TextBox2.TextLength
            Me.TextBox2.SelectionLength = 0
            Me.TextBox2.Focus()
         Case 2
            Me.TextBox3.Text = "焦點在此位置 "
            Me.TextBox3.SelectionStart = Me.TextBox3.TextLength
            Me.TextBox3.SelectionLength = 0
            Me.TextBox3.Focus()
         Case 3
            Me.TextBox4.Text = "焦點在此位置 "
            Me.TextBox4.SelectionStart = Me.TextBox4.TextLength
            Me.TextBox4.SelectionLength = 0'使光標位置在文本最后
            Me.TextBox4.Focus()'因為點擊按鈕會使焦點轉移，必須把焦點重新賦予當然文本框！
      End Select

abenyu 发表于 2007-12-26 11:01

有没有联系方式QQ就可以啊我很有可能需要您的帮助啊谢谢我的QQ是415205525

fairy4 发表于 2007-12-26 12:12

如果是對焦點操作，參看我的計數器，其他問題，+我qq:271036987
注明是干什么的，謝絕閑聊！一般晚上9點到11點在線！

tiyaoli 发表于 2007-12-29 08:57

根据fairy4的思路我的问题已经解决！再次感谢fairy4的指导！
只是 Me.TextBox1.Text = "焦點在此位置 " 应改为：Me.TextBox1.SelectedText = "焦點在此位置 "

whigg2006 发表于 2008-1-5 19:44

tiyaoli, 我现在碰到的问题跟你一样。

但是按照上面的方法，有些不能实现。。。

能把你的联系方式告诉我么？

我们探讨一下。谢谢了！

页: [1]