技巧241問題詢問

momoca

請問老師，在241範例中，多個CommandButton對應單個textbox輸入資料，
如此應用，如何將其改成多個CommandButton對多個textbox可使用，
即是 如點選了textbox1 按下各個CommandButton 值輸入到textbox1中如點選了textbox2按下
各個CommandButton值即出現在textbox2中，請老師指導，謝謝



技巧241.rar (17.38 KB, 下载次数: 2)

2015-2-5 23:17 上传

点击文件名下载附件

momoca

有大大可以幫忙嗎?

taller

可以实现类似效果

1. Option Explicit
   
2. Dim TxtCtl As String
   
3. 
   
4. Private Sub UserForm_Initialize()
   
5.     TxtCtl = ""
   
6. End Sub
   
7. 
   
8. Private Sub CommandButton1_Click()
   
9.    If Len(TxtCtl) > 0 Then Me.Controls(TxtCtl).Text = Me.Controls(TxtCtl).Text & "1"
   
10. End Sub
    
11. 
    
12. Private Sub CommandButton2_Click()
    
13.      If Len(TxtCtl) > 0 Then Me.Controls(TxtCtl).Text = Me.Controls(TxtCtl).Text & "2"
    
14. End Sub
    
15. 
    
16. Private Sub TextBox2_Enter()
    
17.     TxtCtl = "TextBox2"
    
18. End Sub
    
19. 
    
20. Private Sub TextBox1_Enter()
    
21.     TxtCtl = "TextBox1"
    
22. End Sub
    
23. 
    

复制代码

shdabai

CommandButton 值輸入到textbox1中如點選了textbox2按下

shdabai

如何將其改成多個CommandButton對多個textbox可使用