成长足迹

 &nbsp其实原理很简单，和拖动无标题窗口的原理是一样的，当出发mousedown事件的时候发送消息duttondown到caption上。只要是从窗体继承来的就都可以使用这个原理，代码如下：Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd

学院搞活动，有个环节是抽奖，要求我帮他们写一个电脑摇奖的程序，就像电视的综艺界面一样按回车开始，按空格停下来。开始的时候没有仔细的想，以为没有什么难度就欣然的答应了，开始写的时候才发现，需要在外部通过条件判断强制的中断无限的循环。脑子里第一个想到的就是用多线程，可是大家都知道，如果用VB想使用多线程难度是非常大的。如果只用普通的单线程就必须找到一个方法捕捉到键盘的响应并中断循环。于是想到了去捕获消

用VB加API可以轻松的调整输入法的顺序和设置当前输入法，每种输入法都对应有个键盘布局，所以就可以用GetKey- boardLayout函数得到，用ActivateKeyboardLayout就可以设置了。用LoadKeyboardLayout就可以改变输入法的顺序了，将该函数的第二个参数设置为KLF_REORDER，就可以把该输入法设置为第一位。下面贴出调试过的代码API声明Priv