甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
下面这个希望可以帮到你~交通灯
复兴ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！
实例说明在本实例中，我们将制作一个具有交通灯效果的应用程序。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序。程序运行结果如图88-1所示。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript" type="text/javascript" src=" "
实现过程■ 新建项目打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"Traffic"，然后选择保存路径。单击"确认"。■ 添加控件向当前窗体添加一个Timer控件，用于控制交通灯变换的时间；三个Picture控件，分别装入相应的图片；一个Button按钮，用于控制交通灯。属性保持默认值。■ 添加代码Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "开 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。
Sub read()
Dim sr As System.IO.StreamReader
Dim n%
sr = New System.IO.StreamReader("txt文件路径", True)
Do
Dim line$ = sr.ReadLine()
listbox1.Items.Add(line)
n = n + 1
Loop Until sr.EndOfStream = True
sr.Close()
End Sub
Sub write()
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter("txt文件路径", True)
For i = 0 To listbox1.Items.Count - 1
sw.WriteLine(listbox1.Items(i))
Next
sw.Close()
End Sub
如果你已经有较多的面向对象开发经验，跳过以下这两步：
第一步
掌握一门.NET面向对象语言，C＃或VB.NET。
我强烈反对在没系统学过一门面向对象（OO）语言的前提下去学ASP.NET。
ASP.NET是一个全面向对象的技术，不懂OO，那绝对学不下去！
第二步 对.NET Framework类库有一定的了解
可以通过开发Windows Form应用程序来学习.NET Framework。ASP.NET是建构在.NET
Framework之上的技术，你对.NET Framework了解得越深，学习ASP.NET就越快。
举个例子：下面简单列出几个对掌握ASP.NET非常重要的概念：
对象的内存模型，委托，事件，多线程，程序集和应用程序域，安全模型
.NET Framework当然还有许多其它的东西，但不理解与把握清楚上述这些东西，是很难真正把握ASP.NET的。
出于急迫的心情与现实的考虑，不少人没有扎实的面向对象基础就想直接学习ASP.NET，其结果只能是欲速则不达。
在具备了OO基础之后，以下是具体的学习ASP.NET技术步骤。
第一步：学习HTML与CSS
这并不需要去学一大堆的诸如Dreamweaver，Firework之类的各种网页设计工具，关键是理解HTML网页嵌套的block结构与CSS的box模型。许多ASP.NET控件最后都必须转化为HTML。而且，div+CSS是当前主流的网页布局模型。
学习这部分时，关键在于理解概念，而不需要将精力花在美化页面的许多技巧上，那是网站美工的工作，不是程序员的工作。
第二步：学习JavaScript。
JavaScript不是Java，它主要运行于浏览器端。可以完成许多工作，功能也很强大：比如它将客户端网页中的HTML元素看成一棵树，可以编写代码访问并修改树节点，动态生成新的HTML代码，从而达到动态修改网页显示特性的目的。
JavaScript在目前的网站开发中用得很多，非常重要。
另外，它也是目前非常流行的AJAX技术的基础。
第三步：学习计算机网络原理
找一本大学＜计算机网络＞教材，重点看看它的有关互联网的部分，了解一些域名解析和HTTP协议等知识。这是进行互联网开发的理论基础。
第四步：学习ASP.NET表示层技术，会设计Web页面
需要结合先前打好的面向对象技术的基础，至少掌握以下内容：
（1）各种Web控件的使用方法，
（2）理解信息在网页中的传送方式，比如Cookie，ViewState，Session等的使用。
（3）ASP.NET应用程序与网页的生命周期，以及相关对象（比如httpcontext，response，request）的用途。
（4）ASP.NET实现事件驱动的内幕
（5）自定义用户控件
再次强调一下，没有OO基础，很难掌握上述技术，就只能被这些东东牵着鼻子走了，会很被动。
第五步 掌握数据库技术
具体地说，要学习以下内容：
（1）学会使用SQL Server 2005：不要求精通它的各种工具与管理配置技术，但至少知道如何连接，如何建表，如何创建存储过程
（2）学习ADO.NET，掌握使用代码人工访问数据库（别用VS2005的向导）的方法
（3）学习数据绑定控件的使用
第六步 理解多层架构
这时，先前在OO学习阶段涉及到的程序集与应用程序域等就派上用场了，现在，网站架构大多采用多层架构：表示层、业务逻辑层、数据存取层以及数据库本身。
可以先上网找一此多层架构的资料看，再找一个现成的比较复杂的开源ASP.NET项目分析一下其架构就差不多了。基本上都是一个套路，到处应用。
有的朋友问：学习架构是不是必须学习设计模式。
我的看法是：不必！当然，你如果学习过设计模式，那当然更好。但在实际开发中，如果只想着机械地套用某种模式，反而起不到好的结果。我的观点：在学习设计模式时要多思多悟，其思想就会渐渐地融入你的大脑，在真实的设计实践中，忘掉所有的写在书上的模式，一切从实际出发，相信你的直觉，只要达到设计要求的方案就是可行的方案，事实上，你这样做了之后，回过头来再看，会发现你的设计往往暗合设计模式的理论。
第七步 学习XML与Web Service
先了解XML的基础知识，找本讲XML的书看一下就差不多了，然后，再学习Web Service。Web Service其实可类比为远程方法调用（以XML格式表达的调用信息）。
学 到了这里，如果你还有兴趣，不妨再去看看SOA，不过SOA的资料都是理论与概念，看起来比较郁闷，而且离实际开发可能比较远。所以，这是可选项。
第八步 学习AJAX
学习AJAX的主要目的是创建具有更丰富特性的Web表示层，而经过前面七步的学习，到此再学习AJAX已水到渠成，所有的基础都已具备，不会有太大的问题了。
在基础未具备的前提下直接学AJAX，就象“浮沙之上筑高台”，所以，将AJAX的学习次序安排在这里。
第九步 学习RIA技术
RIA：Rich internet application，可看成是将C/S与B/S优点合二为一的尝试。就具体技术来说，主要指微软的Silverlight（WPF_E），毕竟前头一路行来都是微软路线。
不过目前学习它主要是为了技术储备。估计此技术的普及需要2到3年的时间，因为预装Vista的机器今年才开始大卖。
你是计算机专业的，我想你一定学过SQl，HTML，和C语言吧，如果要做.net程序员，你要撑握html,一般用在表现层，虽然在.net里有很多html代码是自动生成的，但是你最起码要看得懂，sql数据库，.net程序存储数据用，在一个程序中，数据库是很重要的，一般程序难一点的就是在搞数据，表于表的关系。然后就是C#或者用VB，主要用在后台的逻辑层，如果你会C的话学C#很快的，买本C#完全自学手册就OK了，一天就可以对他有初步了解了，也可以写点小程写序。再会点JavaScript就可以了。
在VB 学习中，绝对路径就是指带有盘符的固定的路径，比如“c:\windows\systems\a.exe” 而相对路径则可用APP.PATH连接文件名来表示，比如：App.Path "\a.exe"
以vb学习中加载图片为例，这样就容易弄明白了。假设我们要在vb中加载一幅图片，假设我们把这个加载图片的程序保存在如下位置："E:\aa-vbnew\加载图片讲解"而我们的图片在"D:\My Files\图画\tong.jpg"
那么情况如下：1，在代码中直接以绝对路径表示加载到form1中，如图所示：
显示结果如下：
2,换一种方式，以相对路径直接加载也可以。程序如图：
结果如上图。
下面分析如下：
第一种方式，我们使用的是图片的完整路径，就称之为绝对路径，也就是说不管我们的这个VB程序放到硬盘的任何位置，都完全可以显示出来这幅图片，因为图片的路径是绝对的，只要不改变图片的路径，那么就是绝对不变的。
第二种方式，我们使用的是图片的相对路径，相对于谁呢？是相对于我们的VB这个应用程序和这幅图片自身位置的。一旦我们的程序位置发生变化或者图片的位置发生改变，那么这个程序都不可以执行，不会显示这幅图片。所以说这就是相对路径，是以一个参考对象而存在的。
VB.NET安装部署一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。
3. 单击“确定”关闭对话框。
4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。
5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。
VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中
1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。
2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。
3. 单击“确定”关闭对话框。
4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。
VB.NET安装部署三).创建安装程序类
1. 在“文件”菜单上指向“新建”，然后选择“项目”。
2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。
3. 单击“打开”关闭对话框。
4. 从“项目”菜单中选择“添加新项”。
5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。
6. 单击“确定”关闭对话框。
7. 详细代码附后。
VB.NET安装部署四).创建自定义安装对话框
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。
2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。
3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。
4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。
5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。
6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.
7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库
8. 选择 Edit1Label 属性并键入：数据库名称:
9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1
10. 选择 Edit1Value 属性并键入：dbservers
11. 选择 Edit2Label 属性并键入：服务器名:
12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2
13. 选择 Edit2Value 属性并键入：(local)
14. 选择 Edit3Label 属性并键入：用户名:
15. 选择 Edit3Value 属性并键入：sa
16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3
17. 选择 Edit4Label 属性并键入：密码:
18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4
19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true
VB.NET安装部署五).创建自定义操作
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。
2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。
3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。
4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。
5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。
附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。
VB.NET安装部署六).添加文件
1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）
Crystal_Managed2003.msm
（如果有水晶报表）
dotnetfxredist_x86.msm
（.net一定是必须的）
... （如果有引用其他的dll）
5.如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*为必要的
具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）
* Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）
VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm
(很多人经常出现查询错误，不妨加上这个)
6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
VB.NET安装部署七).打包时加入卸载功能：
方法一:
1.在打包项目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)
2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".
3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.
方法二:(推荐)
1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到
2.用VS.net建立一个新的控制台程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process =
New Process
If System.Environment.OSVersion.
ToString.IndexOf("NT 5") Then
myProcess.Start("msiexec", "/X
{2B65D4A9-C146-4808-AB4B-321F
B0779559}") '改为自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
VB.NET安装部署八).打包时加入.net环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC
1.确保 Visual Studio .NET 框架引导程序插件已安装。
2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。
3.选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。
4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software/Microsoft/DataAccess。
5.选择 Root 属性，并选择 vsdrrHKLM。
6.选择 Value 属性，并键入 FullInstallVer。
7.选择 Property 属性，并键入 MDACSEARCH。
8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。
9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。
10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。