2005年平安夜，初恋女友的来信让我看到了那个当初纯真热情的少年，也让我看到了现在这个龌龊不堪的自己。

我如此地鄙视这样的我，而我悲哀地发觉，已经没有哪一条路，可以让我再回到从前。

想起自己曾经看过的一个帖子：其实每个男孩，原本都想做一个感情专一的好男人；其实每个男孩，本来注意女孩子都是脸庞而非胸部。只是这样的男孩，往往让人觉得幼稚古板，没有情趣。

于是男孩开始改变：嘴角挂着坏坏的笑，玩世不恭或者看破红尘，成为女人爱恨不已的那种男人。他们可以很容易俘获女孩子的心但是他们也会在黑夜里叼着烟流泪，在听到女人抱怨世上没有一个好男人时候，他们只是微笑着擦肩而过。

其实，我何尝不是这样呢？我对自己说。

平安夜和一帮朋友在酒吧狂欢，深夜尽兴而散。回到家里，妻子和女儿早已沉沉睡去。我悄悄走进书房，打开电脑处理当天的邮件。

浏览到最后一封时我愣了一下，是我初恋的女友霜儿。这封发自南半球的邮件除了简单的祝福还有一张照片。霜儿在信中说：很久不见了，还是怀念以前的你。十年过去了，你还好吗？

那是一张我俩在紫荆山公园的合影。照片上的少年腼腆清瘦，有点拘束，又有点矜持。身旁的女孩挽着他的胳膊，笑靥如花。

也许辞旧迎新的时候，人都会莫名地感伤和脆弱吧。我看着自己，看着镜中那个被酒精浸泡得庸俗肥胖的中年人，突然感到很陌生。

初恋的女友出国了

1995年秋天，我和霜儿考进了郑州的两所大学。我是专科，霜儿考上的是本科。本来我是要复读的，但霜儿想让我跟她一块儿来郑州上学。我知道她是舍不得我们三年的感情。我想，为了霜儿，就上这样的学校吧。

我的学校在西郊，霜儿的则在北郊。但几乎每个休息日，霜儿都会来找我，给我洗堆了几天的脏衣服。 同宿舍的哥们都说霜儿漂亮又贤惠，起哄让我请客。我笑骂着他们，心里却美滋滋的。

大二的时候，我开始在一家广告公司实习。公司老板是我的校友，对我很器重，他创业的经历让我备受鼓舞。

毕业的时候，已经升任公司创意总监的我放弃了继续上学的念头。我想趁年轻多

我在上海一个比较大的软件公司工作，老婆是北京一个小民营公司的财务会计。说实在的，老婆不是很漂亮，而是根本就不漂亮，是那种很平常很平常、很善良很善良的小女人，当时娶她，主要也是看重这一点，放心啊。前辈们说的好，男人要找个美丽动人的姑娘做情人，找个善解人意的做红颜知己，找个风情万种的做X伴侣，但是一定娶个实实在在的条件不如自己的安分守己过日子的女人做老婆。

深以为然，所以当母亲强逼着我与

老婆结婚时，我并没有太过反对。

婚后 ，说不上不幸，也谈不上幸福，与咱们大多数家庭一样平静地过着。彼此之间几乎没有什么共同语言，只有在说起儿子时，我们才眉飞色舞达成共识。有失落、有安慰，有时侯也有非份之想，当然也曾经沾花惹草，不过我一直很谨慎地把握着分寸。我不希望家庭破裂，不希望儿子受到伤害，也不希望我善良的老婆受到伤害。

男人就是这样，只许州官放火，不许百姓点灯；只许自己在外风花雪月，难忍老婆越雷池半步。我就是属于最典型也是最普通的男人。不仅我，男人都一样。

我是一个较为严肃的人，至少看上去整天是一幅道貌岸然的样子，所以我们之间很少开玩笑。有些啰里啰唆了。对老婆是亿万个放心的，原因有二，其一老婆没有多少姿色，不会引起男人的窥视之心，二是老婆天性善良、爱家护家，视儿子胜过自己的生命，所以我从来没有怀疑过我家会后院失火，从来没有怀疑过。

平淡的生活平淡的感情注定了平淡的性生活，总有种公事公办、应付差事支应公事敷衍了事的感觉，我没有太在意过老婆的感受，不过看样子老婆倒是很满足、很享受。天南地北那么远，毕竟离多聚少，老婆有时候也开玩笑“你不用，别人会用了啊”，我总是不以为然、觉得与我说这个很无聊，有时侯不冷不淡地回应“用就用吧，倒省了我的劲了”，有时候也故作满不在乎的姿态说“没事，我能接受，你只管随便”。现在想起来，是太伤害人了，是太不懂事了，但是那时候并不觉得。

日如流水，就这样过着。儿子渐渐大了，到了该用电脑的时候，一向省吃俭用的老婆连招呼也没跟我打，就买回了一台价值万元的电脑。尽管有一丝不快，但是毕竟是给儿子买的，我也很高兴。自从买了电脑之后，问题就出现了，我儿子很象我，从小就聪明过人，但是有些固执己见（我

虽然.NET的进展速度比原来预期的还要稍慢一些，但是，它向整个市场的渗透却是不可避免的，而且这个过程也不曾有过任何的停顿。许多分析师都预言，在2003年的第三季里，那些采用.NET的主要软件开发组织都将会开始部署第一批.NET的应用软件。对于微软的开发社群来说，这场迫在眉睫的巨大转变，让他们对未来的软件开发不禁产生了一个疑虑──Visual Basic的开发员将何去何从？
VB为上百万的软件开发者提供了一种便利的入门开发方式。微软一方面提供了强大的工具供开发人员生产应用软件，一方面又可避免开发人员介入Windows与组件开发的复杂过程。
但是，现在的情况即将改变。微软的.Net产品虽然依然不必让开发人员涉及平台细节，但程序工程师还是得处理组件开发的部分。程序开发员还是可和以前一样，工作时不需考虑指针（pointers）、内存分配（memory allocatio）、或者如何建立一个Windows讯息处理器；但是，他们再也不能忽略诸如inheritance，namespaces，以及method overloading等等组件设计的概念了。
随着.NET通过了初期玩家阶段，VB的开发员显然只能逐渐脱离VB 6.0的保护伞。这场即将来临的「语言大地震」，让不少评论人士开始猜测，VB的程序开发者将做何反应？他们是否会转向Java？他们会不会继续使用VB，并投入.NET，如果是这样的话，他们会选择C#还是VB.NET呢？他们会要求微软继续支持VB6并且让它保持一定的发展空间么？会不会有许多无法适应转变的程序开发员只能沦落去零售通路找工作，就像之前Java和C++程序设计师所认定的一样？
对于上面的这些问题我不打算做任何的臆测，但我认为现在该是破除一些相关迷思的时候了。
迷思一：.NET改变幅度很大，因此转到Java可能会更容易
对此，Forester Research调查公司的Frank E. Gillett做出了如下的论断：
「对于VB程序设计师（微软阵营中绝大多数的程序设计师）来说，要转换到.NET与转换到Java2平台是一样的困难。这是什么意思？对于微软开发厂商而言，现在该是重新思考对微软忠诚度的时候了，同时要将Java2与.NET平台以及工具拿来作平行比较。」
这句引言应该

一、引言
现在许多专业的网站都推出了自己的"新闻眼"(一种快速读取自己网站最近信息的软件），这种功能的实现方法如下。
二、这类软件的工作原理
（1）从指定网站下载相关的网页。（当然不是用 IE）
（2）把下载的网页转为文本文件。
（3）从文本文件中分析出必要的信息。
（4）显示在软件上。
三、在 VB 中实现的方法
程序所需要控件，1 个 Winsock 控件（其属性值为默认），1 个 TextBox 控件（Name 为 TxtWebPage，MultiLine 为 True，ScrollBars 为 2），提取数据后的界面如下（图1所示）：

注意：这里就以取得"搜狐"为例（http://www.sohu.com)
Dim i, j, m, n, o As Long
Dim temp(1 To 2), s, str, str1, str2, myall, gettext(11) As String

Private Sub Form_Load()
`建立连接连接
Winsock1.RemoteHost = "sohu.com`如果想取"新浪"，则换为 sina.com.cn
Winsock1.RemotePort = 80
Winsock1.Connect` 开始提取数据
End Sub

Private Sub Winsock1_Connect()
Dim strCommand As String
Dim strWebPage As String
strWebPage = "http://www.oshu.com/" `指定网页，这里是指搜狐的首页
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/html" + vbCrLf
strCommand =

用Visual Basic我们可设计出形形色色符合用户要求的应用程序，它确实是一种很好的用户程序开发工具，可VB提供的基本控件中都没有闪烁属性设置，使应用程序界面缺乏“活性”，近期笔者设计软件封面时，就要求字体不断地闪烁，为此，经反复分析、实践，最后终于成功地实现字体闪烁效果，现将设计过程说明如下：
　　(1)创建一个新目标文件(project1)，并建立一个窗体Form1。
　　(2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
　　(3)各控件属性设置：
　　Timer1的Enabled设置为True;
　　Label1的Caption设置为需闪烁的字体：“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0－Transparent”；
　　Command1中的Caption设置为“退出”。
　　(4)程序代码清单：
　　Option Explicit
　　Private Sub Form_ Load()
　　Label1.Top=850　　
　　　′设置闪烁字体的显示位置
　　Label1.Left=750
　　Timer1.Interval=555　　
　　′设置字体闪烁间隔时间
　　Form1.Windowstate=2
　　End Sub
　　′利用计时器控件Timer有规律地改变字体颜色(Forecolor)
　　Private Sub Timer1_Timer()
　　Chc Label1,1,4,8
　　End Sub
　　′Chc过程是循环地改变字体颜色(Forecolor)
　　Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
　　If Val(Cont.Tag)=Color1 Then
　　Cont.Tag=Color2
　　ElseIf Val(Cont.Tag)=Color2 Then

IMEMode属性。例如Text1.IMEMode = 1 一是想用鼠标右键在text中打开自己定义的一个新窗体，但总是跟出来一个系统默认的关于文本操作的菜单，如何把它去掉？在Text的MouseDown事件中if button=2 thentext1.enabled=falsetext1.enabled=ture '禁止出现系统菜单popupmenu mymenu '显示自已的菜单或做其它的事end if如何关闭ScreenSave功能, Timeout时间原始来源: cww此外希望只有本次使用 Windows 时改变(下次开机时还原原状)， 则最後参数改为 SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE)Const SPI_SETSCREENSAVEACTIVE = 17Const SPI_SETSCREENSAVETIMEOUT = 15Const SPIF_SENDWININICHANGE = &H2Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib "user32" Alias _"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ByVal lpvParam As Long, ByVal fuWinIni As Long) As LongPrivate Sub SetScreenSaveTimeout(ByVal BySecond As Long)Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, _SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)End SubPrivate Sub EnableScreenSave()Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, _SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)End SubPrivate Sub DisableScreenSave()C

MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象还缺少什么！对！还差 MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事件，必须用 API 函数：
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
然后，我们可以在控件（以 Picture1 为例）的 MouseMove 事件上加上以下代码：
With Picture1 'Change this to the name of the control
If Button = 0 Then
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
'Mouse pointer is outside button, so let other controls receive
'mouseevents too:
ReleaseCapture
' 放入鼠标离开的代码
Else
' Mouse pointer is over button, so we'll capture it, thus
' we'll receive mouse messages even if the mouse pointer is
' not over the button
SetCapture .hwnd
' 放入鼠标进入的代码
End If

这个技巧将向您展示如何使用捕捉光标的API函数阻止鼠标指针移出窗体。

注意！：如果窗体的BorderStyle属性被设为sizeable（2或5），则当你改变窗体的大小时鼠标就会“逃脱”程序的监控！因此你最好把BorderStyle设为0、1、3或4。

步骤：

把以下代码添加如模块：
Option Explicit

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Declare Function ClipCursor Lib "user32" _

(lpRect As Any) As Long

Public Sub DisableTrap(CurForm As Form)

Dim erg As Long

'声明过程变量

'设置新坐标

Dim NewRect As RECT

CurForm.Caption = "释放鼠标"

With NewRect

.Left = 0&

.Top = 0&

.Right = Screen.Width / Screen.TwipsPerPixelX

.Bottom = Screen.Height / Screen.TwipsPerPixelY

End With

erg& = ClipCursor(NewRect)

End Sub

Public Sub EnableTrap(CurForm As Form)

Dim x As Long, y As Long, erg As Long

'声明过程变量

3-1声明变量一个变量名的长度最长不超过40个字符，可以由字母、数字、汉字和下划线组成，但变量的第一个字母必须是字母或汉字。变量的声明是该变量第一次在源码中被引用时声明的。如下面的语句是最简单的变量声明：a=13-2变量类型其实在VB中仅有两大类变量类型，即数值型和字符串型。数值类型 数值类型共有六种。（1）整型数值Integer和Long型数值都是整数，用户有定义某一变量为整形变量后，给这一变量只能赋予整数。整数要比浮点数运算速度快并且占用内存少。Integer型的数值有一定的范围，-32768~32767，如果超出这一范围，就要用Long。（2）浮点数值单精度（Single）和双精度(Double)型数值即为浮点数值，它表示的是带小数的实数。单精度型能精确到七位，而双精度能精确到15位。用户在选用这些数据类型时，要注意变量所取值的范围。并且数值为整数时，为了运算速度，不用把变量硬定义为浮点型。对于大的浮点数，可用D，E格式输入输出。（3）贷币型Currency数据类型是定点数，用于计算贷币的数量。由于处理的是贷币，自然要求高为精度。而计算机在进行运算时，总是通过二进制数据进行运算，然后再根据用户的要求转换为八进制、十进制等数。因此，会导致进位误差。例如，有时我们计算1+1，有可能得到的结果却是1.99999999……。而Currency数值类型却是用十进制进行运算，因而其计算非常精确。（4）变体型Variant数值类型是对所有的未定义的变量的缺省数据类型。即当给某一变量赋值时，不管是什么类型的，Variant都对其进行保留，要检测Variant变量中保存的数值究竟是何种类型，可用VarType函数进行检测，它的返回值表示的数据类型如下表所示。Code 数据类型空棗未声明 空棗已声明，但未包含数据 整型 长整型 单精度型 双精度型 贷币型 日期型 字符串型 字符串 字符串定义一个文本字符序列。这个字符序列中的字符一般为可打印字符，但也可以是一些控制字符或空串。我们知道以前的BASIC语言对于字符串变量要求以$符结尾，对于VB则没有这个要求，是否加上$符完全是您个人的爱好。如下的赋值都是有效的：a$=”aadkjf;lak”B$=”;skladjf”City=”Beijing”Abc=””Her_Name=”Zhang”+”San”3-3变量说明变量说明一般有两种方

2.1窗体的概念窗体是应用程序的编程窗口和对话框。窗体可包含多个控件。窗体就象包含多个控件的容器。几乎每个应用程序都要包含一个窗体，如果一个应用程序中需要包含多个窗体，必须给它们不同的名称。也就是给它们赋予不同的Name属性。窗体命名有如下规则：必须以字母或汉字开头。 可包括字母、数字和下划线，不能有空格或分号。 最大为40个字符。 不能具有与别的公共对象相同的名字，例如 Clipboard、Screen 或 App。虽然可以是一个关键字、属性名字、或别的对象的名字，但这会在你的代码中产生冲突。因些也请不要使用。 2.2生成窗体启动一个新的工程文件，屏幕中间有一个带网点（称为网格）的窗口，这就是用户的窗体，一般也是程序运行时的主窗口。您可以调整该窗体的大小，对该窗体大小的调整及属性值的改变等操作称为定制窗体。对窗体，控件的定制或设计期间称为设计时，程序运行期间称为运行时。2.3属性窗口属性窗口包含被选择的窗体、控件在设计时拥有的属性的列表，这些属性能够在设计时被改变，当用户选择多个控件时，属性窗口包含的属性列表被所选择的控件共享。设置或改变对象属性的一般步骤为：选中要操作对象。 在属性窗口的属性列表框中找到要操作的属性。此时设置框中为当前控件该属性的当前设置。 在设置框中键入或选择用户的设置。 2.4窗体的属性窗体的属性有很多，这里仅以Name属性为例解释，其它属性请阅VB的帮助信息。Name属性返回在代码中用于标识窗体、控件、或数据访问对象的名字。在运行时是只读的。返回或设置字体对象的名字。语法object.Nameobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。如果 object 被删去，则与活动窗体模块相联系的窗体被认为是 object。说明新对象的缺省名字由对象类型加上一个唯一的整数组成。例如，第一个新的 Form 对象是 Form1, 一个新的 MDIForm 对象是 MDIForm1，以及在窗体上创建的第三个 TextBox 控件是 Text3。一个对象的 Name 属性必须以一个字母开始并且最长可达 40 个字符。它可以包括数字和带下划线 (_) 的字符，但不能包括标点符号或空格。窗体不能具有与别的公共对象相同的名字，例如 Clipboard、Screen 或 App。虽然 Name 属性设置可以是一个关键字、属性名字、或别的