共有 5364 人关注过本帖
标题：如何使获得焦点的文本框显示自定输入的字符？
等　级：新手上路
帖　子：10
&&问题点数：0&&回复次数：11&&&
如何使获得焦点的文本框显示自定输入的字符？
因工作的需要自己用VB.net开发了一个移动设备（PDA）上的小程序，具体界面如下：
怎么样才能使这些数字按钮的数输入到上面的几个文本框中获得焦点的文本框中！请求高手帮个忙？
下面的的数字按钮相当一个软键盘，点击下面的数字使其输入到上面任意一个有焦点的文本框中！
附件: 只有本站会员才能下载或查看附件，请
搜索更多相关主题的帖子:
&&&&&&&&&&
来　自：乖乖的心中
等　级：友情版主
威　望：241
帖　子：13553
专家分：3076
点击事件写个赋值不行吗??
可能是我没明白你的要求
等　级：贵宾
威　望：10
帖　子：738
专家分：267
判斷焦點位置，點擊數字把數賦予該焦點的文本！
一个人只有一个心脏，却有两个心房。一个住着快乐；一个住着悲伤。不要笑得太大声，不然会吵醒旁边的悲伤
等　级：新手上路
帖　子：10
原帖由 [bold][underline]fairy4[/underline][/bold] 于
10:29 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121754&ptid=189144][/url]
判斷焦點位置，點擊數字把數賦予該焦點的文本！
我就是不知道怎么样判断识别这些有焦点的文本框
等　级：新手上路
帖　子：10
原帖由 [bold][underline]bygg[/underline][/bold] 于
09:30 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1121450&ptid=189144][/url]
点击事件写个赋值不行吗??
可能是我没明白你的要求
是用点击事件来赋值的，但是如何让这个事件来判断有焦点的文本框？
等　级：新手上路
帖　子：23
等　级：贵宾
威　望：10
帖　子：738
专家分：267
定義一個 全局變量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是
等　级：贵宾
威　望：10
帖　子：738
专家分：267
如果是對焦點操作，參看我的計數器，其他問題，+我qq:
注明是干什么的，謝絕閑聊！一般晚上9點到11點在線！
一个人只有一个心脏，却有两个心房。一个住着快乐；一个住着悲伤。不要笑得太大声，不然会吵醒旁边的悲伤
等　级：新手上路
帖　子：10
根据fairy4的思路我的问题已经解决！再次感谢fairy4的指导！
只是 Me.TextBox1.Text = &焦點在此位置 &&&&应改为：Me.TextBox1.SelectedText = &焦點在此位置 &
版权所有，并保留所有权利。
Powered by , Processed in 0.030084 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reservedvb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标_百度知道
vb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标
提问者采纳
&quot.Text&&&&&&&&nbsp,&&&nbsp,-91;&nbsp,2;&=&0&&nbsp,&quot,&&&&&&&&&&&&&&&&&=&正数的个数为&&&n&&&&&&nbsp,45;&&&TextBox6;&str1&temp&&&&str&Then&&&String&&&&&1&&&If&As&&a(i)&i&str&&&For&&As&&&=&&&nbsp,83;&=&Next&&&temp&&&&str&&=&=&&&&&&&temp&&n&To&Split(str1;If&UBound(a)&&End&&&&nbsp,66;=&)&&&&&&0&i&&&&&&nbsp,&&&&&=&&&&=&&&Integer&To&&a(i)&&&&Dim&&&&&&&&To&nbsp,31;&&&&&String&&=&&a(i)&nbsp,1;&&0&nbsp,9;;&&&&&&&&&&&&As&&&Val(a(i))&&&&&&&&&&i&&&a()&&&&UBound(a)&&&If&&=&&&nbsp,-21&Then&Dim&str&1&&&i&&&&&&&&&1&&&&&&&&If&&&&&&&&&&12;&&&&1&&&&nbsp,-9;&;&&&&&=&&End&str&&&&&As&&=&Step&&Next&&&&&&&&&Next&&n&n&最大元素的下标为&+&&&&&End&&=&&&&a(i)&=&a(i)&&temp&String&&If&For&&nbsp,2;&&&&&&&&nbsp,41;&&&&&nbspDim&&str&For&&&UBound(a)&=&&&&&&&1&&&If&&str&Then&&n&&&&nbsp
来自团队：
其他类似问题
为您推荐：
其他1条回答
根据你描述的情况考虑你说的这个问题可能是中医说的血瘀了指导意见：你好，可吃些益母草膏和女金丸来调理，一般这中药的方法调节内分泌也是很不错的
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁把一个数组写入配置文件，&符号为什么变成了&
[问题点数：20分，结帖人tgw2000]
把一个数组写入配置文件，&符号为什么变成了&
[问题点数：20分，结帖人tgw2000]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2013年5月 总版技术专家分月排行榜第一
2016年3月 总版技术专家分月排行榜第二2015年12月 总版技术专家分月排行榜第二2014年8月 总版技术专家分月排行榜第二2014年7月 总版技术专家分月排行榜第二2013年6月 总版技术专家分月排行榜第二
2014年10月 PHP大版内专家分月排行榜第三2014年8月 PHP大版内专家分月排行榜第三2014年3月 PHP大版内专家分月排行榜第三2014年1月 PHP大版内专家分月排行榜第三2012年8月 PHP大版内专家分月排行榜第三2012年2月 PHP大版内专家分月排行榜第三2012年1月 PHP大版内专家分月排行榜第三2011年12月 PHP大版内专家分月排行榜第三2011年11月 PHP大版内专家分月排行榜第三2011年6月 PHP大版内专家分月排行榜第三
2016年5月 PHP大版内专家分月排行榜第三2016年4月 PHP大版内专家分月排行榜第三2015年12月 PHP大版内专家分月排行榜第三2015年9月 PHP大版内专家分月排行榜第三2015年5月 PHP大版内专家分月排行榜第三2014年5月 PHP大版内专家分月排行榜第三
2014年10月 PHP大版内专家分月排行榜第三2014年8月 PHP大版内专家分月排行榜第三2014年3月 PHP大版内专家分月排行榜第三2014年1月 PHP大版内专家分月排行榜第三2012年8月 PHP大版内专家分月排行榜第三2012年2月 PHP大版内专家分月排行榜第三2012年1月 PHP大版内专家分月排行榜第三2011年12月 PHP大版内专家分月排行榜第三2011年11月 PHP大版内专家分月排行榜第三2011年6月 PHP大版内专家分月排行榜第三
2013年5月 总版技术专家分月排行榜第一
2016年3月 总版技术专家分月排行榜第二2015年12月 总版技术专家分月排行榜第二2014年8月 总版技术专家分月排行榜第二2014年7月 总版技术专家分月排行榜第二2013年6月 总版技术专家分月排行榜第二
2016年5月 PHP大版内专家分月排行榜第三2016年4月 PHP大版内专家分月排行榜第三2015年12月 PHP大版内专家分月排行榜第三2015年9月 PHP大版内专家分月排行榜第三2015年5月 PHP大版内专家分月排行榜第三2014年5月 PHP大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。vb中怎样将两个文本框中的字符型连接起来在显示?_百度知道
vb中怎样将两个文本框中的字符型连接起来在显示?
D:\D; & &medium&#92.text中显示的内容是&Text2.Texta = &quot.Text = aEnd SubPrivate Sub Form_Load()Dim a As StringDim b As StringEnd Sub为什么text2;b不是b已经赋予text1;&quot:\medium\b&quot比如Private Sub Command1_Click()b = Text1
提问者采纳
medium&#92其实你可以直接Private Sub Command1_Click()text2.text= & & text1:\&D
Picture1.Picture = LoadPicture(&&D:\medium\& & Text1.Text & &000.jpg&&)这样怎么读不出图片啊？是不是不能这样输入？怎么老是出现错误呢？谢谢了
引号太多 Picture1.Picture = LoadPicture(&D:\medium\& & Text1.Text & &000.jpg&)
提问者评价
其他类似问题
为您推荐：
文本框的相关知识
其他2条回答
你这里的b不应该用双引号b = Text1;medium\D; & b
&#39,Text2,没有双引号的b才是变量.Texta = &quot:\&quot
你把赋值语句写反了：b=text1.text是把text1的值给了b后面的值付给前面的。text1.text=b
谢谢采纳！
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB6.0 中，文本框建立数组后，如：text1.text text2.text text3.text 这三个数1.2.3能不能用变量代替呢？_百度知道
VB6.0 中，文本框建立数组后，如：text1.text text2.text text3.text 这三个数1.2.3能不能用变量代替呢？
补充也放不下,怎么办呢?
提问者采纳
for i=1 to 3me(&text& & i).text=inext建议使用控件数组
为什么,运行不了,说这句有问题me(&text& & i).text=i
你得有text1、text2、text3这三个控件（数组）：用me(&text1&)(0).text=&111111&一段完整代码：Private Sub Command1_Click()
For i = 1 To 3
Set t = Me(&text& & i)
If TypeOf t Is TextBox Then
t.Text = i & &
For j = 0 To t.Count - 1
t(j).Text = i & &
NextEnd Sub
朋友很有心,很详细回答了,谢谢!换个问题吧!下面这个子程序是文本框输入限制,怎么可以改成适用于文本框控件数组的呢?这里放不下,我放在补充里面看看!完了,补充也放不下,怎么办呢?怎么才可以让你看到?
仅限于输入数字：Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0End Sub仅限于输入字母，并转换为大写：Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii & 96 And KeyAscii & 123 Then KeyAscii = KeyAscii - 32
If KeyAscii & 90 Or KeyAscii & 64 Then KeyAscii = 0End Sub如果开工资的话，你那5分就有点寒酸了。
提问者评价
谢谢朋友!分不多,提高到25分了,额外再加5分给你.
其他类似问题
为您推荐：
其他3条回答
&quot，也可以用变量.、text1(3).来使用各控件了你说的是控件数组吗..、text1(2);Hello.text=&quot.text，这样就可以用text1(1)：x=2text1(x).text.，如.text.，而它们的index属性则表示其不同的索引号，比如都是text1？那么数组内的各个控件的name应该是相同的
不是的.我是指的,数组编号和文框编号同时都用变量
text变量(数组变量).text=某某
不太明白你的意思 我的理解1,用变量代替 text1.text
这种情况是可以的,text1只是一个控件名,你可以任意修改.只要引用时保证和你的控件名一样就可以了2,用变量代替 text1.text
这种情况是不可以,但你可以 text1.text=a
a=text1.text
其中a 为变量名
希望能对你有所帮助
你说清楚点，或者8.13日晚上8点hi我
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁