Vb纠错,要求光标在哪里,就把那个文本框的内容复制到text3中

[复制链接]
查看11 | 回复3 | 2012-2-17 21:06:37 | 显示全部楼层 |阅读模式
Dim iPrivate Sub Text1_GotFocus()i = 1copy_ClickEnd SubPrivate Sub Text2_GotFocus()i = 2copy_ClickEnd SubPrivate Sub copy_Click()If i = 1 ThenText3.Text = Text1.TextElseIf i = 2 ThenText3.Text = Text2.TextEnd IfEnd Sub...
回复

使用道具 举报

千问 | 2012-2-17 21:06:37 | 显示全部楼层
关键还是没有定义窗口级变量 i ,系统默认为局部变量,所以你的copy按钮单击事件里没法取得正确的 i 值。 像 xjnzhidao那样在最上边加上变量 i 的定义就好了。...
回复

使用道具 举报

千问 | 2012-2-17 21:06:37 | 显示全部楼层
!...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行