控制項 textbox101 跟textbox102 我使用keydown keycode= 13 跟keycode = 9 還有shift=1 跟shift = 0 來做判斷 我從textbox101 按下tab 會跳到textbox102 如果我從textbox102按下shift+tab 時會回到textbox101 但這時後textbox101 會突然出現一個空白字元 如果這時後我又在textbox101 按下tab 程序會判斷錯誤 他會以為textbox101 不是空白的 而且是有東西的 就算我想用 <>0值 來做區分,也分辨不出來 以下為程序碼 Dim 文字框名稱 '---------------------------------- Sub 文字框判斷1() 文字框名稱 = "textbox1" Call 計算數字(文字框名稱) End Sub '----------------------------------- Private Sub TextBox101_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode.value = 13 Or KeyCode.value = 9 Then If Shift = 1 Then ComboBox1.SetFocus Exit Sub ElseIf Shift = 0 Then Call 文字框判斷1 KeyCode.value = 0 TextBox102.SetFocus Exit Sub End If End If End Sub Private Sub TextBox102_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode.value = 13 Or KeyCode.value = 9 Then If Shift = 1 Then TextBox101.SetFocus Exit Sub ElseIf Shift = 0 Then Call 文字框判斷1 KeyCode.value = 0 TextBox103.SetFocus Exit Sub End If End If End Sub '--------------------------------------------------------------- Sub 計算數字(文字框名稱) 傳送數字用 = Right(文字框名稱, 1) Controls(文字框名稱 & "01").Text = LTrim(Controls(文字框名稱 & "01").Text) Controls(文字框名稱 & "01").Text = RTrim(Controls(文字框名稱 & "01").Text) If Controls(文字框名稱 & "01") = "" Then '<--這行為測試用 本來沒這行 Controls(文字框名稱 & "01") = "" ElseIf Controls(文字框名稱 & "01").Text <> "" Then ElseIf Controls(文字框名稱 & "01") = "" Or Controls(文字框名稱 & "01") = 0 Then 計算1000 = 0 End If --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1482835441.A.5BC.html ※ 編輯: waiter337 (114.35.158.244), 12/27/2016 18:45:37 ※ 編輯: waiter337 (114.35.158.244), 12/27/2016 18:46:43 補問一下,為什麼按下shift+tab 回去之後會多出一個空白字元 ※ 編輯: waiter337 (114.35.158.244), 12/27/2016 19:02:36 找到一個問題 會多空白字元是因為我忘了寫上 KeyCode.value = 0 但後面那個空白字元可以再問一下嗎? 雖然不會影響程式了 但是還是蠻想要瞭解 那個奇怪的字元是什麼 該如何判斷呢? ※ 編輯: waiter337 (114.35.158.244), 12/27/2016 19:04:46