vb
金蝶高级实施顾问
金蝶高级实施顾问,独立完成多集团大型ERP系统上线实施工作。
展开
-
Api ShellExecute 函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirector原创 2005-02-28 11:37:00 · 1129 阅读 · 0 评论 -
读取CPU信息
引用Microsoft WMI Scripting 1.1 Library在窗体上建一个Text,命名为Text1,并且Text1.MultiLine = TruePrivate Sub GetProcessorID() Dim a As SWbemServices Dim b As SWbemObjectSet Dim c As SWbemObject Dim d As SWbem原创 2005-03-29 11:31:00 · 1248 阅读 · 0 评论 -
键码常数
键码常数键码常数 值 描述 vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标中键 vbKeyBack 8 BACKSPACE 键 vbKeyTab 9 TAB 键 vbKeyClear 12 CLEAR 键 vbKeyReturn 13 ENTER 键 vbKeyShift 16 SHI原创 2005-03-21 14:30:00 · 1326 阅读 · 0 评论 -
给出4个1-9的自然数,计算这4个数+、-、*、/运算后得到24的算法
首先,我们先看看这个游戏的规则,给出4个1-9之间的自然数,例如:1,5,5,5(这是很经典的一个例子哦 ^_^)。在1,5,5,5中间用+、-、*、/来运算后得到24这个数。每个数只能使用一次。如果没有计算过的基本都会被难住吧。哈哈,答案是 5*(5-1/5)。是不是很经典呢?和它类似的还有3,3,8,8。 下面我们来看具体算法。一般我们考虑这样的问题的时候,都是直接写一个超大的s原创 2005-03-23 10:45:00 · 4681 阅读 · 0 评论 -
2-36进制之间的随意转换函数
------------------------------2-36进制之间的随意转换函数---------------------------------------也不知道有没有36进制,呵呵,可能是我自己编出来的吧。36进制概念,11相当与A,12相当与B,…………35相当与Z。只到在大写的A--Z之间。小写没加判断。到用的时候再加吧。时间关系,少写了很多的限制。感觉用来加密也不错原创 2005-03-18 13:42:00 · 2564 阅读 · 0 评论 -
计算任意三边三角形的面积的算法
Private Sub Command1_Click()Dim a, b, c As IntegerDim s As Longa = CInt(InputBox("输入三角形三边之一"))b = CInt(InputBox("输入三角形三边之二"))c = CInt(InputBox("输入三角形三边之三"))If a + b > c Or a + c > b Or b + c > a Then原创 2005-03-18 10:48:00 · 4414 阅读 · 0 评论 -
如何在VB6.0中创建和使用文本资源文件
不少网友问及如何在VB中建立和使用文本资源文件。我想这也是很多VB初学者迫切想掌握的技巧。为此,将回答网友的信件整理了一下,形成此文,希望对大家有些帮助。 一.文本资源文件的建立第一步:启动资源编辑器如果VB资源编辑器没有被加载,请单击"外接程序",选取"外接管理器"启动外接管理器,然后选中"VB6 资源编辑器",在左下方的"加载行为"中的"加载/卸载"前打钩,点击"确定"退出外接管理器。原创 2005-03-18 08:57:00 · 4278 阅读 · 0 评论 -
关于Combo控件下拉框自动弹出的问题
Option ExplicitPrivate Sub Command1_Click() Combo1.SetFocus SendKeys "{F4}"End Sub原创 2005-03-18 08:36:00 · 2017 阅读 · 1 评论 -
一个计算完全数的算法
-------------------------完全数的定义--------------------------我们来看一下4这个数,它的真因子有1、2,其和是3。由于4本身比其真因子之和要大,这样的数叫做盈数。再来看一下12这个数,这的真因子有1、2、3、4、6,其和是16。由于12本身比其真因子之和要小,这样的数就叫做亏数。那么有没有既不盈余,又不亏欠的数呢?既有没有恰恰等于它自原创 2005-03-18 10:01:00 · 5666 阅读 · 0 评论 -
VB里有用的几个函数
注释:--------(1)------------注释:获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明注释:Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, By原创 2005-03-17 13:12:00 · 1174 阅读 · 0 评论 -
如何用VB开发游戏外挂
1.需要VB API函数: FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口 GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符 ------------------------------------------------------------------------------------------------------原创 2005-03-10 12:21:00 · 5249 阅读 · 0 评论 -
一个设定打印走向的函数,别人写的,借花献佛,同时没找哪个API是函数用的,都复制下来了
一个设定打印走向的函数,别人写的,借花献佛,同时没找哪个API是函数用的,都复制下来了Public Enum PrinterOrientationConstants OrientPortrait = 1 OrientLandscape = 2End EnumPrivate Declare Function GetVolumeInformation Lib _ "原创 2005-03-14 10:42:00 · 1086 阅读 · 0 评论 -
用空格分割字符串的函数
Option Explicit===============================================Words.bas - string handling functions for wordsAuthor: Evan Sims [esims@arcola-il.com]Based on a module by Kevin OBrienVersi原创 2005-03-08 13:46:00 · 2022 阅读 · 2 评论 -
系统文件操作监视功能
Windows未公开函数揭密--之三 这次介绍的是如何利用Windows未公开函数实现系统文件操作监视功能。利用该功能可以对Windows下的任何文件操作,包括建立文件、文件夹;删除文件;改变文件大小等操作都可以纪录在案。 首先来介绍实现上面操作的两个未公开函数:SHChangeNotifyRegister和SHChangeNotifyDeregister,SHChangeNotifyRegist原创 2005-03-03 13:08:00 · 1870 阅读 · 0 评论 -
Access数据库密码生成器
Access数据库密码生成器 在使用ACCESS数据库的时候都希望加个密码,让别人无法进入数据库中去随意的查看数据,手动写总是有一些规律在里面。下面这段代码可以生成一个20位的随机密码。Private Sub Command1_Click()Dim x As StringDim y As IntegerFor i = 1 To 20Doy = Int(Rnd(i) * 83 + 33)L原创 2005-04-29 08:50:00 · 3098 阅读 · 1 评论