c_c_lai

¦^´_ 2# av8d
³o¬O§A­nªº¶Ü¡H

1. Private Sub TextBox1_Change()
   
2.     If Len(TextBox1) = 9 Then
   
3.         TextBox2 = Mid(TextBox1, 2, 4)
   
4.         TextBox3 = Mid(TextBox1, 6, 4)
   
5.         TextBox1 = Left(TextBox1, 1)
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 4# av8d

1. TextBox1 = "411120848"  '  °²³]¤§¿é¤J­È
   
2. 
   
3. TextBox2 = Mid(TextBox1, 2, 4)
   
4. TextBox2 = Mid("411120848", ²Ä¤G­Ó¦ì¸m°_¶}©l¡AºI¨ú¥|¦ì)
   
5. TextBox2 = "1112"
   
6. 
   
7. TextBox3 = Mid(TextBox1, 6, 4)
   
8. TextBox3 = Mid("411120848", ²Ä¤»­Ó¦ì¸m°_¶}©l¡AºI¨ú¥|¦ì)
   
9. TextBox3 = "0848"
   
10. 
    
11. TextBox1 = Left(TextBox1, 1)
    
12. TextBox1 = Left("411120848", ±q¥ª¶}©lºI¨ú¤@¦ì)
    
13. TextBox1 = "1"

½Æ»s¥N½X