fieldset{padding:10px;}
vba 有个textbox控件 按回车键 焦点转移excel中有两个textbox控件在第一个textbox输入完了后按回车(enter)焦点转移到第二个textbox求实现方法???、——解决方案——————————————————–
OptionExplicitPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenKeyAscii=0SendKeys"{TAB}"EndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenKeyAscii=0SendKeys"{TAB}"EndIfEndSub
——解决方案——————————————————–
OptionExplicitPrivateDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateConstWM_KEYUP=&H101PrivateConstWM_KEYDOWN=&H100PrivateConstVK_TAB=&H9PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPostMessageText1.hwnd,WM_KEYDOWN,VK_TAB,0Sleep100PostMessageText1.hwnd,WM_KEYUP,VK_TAB,0EndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenPostMessageText2.hwnd,WM_KEYDOWN,VK_TAB,0Sleep100PostMessageText2.hwnd,WM_KEYUP,VK_TAB,0EndIfEndSub
命运掌握在自己手中