博文
劲爆搞笑的经典对白(2005-10-16 10:33:00)
摘要：
劲爆搞笑的经典对白
两个相爱的玉米粒决定结婚，可是婚礼时找不到新娘了，新郎问一直跟在身边的一个爆米花，爆米花害羞地说：讨厌，人家穿的是婚纱！
一天，你遇到狮子，故作镇定，用可怕的眼神瞪狮子。突然狮子双手合十并跪了下来，你得意地说：知道厉害了吧！少顷,狮子幽幽地道：祷告完毕，可以用餐了。
一个消化不良的病人向医生抱怨：我近来很不正常，吃什么拉什么，吃黄瓜拉黄瓜,吃西瓜拉西瓜，怎样才能恢复正常呢？医生沉默片刻，那你只能吃屎了。
一家房地产商为推销房屋，打出“买房子，送家具”的广告。某人买了一套新房，装饰后去领家具。房产商：你的家具在哪里？我们帮你送！
母老鼠怀疑老公有外遇，她跟踪老公到草丛旁。一会儿一只刺猬钻出来。母老鼠一把拽住刺猬：死鬼，还说没外遇，擦这么多摩丝去勾引谁呀？
有一个人很苯总找不到工作。一天他到肯德基面试。经理问：你有什么特长？ 他说：我会唱歌。于是他清清嗓子唱到：更多选择更多欢笑尽在麦当劳...
小杜克央求哥哥“你去向妈妈要点钱，咱们两个看电影去。”“要去你自己去，妈妈又不光是我一个人的”“可你跟妈妈认识得早一些嘛！”
瞎子骑车带结巴,结巴看路,忽见深沟,结巴惊呼:沟沟沟!!!瞎子回唱道:“噢勒噢 勒噢勒!“于是二人坠入沟中.
某日刘洪涛遇到外宾，上前搭话曰：I am HongTao Liu，外宾曰：我他妈还是方片七呢！
上联：忆往昔红米饭南瓜汤老婆一个孩子一帮。下联：看今朝白米饭甲鱼汤孩子一个老婆一帮。横批：与时俱进
一醉汉不慎从三楼掉下,引来路人围观,一警察过来:发生什么事？醉汉：不清楚,我也是刚到！
妻：女人需要男人，男人也离不开女人。夫：男人为什么需要女人？妻子：世界上没有女人，谁来给男人的裤子钉钮扣？夫：世界上没有女人，谁还需要裤子！
一时髦女子轻盈地走上公交车，见一空座，掏出餐巾纸猛擦一阵后坐下，不料放了个屁。旁边一男子笑曰：靠，真他妈干净，擦完还吹吹！
你到云南西双版纳旅游，途中遇到一群野猪的围攻，旅客均掏出食品，金钱，野猪不为所动，你掏出仅有的身......
一起向诸葛亮学十堂课(2005-10-16 10:30:00)
摘要：
一起向诸葛亮学十堂课
诸葛亮字孔明，琅琊(今山东省沂南县)人，是中国三国时代著名的政治家及军事家，也是古代著名的智者。诸葛亮写给儿子的一封信，只用了短短八十六字，但是对于为学、做人有精简而且具体的忠告。 一千八百多年前的智能，在今天的科技时代，原来仍然有其参考价值。年青时听人说：「真正的智能，可以超越时空，历久常新。」初时不知所以，现在觉得所言甚
是。让我们一起向诸葛亮老师学习十堂课，在变局中安身立命，在逆境中找到力量：
诸葛亮给子书
夫君子之行，静以修身，俭以养德；非澹泊无以明志，非宁静无以致远。夫学须静也，才须学也；非学无以广才，非志无以成学。怠慢则不能励精，险躁则不能冶性。年与时驰，意与岁去，遂成枯落，多不接世。悲守穷庐，将复何及！
*********************************************************
>> 第一课：宁静的力量
>> 「静以修身」、「非宁静无以致远」、「学须静也」。 诸葛亮忠告孩子宁静才能够修养身心，静思反省。不能够静下来，则不可以有效的计划未来，而且学习的首要条件，就是有宁静的环境。 现代人大多数终日忙碌，你是否应在忙乱中静下来，反思人生方向？
>> 第二课：节俭的力量
>> 「俭以养德」。
诸葛亮忠告孩子要节俭，以培养自己的德行。审慎理财，量入为出，不但可以摆脱负债的困扰，更可以过着纪律的简朴生活，不会成为物质的奴隶。在鼓励消费的文明社会，你有否想过节俭的好处呢？
>> 第三课：计划的力量
>> 「非澹泊无以明志」、「非宁静无以致远」。
诸葛亮忠告孩子要计划人生，不要事事讲求名利，才能够了解自己的志向，要静 下来，才能够细心计划将来。面对未来，你有理想吗？你有使命感吗？你有自己的价值观吗？
>>第四课：学习的力量
一位女生的说话(2005-10-16 10:29:00)
摘要：
一位女生的说话
看到有的男生想追自己喜欢的女孩子又不敢追，还想好事想人家倒追他，我很反感.
根据我多年的经验我觉得女孩子大多不会主动出击，去追求自己喜欢的男孩，除了确实太喜欢了或者是那种比较有个性的勇敢的女孩子。所以，如果你很喜欢一个女孩子，并且认为她对你也有点意思，那就主动点，别跟她搞拉锯战，自己难受，说不定你喜欢的人也痛苦。
任何一个女孩子在被人追的时候，心理都是很复杂的。她也许很开心，但是又带着点惶恐，她对这个闯进自己平静的生活的男孩子，有着欲拒还迎的矛盾心理，她不是故意的。不要以为她在考验你，她其实也在和自己斗争，她怕受到伤害。
不要怕你的主动会带来她的反感，你不主动，她也不主动，也就慢慢淡下来了。如果你开始的表白被她拒绝，那也很正常呀。不要气馁，谁知道这个女孩子心里在想什么呢？
也许你再表白两次，她就会被你打动，一个心地善良的好女孩是很容易感动的。
如果你受到一次挫折，就立刻离开，再也不去答理这个女孩，把自己紧紧地保护起来，默默地舔舐伤口，在你痛苦的同时，殊不知，那个女孩子也许也正在心里遗憾、后悔呢！也许她会偷偷哭泣，后悔拒绝了你，再看到你漠然的眼神，她也很痛心，但是她却不会对你说，绝对不会请求你回来追她。你的过度的自尊心，可能会伤害了女孩子敏感的心。
她会认为你不是真诚的喜欢他，要不怎么会就这么放弃了她？
有人说，男生真难，追女孩子太不容易了。可是我的感觉却是，这种现象跟男人和女人的社会角色定位是分不开的，从生理和社会的角度，女人总是被动的。如果反过来,让男人都脉脉含羞，女人变得勇往直前，世界才乱了套呢！女人的羞涩总是美好的、动人的呀~~~我总是听说是某个勇敢的男人战胜了多少困难，最终获得佳人芳心。相反的例子却少得很。
有的男生，就怕别人说自己什么死缠烂打，落下不好的名声。可是我觉得男生追求自己喜欢的女孩子，受了点挫折还继续对这个女孩子好，说明人家确实很喜欢，很有诚意，如果没成功，也不遗憾，并没什么啊？谁让人家喜欢了？最讨厌别人跟着瞎掺乎，也最讨厌那种自己没主意，过于在乎别人对自己看法的男生，活该这种男生找不到女朋友。
一个令人晕三次的聊天[转贴](2005-10-16 10:27:00)
摘要：
一个令人晕三次的聊天[转贴]
那天夜里，我翻来覆去睡不着，看看表已经是夜里一点多了，下床打开计算机，我进了某个网站的一个聊天室。进去后发现人不是很多。几个人在讨论什幺样的女人最可爱。我用了一个很俗的名字--村妮儿。 我热情的和大家打招呼：各位老师好!俺是刚来的。啥规矩也不懂，老师们多指教。
一个叫多情分子的说：不好好呆在村里，跑这来干吗？
我：俺妈说了让俺来城里长点见识，回去好找个婆家。
多情公子：就你这样的还想嫁人啊？
我：俺妈说了，俺模样长的俊。肯定能找到好婆家，所以俺才来城里长见识了。听人家说这网里啥都有，俺就顺便来瞅瞅，老师们多帮帮俺!
相思成疾：谁是你老师呀？傻丫头你怎幺张嘴就喊老师啊？
我：俺们那里认字的，俺都叫老师。
心如月：傻妹妹，你笑死我了，我问你，你知道菜温斯基是谁吗？
我：他是开车的吧？开汽车还是拖拉机啊？俺村里有大卡车，开车的都叫司机。你说的菜温斯基俺没听过。
很多人喊晕。
我：你们不是在网上吗？你们那里的网是不是晃荡呀？怎幺都晕了？
心如月：我都有喷饭啦。傻妹妹我告诉你，菜温斯基就是和美国前总统发生桃色新闻的那女孩。
多情公子：阿月你还和他说美国,他知道美国在那里吗？
我：俺就知道中国，俺老师说了，中国是俺的祖国。俺的祖国地大物博，美国是什幺东西？
相思成疾：傻丫头，没看出你是爱国者呢。我告诉你呀。美国在地球那边。
心如月：傻妹妹，你知道地球是圆的吗？
我：俺知道，俺老师说，地球老大老大的阿。俺老师说，有一个笨蛋想找个点把地球撬起来，最后没找到。
他们的网又晃荡了。又晕倒到一大片。
我对相思成疾说：老师呀，我问你阿。美国人天天大头朝下不难受吗？
相思成疾：什幺大头朝下？
我：地球是圆的，你说的他们在咱们脚底下。那他们不大头朝下吗？
心如月：傻妹妹，你太可爱啦。我肚子疼死了。
VB 中调用 Word 拼写检查 (2005-10-15 12:15:00)
摘要：
VB 中调用 Word 拼写检查
作者：
评价：
上站日期: 2001-09-06
内容说明：
来源：
Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$
On Error Resume Next
' 建立对象并打开 WORD
Set Word = CreateObject("Word.Basic")
' 把需要检查的 STRING 放到 WORD
Word.AppShow
Word.FileNew
Word.Insert IncorrectText
' 运行 WORD 拼写检查
Word.ToolsSpelling
Word.EditSelectAll
' 取返回值
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1)
'关闭文件并回到 VB 应用
Word.FileClose 2
Show
Set Word = Nothing
End Function
......
用VB控制EXCEL生成报表 (2005-10-15 12:15:00)
摘要：用VB控制EXCEL生成报表
作者：
评价：
上站日期: 2002-01-14
内容说明：
来源：
做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 5 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。
下面给出一个实例：
首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮，引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 8.0 Object Library;选择"确定"。
在FORM的LOAD事件中加入：
Data1.DatabaseName = 数据库名称
Data1.RecordSource = 表名
Data1.Refresh
在按钮的CLICK事件中加入
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen() "存字段长度值
Dim&nb......
自动开始上次关机时关闭的应用 (2005-10-15 12:13:00)
摘要：
自动开始上次关机时关闭的应用
作者：
评价：
上站日期: 2001-09-04
内容说明：
来源：
两点关键：
1 检测是 Windows 关闭引起的 QueryUnload 事件。
2 改写 Software\Microsoft\Windows\CurrentVersion\RunOnce
声明：
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData ......
如何取得计算机的所有字体(2005-10-15 12:07:00)
摘要：如何取得计算机的所有字体
作者：
评价：
上站日期: 2001-09-04
内容说明：
来源：
取得屏幕字型：
Dim I As Long
For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
取得打印机字型：
Dim I As Long
For I = 0 To Printer.FontCount - 1
Combo2.AddItem Printer.Fonts(I)
Next
......
如何让文本框只接受数字？(2005-10-15 12:06:00)
摘要：如何让文本框只接受数字？
作者：
评价：
上站日期: 2001-09-01
内容说明：
来源：
使用如下代码，在文本框的按键事件中加入：
Private Sub Textl_KeyPress（KeyAscii As Integer）
If keyAscii> =33 Then
If KeyAscii< =vbkey9 And KeyAscii> =vbKey0 Then
Else '把KeyAscii设为0就是取消输 入。
KeyAscii=0
MsgBox ”不要输入数字！”
End If
End If
End Sub
注意：KeyAscii键值与KeyCode 相同，我们可以查看KeyCode值，不 过有些KeyCode键值必须在 KeyDown和KeyUp中才有效，在 KeyPress的KeyAscii中没用。利用 KeyAscii=0的方式在KeyPress中有 用，但在KeyDown中让KeyCode=0 就不行了。
......
在VB6.0中使ACCESS数据库在网络使用中保持同步(2005-10-15 12:06:00)
摘要：在VB6.0中使ACCESS数据库在网络使用中保持同步
作者： 倪秉书
评价：
上站日期: 2001-09-01
内容说明：
来源：
同步（Synchronization）是数据库在网络环境中应用所要涉及到的一个重要概念。其基本过程大致分以下几个步骤：首先把一个数据库设为可复制副本属性，使其成为设计正本（VB中称设计原版，ACCESS中称设计母版）；然后根据应用程序的实现需要从设计正本复制出多个副本（VB中称复本），这些副本组成一个副本集合（设计正本也被看做是第一个的、初始的副本）；最后在集中任何复本的数据或结构被更改会时启用同步机制把改变发送并且应用于此复本集中的其他成员，使得副本集中的成员在数据或结构上保持一致性。实现同步的这一过程被称为同步化。VB6.0为实现同步，在数据库对象中提供了多个属性与方法来实现这一过程，以下介绍主要的几个属性与方法，分别对应同步化的几个步骤：
1．Replicable属性：
Replicable属性用来使一个数据库对象或数据库中的表对象、查询对象等对象成为可复制副本的，即成为设计正本。但数据库对象并不提供Replicable这一属性，因此首先要用CreatePropety方法来创建它，然后把它添加到对象的属性集中，最后再给它赋值，使数据库成为设计正本。对于数据库对象而言，把Replicable属性设置为“T”将使数据库对象成为可复制的。以下代码将使VB6.0安装目录下附带的Nwind.mdb数据库成为一个设计正本（为确保安全建议在操作前备份这一库文件）：
Private Sub Command1_Click()
Dim dbNwind As Database
'如果末引用DAO则一定要先引用
Dim prpNew As Property
Set dbNwind = OpenDatabase("Nwind.mdb", True)
......