博文
VB 可用指令、函数 索引表(2005-12-15 22:01:00)
摘要：
VB 可用指令、函数 索引表
点击数：4 发布日期：2005-12-15 19:34:00 【评论】【打印】【收藏此页到365Key】
电信机房P4服务器·6999/年·送产权蓝芒系统
A
Abs 求绝对值
ActiveControl 得到焦点的对象
ActiveForm 得到焦点的表单
Array 指定数组
App 得知程序信息
AppActivate 激活执行中的应用程序
Asc 求字符的内码
AscB 求字符的ASCII
AscW 求字符的UniCode
Atn 求Tan-1
B
Beep 发出预设的警示声
C
Call 调用子程序
Calendar 选择月历
Choose 取出一列值的某个值
CBool 数值转成布尔数
CByte 数值转成位元格式
CCur 数值转成货币格式
CDate 数据转成时间
CDbl 数值转成双精度浮点数
CDec 数据转成十进数......
启动控制面板大全(2005-12-15 22:00:00)
摘要：
启动控制面板大全
点击数：4 发布日期：2005-12-15 19:39:00 【评论】【打印
控制面板
模块： control.exe
命令： rundll32.exe shell32.dll,Control_RunDLL
结果： 显示控制面板窗口。
例子：
Dim x
x = Shell("rundll32.exe shell32.dll,Control_RunDLL")
辅助选项
模块： access.cpl
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
结果： 显示辅助选项/常规。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
结果： 显示辅助选项/键盘。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
结果： 显示辅助选项/声音。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
结果： 显示辅助选项/显示。
命令： rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
结果： 显示辅助选项/鼠标。
添加新硬件
模块： sysdm.cpl
命令：rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
增加新的打印机
模块：shell32.dll
命令：rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
添加/删除程序
模块：appwiz.cpl
命令：rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
结果：显示安装/卸载。
命令：rundll32.exe shell32.dll,......
使用VB建立Web Server(2005-12-15 21:58:00)
摘要：
使用VB建立Web Server
点击数：6 发布日期：2005-12-15 19:44:00 【评论】【打印
李勇
---- HTTP协议在浏览器中使用的原理：首先，Web浏览器与服务器建立连接，然后Web浏览器通过HTTP协议向服务器请求文档，最后，由服务器向Web浏览器应答，关闭连接。这就是HTTP协议的一般工作过程。下面，使用Visual Basic 5.0中文版来实现一个简单的Web服务器，使用Tcp/IP协议的 80端口，一般浏览器中的Http协议默认此端口，然后设置好超文本文件的发布路径，本程序默认为C:\InetPub\wwwroot，此Web Server程序比较简单，只适用于包含有文的超文本文件，如果超文本文件中含有图形，无法显示出来。
一、建立窗体
控件依次为label1,label2,label3,
text1,text2,text3,command1,及Winsock1
label1.caption=”Visual Basic Web 服务器 1.0”
label2.caption=”本机地址”
label3.caption=”发布路径”
text2.text=”c:\Inetpub\wwwroot\”
command1.caption=”启动”
又击Command1加入代码
Private Sub Command1_Click()
'启动Winsock1,使用listen方法，听80端口
DoEvents
Winsock1.Close
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 80
Winsock1.Listen
Text1.Text = "WinSocket状态:
" &......
Visual Basic 122条函数(2005-12-15 21:57:00)
摘要：
函数
Abs函数
Array函数
Asc函数
Atn函数
CallByName函数
Choose函数
Chr函数
Command函数
Cos函数
CreateObject函数
CurDir函数
CVErr函数
Date函数
DateAdd函数
DateDiff函数
DatePart函数
DateSerial函数
DateValue函数
Day函数
DDB函数
Dir函数
DoEvents函数
Environ函数
EOF函数
Error函数
Exp函数
FileAttr函数
FileDateTime函数
FileLen函数
Filter函数
Format函数
FormatCurrency函数
FormatDateTime函数
FormatNumber函数
FormatPercent函数
FreeFile函数
FV函数
GetAllSettings函数
GetAttr函数
GetObject函数
GetSetting函数
Hex函数
Hour函数
IIf函数
IMEStatus函数
Input函数
InputBox函数
InStr函数
InStrRev函数
Int、Fix函数
IPmt函数
IRR函数
IsArray函数
IsDate函数
IsEmpty函数
IsError函数
IsMissing函数
IsNull函数
IsNumeric函数
IsObject函数
Join函数
LBound函数
LCase函数
Left函数
Len函数
Loc函数
LOF函数
Log函数
LTrim、RTrim与Trim函数
Mid函数
Minute函数
MIRR函数
Month函数
MonthName函数
MsgBox函数
Now函数
NPer函数
NPV函数
Oct函数
Partition函数
P......
3000年的幸福生活，过不成看看也好呀(2005-12-15 21:46:00)
摘要：3000年的幸福生活，过不成看看也好呀～
作者:Lolita 发布于 子陵论坛 http://www.ziling.com ......
军事笑话 (2005-12-15 21:43:00)
摘要：
军事笑话
作者:llf111 发布于 子陵论坛 http://www.ziling.com
军官要爱护士
某军首长发表处理好官兵关系的讲话，稿子乃由秘书写成。在一页纸快念完时，首长曰：“军官要爱护士”
场下一片大哗。首长也觉得奇怪，遂翻到下一页，大声补充曰：“这里还有一个‘兵’！”
伊拉克战争·避孕套·小泉子
美英联军在向巴格达推进的过程中，遭遇了强沙尘暴天气。
怎样不让沙尘堵住枪口，让他们非常头疼。
布赖尔别出心裁，要国内紧急支援避孕套。
结果，由于枪口口径太大，英国生产商无货。
布施得知后，对布赖尔的政治智慧大加赞赏，称其是当今世界第二聪明的政治家，并一拍胸脯，当即表示包在美国身上，保证80000将士人手一只。
布赖尔特别高兴，不忘补充一句，我们要12口径的奥！
布施听后也面露难色，这么小的号码我们早就不生产了，我看还是联系一下小泉子吧
多年的习惯
有个经历过很多战争并得过很多勋章的步兵退伍了。刚回到城里，他的朋友就给他介绍了一个女友。在他出门之前，他朋友给了他很多忠告：“你可能在战争中经历过很多事物，但有些事你要听我的。第一，你下车后要替你女朋友开门；第二，你女朋友入座时你应在她椅子后帮她；第三，她说话时你要温柔地看着她；第四，她需要什么东西你一定要抢先做好，不要让她动手。”那个步兵说记住了，于是就走了。
第二天，当朋友打电话问步兵昨晚如何时，步兵沮丧地说：“我没有希望了！”
于是朋友问他：“你是不是忘了替她开车门？”
步兵说：“不，我替她开了车门，她很高兴！”
朋友又问：“你是不是忘了帮她入座？”
步兵说：“不，我帮她入座，她说我是绅士！”
于是朋友又问：“你是不是在她说话的时候东张西望？”
步兵说：“不，我一直看着她，她说我很温柔，并且说我的眼睛很有魅力！”
最后朋友问：“那你是不是在某事上让她自己动手了？”
步兵沮丧地说：“如果真是这样就好了。我们回家时，她说口渴，于是我就跑去替她买饮料。”朋友说：“那很好呀！”
步兵又说：“可是出于多年的习惯，我一拉开饮料罐，就向她砸了过去，自己躲到了......
女流氓语录 (2005-12-15 21:35:00)
摘要：
女流氓语录
作者:没谱女青年 发布于 子陵论坛 http://www.ziling.com 现在的女娃比男娃猖狂多了，都成女流氓了
第一晚,几个人围坐打牌.其中一个女生(准美女),年纪比我们小,却偏偏卖老,开口闭口“小弟弟“,偶对家一次说了一句什么话,惹了她,只听她发狠道:“...我把你小弟弟的皮拨了!“满座皆寒!
第二晚，亦在打牌中，一帅哥说话中提到他哥哥，边上一女生(美女)甚惊讶,问道:“你上面还有哥哥啊?“ 帅哥答:“是啊...“女生又问:“那你下面有没有弟弟?“全场厥倒!
有一次和mm在电话里胡扯，谈到日这个字，我挺不好意思的说日是做爱的意思，mm很大嗓门的说：日不是作爱，是操！操和作爱是不一样地！！！我ft!!!!!
有次和朋友的mm坐在一起聊天，她问我多大了，我说不告诉你，她说“不告诉我？嘿嘿，把你jj切开看‘年轮’”…………jj都有“年轮”？
mm边打牌边吃零食,嚼牛肉干可能嚼到筋了,半天嚼不烂,遂云:“你买的什么牛肉干啊，嚼起来跟嚼牛鞭一样……”
高中时偶班俩mm对骂，其中一人怒曰“我操！另一人曰：我妈操什么操！我妈是属于被操的！
某日于一网吧cs，人不多，对面坐一mm估计在语聊，声音很大。不一会儿可能mm和对方发生争执开始对骂，刚开始也无非就是国骂之类的，偶没有太注意，继续cs。。。2分钟后，mm高呼一句：“你丫再横，我一b夹死你！”。。。。网吧众人绝倒。。。
高中，一朋友和女生吵架，那女生一字一句的说：“我……操……你……妈！”哥们忍不住说：“你拿什么操？？” 那女生说：“我用你的！”
初中时，有两个mm吵架，其实是斗嘴玩，一个说：“我***！”偶们当时都暴寒，谁知旁边另一个女生说了一句话足以寒死全世界，她说：“应该是‘我 *** 爸’！”，众人晕倒～～～
偶妹妹xx完了之后喜欢捏着我疲软的jj，然后一边摇一边说：呼吸啊！呼吸啊！人工呼吸！而且要求jj要一直保持疲软！寒……
偶mm的室友经常恐吓她们的一句话就是：“再说再说，把你下......
一篇令中国人心惊肉跳的警世佳文(2005-12-13 21:10:00)
摘要：
一篇令中国人心惊肉跳的警世佳文
作者:必杀计 发布于 子陵论坛 http://www.ziling.com 前言
一个国家的强大，首先是经济上的强大，毕竟经济是一切上层建筑的基础。没有雄厚经济实力的支持，一个国家便犹如站立在流沙上的巨人，只能是貌似强大，即便有时也能拿着大棒唬一唬人，但终究底气不足。前苏联二战过后不也风光了一阵，过了一把超级大国的瘾吗？最后也逃不过分崩离析的厄运。中国决不能走前苏联的老路，既然已经确定了本阶段国家发展的指导思想是以经济建设为中心，就坚决不能动摇 ！！！！！
------ 就日常饮食而论，如今简单地说“西方人吃肉，中国人吃草”或许会有不少争议：西方“素食主义”越来越流行，而普通中国人的家常便饭中肉类食物则越来越多。但若干年前刚听到此论时还觉得挺象那么回事。那时所谓“中国饭”（当然是指普通人家的家常便饭）无非是主食加副食；“主食”的基本概念是五谷杂粮，“副食”的主要内容则是青菜豆腐之类，总之以草本食物为主。而一提到西餐则令人想到牛奶、黄油、奶酪、鸡蛋，再有就是鸡、鱼、肠以及血乎刺拉的牛排之类，总之净是来自动物身上的东西。由此而言，比喻“西方人吃肉，中国人吃草”似乎也不为过。
但接下来的结论（“西方人是食肉动物，中国人是食草动物”）听起来就有点扎耳朵：食肉动物是食草动物的克星，如此引伸，岂不是有点“中国人命中注定要受西方人欺侮”的味道？
然而反过来思索一下，一个民族的特徵还真可以用食肉物或食草动物的某些特徵来类比。
除了一个吃肉，一个吃草，食肉动物和食草动物还有什么区别？最主要的区别也许是：食肉动物的思维方式从来富于警惕性和攻击性，是主动的一方；而食草动物的思维方式充其量也仅仅是防御，永远处于被动地位。当遇到其他族类动物时，食肉动物只关注两件事：第一，它会不会吃我？第二，我能不能吃它？如果判明对方对自己有威胁，那就要么格斗，要么逃跑；反之就要准备吃掉对方，老实不客气。而食草动物如果是野生的，则只关注头一条：他会不会吃我？如果会，那就逃跑；如果不会，那就“和平共处”，总之不打别人的主意。如果这食草动物是家养的，则连这点警惕思维也没有，一切听之任之，逆来顺受。
......
Visual Basic 属性、方法和事件一(2005-12-10 14:34:00)
摘要：
Visual Basic 属性、方法和事件一
作者：佚名 文章来源：不详 点击数：
3 更新时间：2005-11-26
- style="padding-top:5px">
属性、方法和事件概述
Visual Basic 的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。日常生活中的对象，如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可以看到的一些性质，如它的直径和颜色。其它一些属性描述气球的状态（充气的或未充气的）或不可见的性质，如它的寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球的不同而不同。
气球还具有本身所固有的方法和动作。如：充气方法（用氦气充满气球的动作），放气方法（排出气球中的气体）和上升方法（放手让气球飞走）。所有的气球都具备这些能力。
气球还有预定义的对某些外部事件的响应。例如，气球对刺破它的事件响应是放气，对放手事件的响应是升空。
如果能对气球编程的话，Visual Basic 代码将如下所示。其作用是设置气球的属性：
Balloon.Color = Red
Balloon.Diameter = 10
Balloon.Inflated = True
注意代码的语法，首先是对象 (Balloon)，接着是属性 (Color)，然后是赋值(Red)。重复这条语句，但是，换一个不同的值，就可以改变气球的颜色。属性也可以在程序设计阶段在“属性”窗口中设置。
调用气球的方法是这样的：
Balloon.Inflate
Balloon.Deflate
Balloon.Rise 5
它的语法与属性的语法相似，对象（一个名词）后面紧跟着方法（一个动词）。在第三个例子中有一个附加项，称为一个参数，表示气球上升的高度。一些方法有一个或多个参数，它们对执行的动作做进一步的描述。
气球对一个事件的响应如下所示：
Sub Balloon_Puncture()
......
Visual Basic 属性、方法和事件二(2005-12-10 14:32:00)
摘要：
Visual Basic 属性、方法和事件二
作者：佚名 文章来源：不详 点击数：
7 更新时间：2005-11-26
-
单击按钮执行操作
使用户与应用程序交互的最简便的方法是给用户提供一个按钮。可以用Visual Basic 提供的 CommandButton 控件，或利用包含图形的 Image 控件，如一个图标，来创建自己的“按钮”。
使用 CommandButton
大多数 Visual Basic 应用程序都有 CommandButton，使用户通过简单的敲击按钮来执行操作。当用户选中按钮时，不仅会执行相应操作，还会使该按钮看上去象被按下并释放一样。无论何时，只要用户单击按钮，就会调用 Click 事件过程。将代码写入 Click 事件过程，执行想要执行的动作。
在程序执行时，有多种方法可以选中 CommandButton ：
用鼠标单击按钮。
按 TAB 键把焦点移到相应按钮上，然后按 SPACE 键或 ENTER 键选中该按钮。参阅本章后面的“焦点概述”。
按 CommandButton 的快捷键（ALT +下划线的字符）。
在代码中设 CommandButton 的 Value 属性为 True。 cmdClose.Value = True
在代码中调用 CommandButton 的 Click 事件。 cmdClose_Click
如果该 CommandButton 是窗体的缺省命令按钮，既使将焦点移到其它不是 CommandButton 的控件上，按下回车键也会选中该按钮。在设计时，通过设置某按钮的 Default 属性为 True ，指定它为窗体的缺省CommandButton 。
如果该 CommandButton 是窗体的缺省的取消按钮，即使把焦点移到其它控件上，也能通过按 ESC 键选中该按钮。在设计时，通过设置某按钮的 Cancel 属性为 True，指定它为窗体的缺省的取消按钮。 所有这些操作都使 Visual Basic 调用 Click 事件过程。
“测试按钮”应......