百度群飞度编程学社1195277 以下是我博客的一篇文章
创新互联建站服务项目包括盐亭网站建设、盐亭网站制作、盐亭网页制作以及盐亭网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，盐亭网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到盐亭省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
如何学好VB
导语：不要老是想着谁“最有钱途”，这些都不是我们应当考虑的，我们要考虑的是怎样才能真正的精通VB。如果成为了VB的专家，应当很容易赚到钱的。VB程序员为什么工资低，不是VB不行，是因为大部份VB程序员不行，他们只懂得用控件，而没有什么编程的思想。而VB的初学都只会用控件和简单的API就说精通VB了，显然影响的整个VB在程序界的地位，这些人显然不能称为程序员的，只能相当于会使用VB了，就像会Word一样。如果VB程序员都懂的数据结构，UML等，就完全是另外一回事了。有认为VB功能弱，请注意：仙剑95版就是用VB4做的，还有DirectX SDK7中有个一很好玩的3D游戏，声音和动画都非常好，也是用VB写的。所以VB能做很多东西，只要你想去做。
（1）VB不只是数据库和报表。不要以为VB就是数据库和报表，这只是VB强大功能的一小部份。如果这此都搞不清，还是好好的看一下相关的书籍，比在这里问问题有用多了。我以前没有学过数据库，只是有些编程的思路，后来学数据库就非常容易了。我做报表一般用RichTextBox或是From来做，一般都能做的很好，也不用去考虑什么水晶报表了。
（2）不要迷信于API。API能做很多东西，但有些东西在VB里面的函数中就有，API只是VB对WindowsSDK的封装而已。如果想学好API，建议学习SDK。如果VB本身就能很好的支持这个功能，何必还要用API呢。
（3）不要什么都想着控件。如果做程序都想着第三方控件的话，代价是很高的，不仅程序大，安全性也低了很多。其实VB本身带的控件已经完全够用了。
（4）认认真真的把MSDN中关于VB的内容好好看一看，特别是函数和语句，很有用的。
（5）遇到问题不要直接来这里问，自己好好想一想，试着解决这个问题，这虽然在时间上慢了，可是在自身的提高上却有很大的帮助。
（6）没事的时候，多研究些语言上的东西，如数据结构和算法，不要老是想着什么花哨的东西。这对以后的提高非常有帮助。
如何学好VB程序设计
1、学习程序设计的基本要求
2、VB的功能及特点
3、学习VB程序设计的方法
对学习者知识的要求：
首先，学习程序设计要具备一定的数学基础，计算机与数学有很大的联系，综观计算机历史，计算机的数学模型(图灵机，由Alan Turing提出)和体系结构(由John Von Neuman提出)等都是由数学家提出的。因此，要学习好计算机就要有一定的数学基础，不过对于初学者来说，在数学基础方面的要求并不是很高，从我个人的角度来看，有高中数学水平就差不多了。
其次，学习程序设计要有一定的逻辑思维能力，逻辑思维需要长时间的锻炼，如果你觉得自己在逻辑思维能力上有不足，也没有关系，因为编写程序本身也是对逻辑思维的锻炼，初学程序设计应具备的逻辑基础可以从高中数学中学到。
学习程序设计基本要求：
熟悉Visual Basic操作环境与设计工具，能设计应用程序界面。
掌握，理解面向对象程序设计基本概念。
掌握VB语言的基础知识，程序设计的方法。
能阅读一般难的程序；
能应用编写一些简单程序；
具有用Visual Basic开发Windows环境下应用程序的能力和阅读分析一般难度的VB程序的能力。
Visual Basic 简介
Visual Basic 是Microsoft 公司开发的Windows 应用程序开发工具，Visual ——"可视化的"，是一种开发图形户界面(GUI)的方法，使得非计算机专业的人也可以开发出专业的Windows软件。
Visual Basic继承了BASIC语言简单易学的优点，又增加了许多新的功能，它采用面向对象与事件驱动的程序设计思想，使编程变得更加方便、快捷，使用Visual Basic既可以开发个人或小组使用的小型工具，又可以开发多媒体软件，数据库应用程序，网络应用程序等大型软件，是国内外最流行的程序设计语言之一。
英文Visual的意思是"视觉的"，"可视的Baisc"这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做"可视"，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。
在VB中入了控件的概念，在Windows中控件的身影无处不在，如按钮、文本框等。VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法，能够响应用户操作(事件)。
这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了。这些在以前的编程语言下是要经过相当复杂的工作的。
Visual Basic 特点
1、具有面向对象的可视化设计工具
2、事件驱动的编程机制
3、结构化的程序设计语言
4、提供了易学易用的应用程序集成开发环境
5、支持多种数据库系统的访问
6、高度可移植化的代码
7、VB6.0在开发环境上，网络功能等的大大增强。
可视化设计：Visual Basic为用户提供大量的界面元素(在Visual Basic中称为控件对象)，例如 "窗体"、"菜单"、"命令按钮"、"工具按钮"、"检查框"等等。用户只需要利用鼠标，键盘把这些控件对象拖动到适当的位置，设置它们的大小，形状，属性等，就可以设计出所需的应用程序界面。
事件驱动编程：Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的，在使用Visual Basic设计应用程序时，必须首先确定应用程序如何同用户进行交互。(例如发生鼠标单击，键盘输入等事件时，用户必须编写代码控制这些事件的响应方法)这就是所谓的事件驱动编程。
程序设计方法概述
1、初期的程序设计
高运行效率，少占用内存为目标
2、结构化程序设计
程序的可读性，可维护性为目标
程序=算法+数据结构+计算机语言+面向过程的程序设计方法
3、面向对象的程序设计(OOP)
降低程序的复杂性，提高软件的开法效率和改善工作界面为目标
程序=对象+消息+面向对象的程序设计
面向对象的程序设计具有如下的优点：
1、符合人们习惯的思维方法，便于分解大型的复杂多变的问题。由于对象对应于现实世界中的实体，因而可以很自然地按照现实世界中处理实体的方法来处理对象，软件开发者可以很方便地与问题提出者进行沟通和交流。
2、易于软件的维护和功能的增减，对象的封装性及对象之间的松散组合，都给软件的修改和维护带来了方便。
3、可重用性好。重复使用一个类(类是对象的定义，对象是类的实例化)，可以比较方便地构造出软件系统，加上继承的方式，极大地提高了软件开发的效率。
4、与可视化技术相结合，改善了工作界面。随着基于图形界面操作系统的流行，面向对象的程序设计方法也将深入人心，它与可视化技术相结合，使人机界面进入GUI时代。
如何学好VB
(1)养成良好的学习习惯
VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。
(2)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂。翻开一本程序设计学习的书籍。看到的无非就是变量、函数、条件语句、循环语句等概念，但要真正能进行程序设计，需要深入理解这些概念。因此，在程序入门阶段还是应该重视概念的学习。
(3)自己动手编写程序
程序设计入门阶段要经常自己动手编写程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高开发程序的规模。
(4)阅读。借签别人设计的好程序
多看别人设计好的程序代码，包括教材上的例题程序。在读懂别人程序后，要想他为什么这么设计，能不能将程序修改完成更多的功能，则可以学到别人优秀的东西，帮助自己提高自身水平。
(5) VB程序设计学习的重点
重点放在思路、算法、编程构思和程序实现上。
语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。
学会利用计算机编程手段分析问题和解决问题。
(6)养成良好的编程习惯
强调可读性，变量要加注释；
程序构思要有说明；
学会如何调试程序；
对运行结果要做正确与否的分析。
学好VB程序设计的具体要求：
(1)课前预习，认真听课并作适当做笔记，课后要认真复习消化所学内容，完成作业。
(2)多写程序，注重实践
程序设计课是高强度的脑力劳动，不是听会的，也不是看会的，而是练会的。
只有自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，学起来才比较从容；只有当你在编写大量程序之后，才能获得真知灼见，感到运用自如。
动手能力的培养是这门课和以往课程最大的不同之处。
(3)上机调试程序应注意的几点：
上机前应认真把实验题在用纸上做一做(包括窗体界面设计；事件代码的编写等)
每次上机后应总结，把没有搞清楚的问题记录下来，请教老师或同学。
平时应多抽课余时间多上机调试程序。注意系统的提示信息，遇到问题，多问几个为什么。 、
(4)保持良好的学习心态
要有自信、自强、积极主动学习。
克服畏难情绪，树立学好程序设计的信心。
最近在网上搜索了一些关于实现关机 重启 注销的文章 发现大多介绍的是VB NET 用API实现这些功能 且在XPsp 环境下无法正常的关机与注销 而对于VB NET 的介绍几乎没有 本文章所涉及的知识点有
用实现关机 重启 注销功能 通过使用textbox与timer控件的结合编写定时器功能 为你的程序加上超链接
本篇文章具有一定的基础性和广泛的实用性 相信能够给 初学者带来一定的帮助
本文所使用的编程环境是Microsoft Visual Studio 首先打开 Visual Studio 在文件 (File) 菜单上 单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中 单击 Windows 应用程序 (Windows Application) 单击确定 (OK)
具体步骤如下
首先在Form 窗体上添加一个Label 控件属性text设置为:今天: 然后分别添加 个button控件name分别为button button button 它们的text属性分别为 关闭计算机（启动定时器） 注销 重新启动
图
现在我们就需要为程序加上一个定时器了 这个定时器需要与textbox 控件相关联 输入正确时间格式后就可以启动定时功能了 然后我们需要在窗体上添加一个timer 一个textbox 控件 和一个RadioButton 控件 让它们保留默认值不变 其中 TextBox 控件的text属性设置为 : : RadioButton 控件text设置为 指定时间关机|时间格式 小时: 分钟: 秒如图 所示
图
以上界面工作基本完成现在需要输入代码了
双击窗体进入常规 声明Public Class Form 事件中
CODE
Imports System Runtime InteropServicesImports Microsoft VisualBasicPublic Class Form _ 调用系统参数Friend Shared Function GetCurrentProcess() As IntPtrEnd Function
_Friend Shared Function OpenProcessToken(ByVal h As IntPtr
ByVal acc As Integer ByRef phtok As IntPtr) As BooleanEnd Function
_Friend Shared Function LookupPrivilegeValue(ByVal host As String
ByVal name As String ByRef pluid As Long) As BooleanEnd Function
_Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr
ByVal disall As Boolean ByRef newst As TokPriv Luid
ByVal len As Integer ByVal prev As IntPtr
ByVal relen As IntPtr) As BooleanEnd Function
_Friend Shared Function ExitWindowsEx(ByVal flg As Integer
ByVal rea As Integer) As BooleanEnd Function
Friend Const SE_PRIVILEGE_ENABLED As Integer = H Friend Const TOKEN_QUERY As Integer = H Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = H Friend Const SE_SHUTDOWN_NAME As String = SeShutdownPrivilege Friend Const EWX_LOGOFF As Integer = H 注销计算机Friend Const EWX_SHUTDOWN As Integer = H 关闭计算机Friend Const EWX_REBOOT As Integer = H 重新启动计算机Friend Const EWX_FORCE As Integer = H 关闭所有进程 注销计算机Friend Const EWX_POWEROFF As Integer = H Friend Const EWX_FORCEIFHUNG As Integer = H
_ 引用参数 Friend Structure TokPriv Luid Public Count As Integer Public Luid As Long Public Attr As IntegerEnd Structure
Private Shared Sub DoExitWin(ByVal flg As Integer) Dim xc As Boolean 判断语句 Dim tp As TokPriv Luid Dim hproc As IntPtr = GetCurrentProcess() 调用进程值 Dim htok As IntPtr = IntPtr Zero xc = OpenProcessToken(hproc TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY htok) tp Count = tp Luid = tp Attr = SE_PRIVILEGE_ENABLED xc = LookupPrivilegeValue(Nothing SE_SHUTDOWN_NAME tp Luid) xc = AdjustTokenPrivileges(htok False tp IntPtr Zero IntPtr Zero) xc = ExitWindowsEx(flg )End Sub
Public Shared Sub Reboot() DoExitWin((EWX_FORCE Or EWX_REBOOT)) 重新启动计算机End Sub
Public Shared Sub PowerOff() DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 关闭计算机End Sub
Public Shared Sub LogoOff() DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 注销计算机End Sub
Dim entTime As Object 保存输入时间Dim xianzaiTime As Object 保存实时时间Dim startTime As Object 保存开始定时时间
注销button 按钮输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button ClickLogoOff() 注销计算机End Sub
双击重新启动按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click
Reboot()
End Sub
双击关闭计算机按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click startTime = TimeOfDay If Not IsDate(TextBox Text) Then 用IsData函数判断输入的时间格式MsgBox( 你所输入的不是时间格式 ! 错误 ) ElseentTime = TimeValue(TextBox Text) End If Timer Enabled = True 启动定时器 Me WindowState = System Windows Forms FormWindowState Minimized 最小化窗体
End Sub
如图
图
双击timer 控件如图
图
输入代码
Private Sub Timer _Tick(ByVal sender As System Object
ByVal e As System EventArgs) Handles Timer Tick xianzaiTime = TimeOfDay If RadioButton Checked Then
If DateDiff(Microsoft VisualBasic DateInterval Second
xianzaiTime entTime) Then 用DateDiff函数判断是否到时间了
End IfEnd If
PowerOff() 关闭计算机End Sub
好了 基本上一个定时关机程序就完成了 接下来加一个超级链接吧！当然对于高手来说可能是废话 但是对于新手来说这也是必备的 这个超级链接当然是我们最喜欢的天极网开发频道了
先创建一个Label控件吧 把它托到窗体上 将text属性设置为天极网开发频道如图
图
接下来需要输入代码了 双击窗体Form
进入Public Class Form 事件
代码
Private Declare Function ShellExecute Lib shell dll
Alias ShellExecuteA (ByVal hwngnd As Integer
ByVal lpOperation As String ByVal lpFile As String
ByVal lpParameters As String ByVal lpDirectory As String
ByVal nShowCmd As Integer) As Integer
如图
图
双击刚才添加的label属性text:（天极网开发频道）中输入以下代码
Private Sub Label _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Label ClickShellExecute( open CStr( ) CStr( ) )
End SubEnd Class
OK！全部搞定 按F 键运行如图 所示 选择相应选项后点击（关闭计算机启动定时器按钮）就可以了 现在程序将按照你所设定的时间而启动关闭计算机选项
lishixinzhi/Article/program/net/201311/12366
兄弟看来你找对人了,呵呵!其实有一个很好的视频教学网站可能大家都听说过"网易视频教学"吧!这可是国内最顶坚的视频教学网站,里面的内容丰富的不得了不管是办公.系统或者是编程方面的视频很多.说这么多也没用是不还不如自己去看看好了.包你满意.
给你提个意见好了想学习编程这方面的知识不是看几个视频就能解决问题的了我学编程好几年了,VB我也学过.想学的话到图书馆去买几本VB入门教材看看,最好是买清华大学出版社出的书.
微软VB.net入门教程 视频+代码 wmv 适合刚接触的
BT下载，速度超快
我看过很多教程，但实际上你得做好思想准备，学这东西不但要教程了，关键是自己练的多。
如果你非要一个相当好的，那么我推荐你去看看
在搜索栏里输入 VB教程 或VB 就可以了