没有什么巧妙的方法可以控制这个话题。只能使用setfocus来控制需要聚焦的文本框。
此外，上下左右键可以控制焦点在文本1和文本2之间切换...，但这会阻塞它的另一个功能:在单独的文本中移动光标位置。为此，添加一个check1，并勾选这个check1来移动焦点，否则会移动文本框中的光标位置！
在表单上创建四个文本框，按照上、下、左、右的顺序排列它们，创建一个复选框，并复制以下代码来运行:
选项显式
私有子检查1_click()
如果1，那么
真实的
其他
错误的
如果…就会结束
末端接头
privatesubform_keydown(keycod
在菜单下添加一个文本框。只需点击菜单中的文本框光标，除非最小化，否则它不会显示。打开它。谢谢你的帮助。
目前windows下的很多应用都使用图形界面，但是在这样的界面下，windows原有的标题栏是不能用的，否则会影响界面的美观。那么在没有标题栏的情况下，如何用鼠标拖动一个窗体或者其他控件呢？
其实用api函数调出很容易。让下面以拖拽form1为例来谈谈实现方法:
1.创建一个名为test.vbp的新项目；；
2.添加一个名为的模块，并在声明部分添加以下代码:
将函数releasecapturelibuser32()声明为long
声明函数sendmessagelibuser32aliassendmessagea(byvalhwnd为long，byvalwmsg为long，byvalwparam为long，lparam为any)为long
公共构造wm_syscommandh112
公共constsc_movehf012
releasecapture函数用于释放鼠标捕获，sendmessage函数是windowsapi中非常重要的一个函数，用于向windows发送移动窗体的消息。wm_syscommand是一个向windows发送消息的常量。sc_move是一个控制移动表单的常量。请注意，这里sc_move的赋值是hf012，意思是鼠标对象。
3.在窗体的mousedown过程中添加以下代码:
私有子窗体_mousedown(按钮为整数，shift为整数，x为单值，y为单值)
释放捕获
发送消息me.hwnd，wm_syscommand，sc_move，0
末端接头
releasecapture函数用于释放鼠标捕获，sendmessage函数用于向windows发送移动窗体的消息。
4、保存并运行程序，按下鼠标，你会发现表格会随着鼠标的移动而移动。
以上介绍了在vb中如何用鼠标拖动窗体。其实拖动一个控件的原理也是一样的。例如，以下代码可以拖动绘图框架:
释放捕获
sendmessagepicture1.hwnd，wm_syscommand，sc_move，0
