有点困难！！怎么才能将这段循环改到 txtrkzd(j & 3).text 的keyup事件里面去呀？

Private   Sub   FraRkzd2_DblClick()  
   
          For   Index   =   J   &   1   To   J   &   3  
                  Load   txtRkzd(Index)  
                  txtRkzd(Index).Top   =   txtRkzd(0).Height   *   J  
                  txtRkzd(Index).Left   =   txtRkzd(Index   -   (J   &   1)   +   1).Left  
                  txtRkzd(Index).Visible   =   True  
          Next  
   
  End   Sub 问题点数：20、回复次数：4Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-14 20:14:08 得分 20

Private   Sub   txtRkzd_KeyUp(Index   As   Integer,   KeyCode   As   Integer,   Shift   As   Integer)  
          If   Index   =   j   &   3   Then  
                  For   iIndex   =   j   &   1   To   j   &   3  
                          Load   txtRkzd(iIndex)  
                          txtRkzd(iIndex).Top   =   txtRkzd(0).Height   *   j  
                          txtRkzd(iIndex).Left   =   txtRkzd(iIndex   -   (j   &   1)   +   1).Left  
                          txtRkzd(iIndex).Visible   =   True  
                  Next  
          End   If  
  End   SubTop

2 楼kidc（海盗乌托邦）回复于 2006-03-14 20:35:20 得分 0

谢谢     结贴Top

3 楼kidc（海盗乌托邦）回复于 2006-03-14 20:55:50 得分 0

能不能把事件精确到   txtrkzd(j   &   3).text   里面去呢，就是第三列的text框里。。1,2列都没有这个事件！Top

4 楼kidc（海盗乌托邦）回复于 2006-03-14 20:58:09 得分 0

不好意思。。才看到If   Index   =   j   &   3   Then。。。Top

相关问题

• txtrkzd
• iindex
• 事件
• left
• sub
• as integer
• text

• 帖主：kidc
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载