[吐血奉献]VB使用系统函数实现关机重启等命令模块
Attribute VB_Name = "ShutDownNT" '函数作者:纪小年 https://8jxn.com
予人玫瑰,手有余香。
Attribute VB_Name = "ShutDownNT" '函数作者:纪小年 https://8jxn.com
Attribute VB_Name = "cls_Ini" '======================================== '模块名称:cls_Ini '函数作用:读写INI文件 '函数作者:纪小年 https://8jxn.com '...
Attribute VB_Name = "PC_Q_PLC" '函数作者:纪小年 https://8jxn.com '需要使用一个MSComm控件 'Q系列通讯协议小结 '指令由命令+子命令构成 'BR,0401+0001 'BW,1401+0001 'W...
在C语言中有个产生格式化输出的函数Printf,假如b的值为24,则使用函数printf("the value of printf is:%d",a)输出为the value of printf is:24。 下面这个函数就能使你的VB能实现Pri...
自从VB4.0后,就把汉字看做是1个字符了。这给我们的字符串的截取带来了严重的麻烦! 如果是汉字 数字或字母的字符串,往往截取到的字符串长度不是理想中的,其中涉及到的函数有LEN、LEFT、RIGHT 我收集了如下3个函数,用来取代 len()...
我们经常看到别人的程序界面(UI)都设计的非常漂亮,使用了大量的picture来替换背景或者按钮。但是似乎有的窗体是圆角的,而自己制作出来的就只有方方正正的,是怎么实现的呢? 首先创建一个窗体,并将窗体的BorderStyle属性设为0然后声明AP...
我们可以看到有些程序在开机时就会自动运行,象windows7的侧边栏就是这样的,这是怎么实现的呢?可以把需要运行的程序添加到“开始”-“程序”-“启动”中,还有一种方法就是写入注册表了,这里我们讨论通过写注册表来实现的方法,从中可以看到三个对注册表操作...
这是开启Aero时的效果: 这是没有开启Aero时的效果 源码如下: 模块内容: Public Type MARGINS m_Left As Long m_Right As Long m_Top As Long m_Button As Long End T...