一共分成了6部分，是随书附赠的光盘里面的程序。 【作　　者】章立民研究室 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

一共分成了6部分，是随书附赠的光盘里面的程序。 part6地址：http://download.csdn.net/source/1125285 【作　　者】章立民研究室 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

一共分成了6部分，是随书附赠的光盘里面的程序。 part5地址：http://download.csdn.net/source/1125253 【作　　者】章立民研究室 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

一共分成了6部分，是随书附赠的光盘里面的程序。 part4地址：http://download.csdn.net/source/1125241 【作　　者】章立民研究室 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

一共分成了6部分，是随书附赠的光盘里面的程序。 part3地址：http://download.csdn.net/source/1125235 【作　　者】章立民研究室 [同作者作品] [作译者介绍] 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

文件较大，我分成了6个WINRAR压缩包。 part2地址:http://download.csdn.net/source/1122927 【作　　者】章立民研究室 [同作者作品] [作译者介绍] 【丛 书 名】 微软新技术系列丛书 【出 版 社】 机械工业出版社 【书 号】 7111199189 【上架时间】 2006-9-26 【出版日期】 2006 年9月 【开 本】 16开 【页 码】 596 【版 次】1-1

修改了一些比较繁琐和难懂的代码。大体上90%都没变。

visual basic 2005 技术内部中第六章第七节运算符重载代码。 operator部分： Module Module1 Sub Main() End Sub End Module Public Structure Fraction 'Read-Only fields Private num As Long Private den As Long 'Read-Only properties Public ReadOnly Property Numerator() As Long Get Return num End Get End Property Public ReadOnly Property Denominator() As Long Get Return den End Get End Property Sub New(ByVal numerator As Long, ByVal denominator As Long) 'Normalize the numerator and denominator If numerator = 0 Then numerator = 1 ElseIf denominator < 0 Then numerator = -numerator denominator = -denominator End If Dim div As Long = GCD(numerator, denominator) num = numerator \ div den = denominator \ div End Sub 'the greatest common divisor of two numbers (helper method) Private Function GCD(ByVal n1 As Long, ByVal n2 As Long) As Long n1 = Math.Abs(n1) n2 = Math.Abs(n2) Do 'ensure that n1>n2 If n1 < n2 Then Dim tmp As Long = n1 n1 = n2 n2 = tmp End If n1 = n1 Mod n2 Loop While n1 <> 0 End Function 'override ToString to provide a textual representation of the fraction Public Overrides Function ToString() As String If num = 0 OrElse den = 1 Then Return num.ToString Else Return String.Format("{0}/{1}", num, den) End If End Function Public Shared Operator +(ByVal f1 As Fraction, ByVal f2 As Fraction) As Fraction 'a/b+c/d=(a*d+b*c)/(b*d) Return New Fraction(f1.num * f2.den + f2.num * f1.den, f1.den * f2.den) End Operator Public Shared Operator -(ByVal f1 As Fraction, ByVal f2 As Fraction) 'a/b-c/d=(a*d-b*c)/(b*d) Return New Fraction(f1.num * f2.num, f1.den * f2.den) End Operator Public Shared Operator *(ByVal f1 As Fraction, ByVal f2 As Fraction) 'a/b * c/d=(a*c)/(b*d) Return New Fraction(f1.num * f2.num, f1.den * f2.den) End Operator Public Shared Operator /(ByVal f1 As Fraction, ByVal f2 As Fraction) Return New Fraction(f1.num * f2.den, f1.den * f2.num) End Operator End Structure

这个软件需要.net framework 2.0 支持。<br>关闭电脑的U盘或者移动硬盘等大容量存储。不影响USB接口的鼠标键盘等其他设备。

【原 书 名】 Programming Microsoft Visual Basic 2005 Core Reference<br>【原出版社】 Microsoft Press<br>【作 者】Francesco Balena [同作者作品] [作译者介绍]<br>【译 者】 贾洪峰[同译者作品]<br>【丛 书 名】 微软技术丛书<br>【出 版 社】 清华大学出版社 【书 号】 7302138575<br>【出版日期】 2006 年10月 【开 本】 185×260 【页 码】 774 【版 次】1-1

【原 书 名】 Microsoft Visual Basic 2005 Step by Step<br>【原出版社】 Microsoft Press<br>【作 者】（美）Michael Halvorson [同作者作品] [作译者介绍]<br>【译 者】 汤涌涛[同译者作品] 宋明钧 金江山<br>【丛 书 名】 微软技术丛书<br>【出 版 社】 清华大学出版社 【书 号】 7302128677<br>【出版日期】 2006 年6月 【开 本】 185×260 【页 码】 376 【版 次】1-1

帖子的代码项目

这是一个基本的链接数据库并且显示其内容的代码。使用basic .net 2005编写。<br><br>希望这个代码可以帮助初学者尽快掌握链接数据库的技术。<br><br><br>软件的说明地址<br>http://blog.csdn.net/millercn/archive/2007/10/10/1817735.aspx