控制项 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/cn.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