سلام
این کدها را چگونه بنویسم که برنامه ام حجمش پائین بیاید اگر میشود تابع این برنامه را برام بنویسید
Private Sub Text1_Change()
If Text1 = "11" Then Text1 = "1"
If Text1 = "12" Then Text1 = "2"
If Text1 = "13" Then Text1 = "3"
If Text1 = "21" Then Text1 = "2"
If Text1 = "22" Then Text1 = "2"
If Text1 = "23" Then Text1 = "6"
If Text1 = "31" Then Text1 = "3"
If Text1 = "32" Then Text1 = "6"
If Text1 = "33" Then Text1 = "3"
End Sub
Private Sub Text2_Change()
If Text2 = "11" Then Text2 = "1"
If Text2 = "12" Then Text2 = "2"
If Text2 = "13" Then Text2 = "3"
If Text2 = "21" Then Text2 = "2"
If Text2 = "22" Then Text2 = "2"
If Text2 = "23" Then Text2 = "6"
If Text2 = "31" Then Text2 = "3"
If Text2 = "32" Then Text2 = "6"
If Text2 = "33" Then Text2 = "3"
End Sub
Private Sub Text3_Change()
If Text3 = "11" Then Text3 = "1"
If Text3 = "12" Then Text3 = "2"
If Text3 = "13" Then Text3 = "3"
If Text3 = "21" Then Text3 = "2"
If Text3 = "22" Then Text3 = "2"
If Text3 = "23" Then Text3= "6"
If Text3 = "31" Then Text3 = "3"
If Text3 = "32" Then Text3 = "6"
If Text3 = "33" Then Text3 = "3"
End Sub
و همچنین این کدها برای تکستهای 4 و 5 و 6 و 7 و 8 و 9 و 10