博文
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 数据转成十进数
ChDir 改变目前路径缓......
启动控制面板大全(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,Control_RunDLL appwiz.cpl,,1结果：显示安装/卸载。
命令：rundll32.exe shell32.dll,Control_RunDLL ......
使用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,及Winsock1label1.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.ListenText1.Text = "WinSocket状态: " & CStr(Winsock1.State) + " 本机IP地址:" + CStr(Winsock1.LocalIP)End Sub然后在......
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函数Pmt函数PPmt函数PV函数QBColor函数Rate函数Replace函数RGB函数Right函数Rnd函数Round函数Second函数Seek函数Sgn函数Shell函数Sin函数
SLN函数Space函数Spc函数Split函数Sqr函数Str函数StrComp函数StrConv函数StrReverse函数String函数Switch函数SYD函数Tab函数Tan函数Time函数Timer函数TimeSerial函数TimeValue函数类型转换函数TypeName函数UBound函数UCase函数Val函数VarType函数Weekday函数WeekdayName函数Year函数......
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() Balloon.Deflate Balloon.MakeNoise "Bang" Balloon.Inflated = Fa......
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 事件过程。 “测试按钮”应用程序 利用 Caption 属性可以在按钮上显示文字，告诉用户该按钮的功能。在图3.4 中，在控件示例应用程序的......