VB
文章平均质量分 76
华芸智森
对 高流量 高并发 高安全 大数据 的系统有成熟的经验及解决方案。
展开
-
VB字符串表达式计算函数.
这是一个VB6.0的字符串表达式计算函数. Private Function EvaluateExpr(ByVal expr As String) As Single Const PREC_NONE = 11 Const PREC_UNARY = 10 Const PREC_POWER = 9 Const原创 2008-10-10 22:11:00 · 6457 阅读 · 4 评论 -
VB汉字简繁体转换
简繁体转换(smBig2GB) Option ExplicitDim BigData As VariantDim GbData As Variant 将BIG码转为GB码 函数:BigToGB 参数:BigStr BIG码字符串 返回值:GB码字符串 Function BigToGB(BigStr As原创 2008-10-10 22:18:00 · 1776 阅读 · 0 评论 -
VB设置软件开机启动.
如何设置软件自启动?调用一系列API函数Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongConst HKEY_LOCAL_MACHINE = Private Declare Function RegCreateKeyEx Lib "advapi32原创 2008-10-10 23:17:00 · 1539 阅读 · 0 评论 -
VB中启动控制面板命令
在VB中用Shell调用.如 Private Sub Form_Load() Shell "rundll32.exe desk.cpl,InstallScreenSaver c:/win/system/Flying Windows.scr"End Sub启动控制面板命令控制面板模块: control.exe命令: rundll32.exe she原创 2008-10-10 23:13:00 · 1161 阅读 · 0 评论 -
VB注册表操作函数
Option Explicit 注册表操作(SmRegCtr) /类型. Public Enum RegDataType /REG_NONE = 0 未知类型 REG_SZ = 1 Unicode字符串 /REG_EXP原创 2008-10-10 22:33:00 · 1986 阅读 · 0 评论 -
VB利用API进行媒体播放
媒体播放(SmMedia) Option ExplicitDim s As String, ShortPathName As StringPrivate Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPat原创 2008-10-10 22:29:00 · 1179 阅读 · 0 评论 -
VB各种标准对话框
标准对话框(SmDialog) Option ExplicitPrivate Const RESOURCE_CONNECTED As Long = &H1Private Const RESOURCE_GLOBALNET As Long = &H2Private Const RESOURCE_REMEMBERED As Long = &H3原创 2008-10-10 22:21:00 · 1322 阅读 · 0 评论 -
VB取各颜色分量,将RGB转为HTML颜色.
//取各颜色分量 Public Function GetRedValue(COLOR As Long) As Integer 取得红色值 GetRedValue = COLOR And End FunctionPublic Function GetGreenValue(COLOR As Long) As Integer 取得绿色值原创 2008-10-10 21:58:00 · 2020 阅读 · 0 评论 -
VB网络校时.
有时我们对某些场合,对系统时间的要求是很高的,例如:SQLSERVER服务器间的同步或文件同步.但计算机的时钟运行一段时间,会出现一个误差.时间长了,可能达分钟以上.下面程序可以解决这个问题.该程从各天文台或国家授时中心读取时间后,并设置为计算机的本地时间.误差在一秒以内. Option ExplicitDim SvrName(14) As String原创 2008-10-10 22:49:00 · 2451 阅读 · 1 评论 -
VB 汉字拼音及声调
Private Sub Command1_Click() Text2 = "全拼+声调:" & GetChineseSpell(Text1, 0) & vbCrLf & "全拼:" & GetChineseSpell(Text1, 1) & vbCrLf & "拼音首字母:" & GetChineseSpell(Text1, 2)End Sub========原创 2008-10-10 22:14:00 · 2672 阅读 · 0 评论 -
VB中窗体控件的值自动保存到INI文件中.
资源地址:http://d.download.csdn.net/down/681083/MSTOP第一次运行,在窗体的控件中输入不同的值.然后退出.再运行,你输入的值将会自动读到相应的控件中.//窗体 Private Sub Form_Load() On Error Resume Next Call GetIniToFrmControl(Me, "C原创 2008-10-10 23:44:00 · 3278 阅读 · 1 评论 -
VB 窗体的任何部分皆可拖动窗体
按窗体的任何部份皆可拖动窗体,假定窗体名为Form1 声明部份 Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As原创 2008-10-10 23:19:00 · 1726 阅读 · 0 评论 -
VB中窗体操作.
窗口操作(SmWinCtrl) Option ExplicitPrivate Const HWND_TOP = 0Private Const HWND_BOTTOM = 1Private Const HWND_TOPMOST = -1Private Const HWND_NOTOPMOST = -2Private Const SWP原创 2008-10-10 22:36:00 · 1524 阅读 · 0 评论 -
VB中取各种系统路径名,格式化磁盘,建立快捷方式,鼠标的定位,移动
Option Explicit 系统操作(SmSysCls) Const SW_SHOW = 5Public Type SmPointAPI X As Long Y As LongEnd TypePrivate Declare Function EbExecuteLine Lib "vba6.原创 2008-10-10 22:34:00 · 2105 阅读 · 1 评论 -
VB对数字/字符数组的快速排序.查找.
数值与数组操作 Option Explicit 数值快速排序(从小到大) 函数:NumSortAZ 参数:Myarray Double数组,L 数组的左边界,R 数组右边界. 返回值:无 例子: Public Sub NumSortAZ(ByRef Myarray, l As Long, R As Long)原创 2008-10-10 22:31:00 · 6127 阅读 · 5 评论 -
VB取硬盘的物理信息(序列号,容量,转速,型号)
取硬盘的物理信息(序列号,容量,转速,型号)(smHDinfo) /网站:东方热讯:http://www.easthot.net /邮件:sales@easthot.net /2003.01.23 ***********************************************************************转载 2008-10-10 22:27:00 · 1908 阅读 · 0 评论 -
VB 磁盘信息,文件夹,文件操作
文件,文件夹操作类 /工程==>引用==>Microsoft Scripting Runtime Option ExplicitPrivate Const HKEY_CLASSES_ROOT = Private Const HKEY_CURRENT_USER = Private Const HKEY_LOCAL_MACHINE = Priv原创 2008-10-10 22:25:00 · 2007 阅读 · 1 评论 -
VB动态函数曲线的绘制
CTRL+T ==>Microsoft ScriptControl Option Explicit Public Y As Double Public X As Double 引用 Private Sub Command1_Click() Dim MathStr A原创 2008-10-10 22:16:00 · 2262 阅读 · 1 评论 -
VB中对数据库的各种操作.
数据库操作(SmDbCtrl) Option ExplicitPublic DbStyle As StringDim CT As SmDataDiap ======================================================================== 创建一个SQLSERVER定原创 2008-10-10 22:38:00 · 5074 阅读 · 2 评论