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

#2

bygg2007-11-29 09:30

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

#3

fairy42007-11-29 10:29

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

#4

tiyaoli2007-11-29 10:48

原帖由 [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]
判斷焦點位置，點擊數字把數賦予該焦點的文本！

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

#5

tiyaoli2007-11-29 10:53

原帖由 [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]
点击事件写个赋值不行吗??
可能是我没明白你的要求

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

#6

wfscyl2007-11-29 16:15

轮寻控件

#7

fairy42007-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

#8

abenyu2007-12-26 11:01

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

#9

fairy42007-12-26 12:12

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

#10

tiyaoli2007-12-29 08:57

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

#11

whigg20062008-01-05 19:44

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

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

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

我们探讨一下。谢谢了！

#12

chenyongxyz2010-06-01 15:01

回复 7楼 fairy4

出错“ActiveControl”不是“FORM1”员
请问是什么原因，谢谢