VB
文章平均质量分 76
dongle2001
这个作者很懒,什么都没留下…
展开
-
用VB在程序中添加切换中文输入法的功能
思路: 先用GetKeyboardLayoutList 函数来取得所有输入法,然后逐个用ImmIsIME判断是否是中文输入法,如果是的话在用ImmGetDescription得到输入法的名称,最后选定你需要的输入法用ActivateKeyboardLayout激活它. 源码: Public Declare Function ActivateKeyboardLa原创 2005-01-17 15:12:00 · 4488 阅读 · 0 评论 -
从外部关闭带窗口的进程
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function OpenProcess Lib "kernel32" (ByVal dwDesir原创 2005-06-27 14:33:00 · 1006 阅读 · 0 评论 -
自动更换壁纸vb代码
从网上找到很多有关设置壁纸的代码,但它们好像都有些小的缺陷,至少在我的电脑上都经过修改才能调试通过,所以我写了下面一段代码,取各家之长,应该没问题.有关系统设置的声明Private Const SPI_SETDESKWALLPAPER = 20Private Const SPIF_SENDWININICHANGE = &H2Private Const SPIF_UPDATEINIFILE = &原创 2005-07-08 17:02:00 · 2212 阅读 · 0 评论 -
桌面下雪
Private Declare Function BitBlt Lib "gdi32" _ (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _ ByVa原创 2005-07-08 17:16:00 · 1291 阅读 · 0 评论 -
动态语句求表达式值的一个例子
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic y As SinglePrivate Functio原创 2005-05-27 08:30:00 · 975 阅读 · 0 评论 -
动态添加控件
Option Explicit 通过使用 WithEvents 关键字声明一个对象变量为新的命令按钮 Private WithEvents Newbox As CommandButton 增加控件 Private Sub Command1_Click() If Newbox Is Nothing Then 增加新的按钮boxnew Set Newbo原创 2005-05-27 08:31:00 · 1021 阅读 · 0 评论