|
将繁体中文字转化成简体中文 2003-12-09 |
VB6中提供的StrConv这个函数,完全可以解决简繁体的转换问题。下面是一个简繁体的转换的函数,利用该函数区区几行代码,就可以轻松地实现简体到繁体、繁体到简体的相互转化。'****** 简繁体互换 GB-->BIG5 Or BIG5-->GB *****************'参数sStr为需要转换的文本...[全部内容] |
|
VB创建、修改、删除WIN2K用户 2003-12-09 |
使用ADSI: Set dom = GetObject("WinNT://aDomain") Set usr = dom.Create("user","jsmith") usr.SetInfo Set grp = GetObject("WinNT://aDomain/group") grp.Add ("WinNT://aDomain...[全部内容] |
|
在vb程序中如何获取剪贴板中所复制的文件的路径 2003-12-09 |
1. 在Form1上放一个CommandButton和一个ListBox控件。2. 在Form1中贴入以下代码。它会在ListBox中列出您在Windows Explorer中Copy的文件名。Option ExplicitPrivate Const CF_HDROP = 15Private Type POINT x As Long y As LongEnd TypePrivate...[全部内容] |
|
将繁体中文字转化成简体中文 2003-12-09 |
VB6中提供的StrConv这个函数,完全可以解决简繁体的转换问题。下面是一个简繁体的转换的函数,利用该函数区区几行代码,就可以轻松地实现简体到繁体、繁体到简体的相互转化。'****** 简繁体互换 GB-->BIG5 Or BIG5-->GB *****************'参数sStr为需要转换的文本...[全部内容] |
|
VB创建、修改、删除WIN2K用户 2003-12-09 |
使用ADSI: Set dom = GetObject("WinNT://aDomain") Set usr = dom.Create("user","jsmith") usr.SetInfo Set grp = GetObject("WinNT://aDomain/group") grp.Add ("WinNT://aDomain...[全部内容] |
|
在vb程序中如何获取剪贴板中所复制的文件的路径 2003-12-09 |
1. 在Form1上放一个CommandButton和一个ListBox控件。2. 在Form1中贴入以下代码。它会在ListBox中列出您在Windows Explorer中Copy的文件名。Option ExplicitPrivate Const CF_HDROP = 15Private Type POINT x As Long y As LongEnd TypePrivate...[全部内容] |
|
拒绝录入错误日期的编程方法 2003-07-30 |
越来越多的软件对日期很敏感,如进销存类软件、财务管理软件等等。当有误操作或使用了破坏系统日期的软件(如CMOS恢复),及病毒感染等情况发生后,可能会使系统日期更改,从而使软件对数据的统计汇总等操作出现较大误差,甚至造成不可挽救的损失。 为了防止日期出...[全部内容] |
|
拒绝录入错误日期的编程方法 2003-07-30 |
越来越多的软件对日期很敏感,如进销存类软件、财务管理软件等等。当有误操作或使用了破坏系统日期的软件(如CMOS恢复),及病毒感染等情况发生后,可能会使系统日期更改,从而使软件对数据的统计汇总等操作出现较大误差,甚至造成不可挽救的损失。 为了防止日期出...[全部内容] |
|
怎样关闭一个正在运行的程序 2003-07-21 |
你可以使用API函数FindWindow和PostMessage去寻找指定的窗口,并关闭它。下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。 Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "Calculator") Debug.Print winHwnd If wi...[全部内容] |
|
用VB编写键盘拦截程序 2003-07-21 |
我们知道,在一些程序中,有一些快捷方式(如:Shift键最小化、ESC键退出、Ctrl+S存盘、Alt+x退出等等)。以前有一些介绍使用Win32 API可以做到,但过于繁琐,其实VB本身已经给我们提供了这个功能。 我们来新建一个窗体Form1,对于键盘操作可以看到有三个事件Ke...[全部内容] |