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

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

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

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

引用:

原帖由 [bold][underline]fairy4[/underline][/bold] 于 2007-11-29 10:29 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121754&ptid=189144][/url]
判斷焦點位置，點擊數字把數賦予該焦點的文本！

我就是不知道怎么样判断识别这些有焦点的文本框

引用:

原帖由 [bold][underline]bygg[/underline][/bold] 于 2007-11-29 09:30 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121450&ptid=189144][/url]
点击事件写个赋值不行吗??
可能是我没明白你的要求

是用点击事件来赋值的，但是如何让这个事件来判断有焦点的文本框？

轮寻控件

定義一個 全局變量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

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

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

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