怎样设计个小键盘给N个text输入数据

来源：百度知道 编辑：UC知道 时间：2024/05/15 00:59:38
例如窗体(form1)上有text1，text2,text3.......几个文本框，利用另外一个窗体(form2)上的按扭(1,2,3,4,5,6....)分别给form1中的text1，text2,text3.......输入数据。
先谢过大家了:
根据大家提供的我做了实验,还有些问题.
怎样去确定光标的位置.在form1中的N个text分别去输入的目的没有实现.望大家赐教.

在FORM2中的按钮单击事件中写如下代码:
form1.text1=form2.command1.caption

如果数量多的话,你可以利用数组,这个会吧

还是在FORM2中的按钮单击事件中写如下代码:
dim i
select case index
case i
form1.text1(i)=form2.command1(i).caption
如果还没什么疑问382015178QQ联系

Sub Command1_Click()
Form1.Text1.Text=Form1.Text.Text & Form2.Command1.Caption
End Sub
Sub Command1_Click()
Form1.Text1.Text=Form1.Text.Text & Form2.Command2.Caption
End Sub
等等
'窗体.对象.属性=窗体.对象.属性 & 窗体.对象.属性

最好把窗体二上面的按钮弄成空间组，这样不需要一个个改代码了
如，把Command1创建一个空间组，index从0-9,caption也分别从0-9,这样代码可以简化为
Sub Command1_Click(Index As Integer)
Form1.Text1.Text=Form1.Text.Text & Form2.Command1(Index).Caption
End Sub

简单思路，在form2中添加代码：
Sub Command1_Click()
Form1.Text1.Text=text1.text
End Sub