189 8069 5689
主要有以下几步骤：
创新互联是一家专注于做网站、网站建设与策划设计,鸡泽网站建设哪家好?创新互联做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:鸡泽等地区。鸡泽做网站价格咨询:18982081108
创建工程
界面设计
代码编写
功能调试
编译打包
发布
1. 何谓子类化（subclassing）众所周知，Windows是一个基于消息的系统，消息在Windows的对象之间进行着传递。子类化和Windows的钩子机制存在于消息系统之中，我们可以利用这些机制来操纵、修改甚至丢弃那些在操作系统或是进程中传递的消息，以求改变系统的一些行为。子类化技术用来截取窗口或控件之间的消息，当然是消息在到达目的窗口之前完成的操作。这些被截获的消息既可以保留也可以修改它们的状态，之后就继续发送到目的地。子类化技术实现了一些正常情况下无法实现的功能，试想鼠标右键单击TextBox，系统默认弹出Undo、Cut、Copy、Paste等菜单，我们就可以利用子类化技术来改变这个系统菜单。简单的说，子类化就是创建一个新的窗口消息处理过程，并将其插入到原先的默认窗口消息处理过程之前。子类化分为三类：实例子类化（instance subclassing）—从窗口或控件的单一实例截获消息，这种子类化技术最普遍；全局子类化（global subclassing）—能够截获从相同的窗口类创建出来的多个窗口或控件的消息；超类化（superclassing）—和全局子类化很类似，区别在于可以应用在新的窗口类上面。 2. Visual Basic 6子类化的实现在Visual Basic 6子类化的实现中我将通过一段代码的实例来介绍这一技术在VB6中的应用。下面的例子将演示如何将About加入窗口的系统菜单。①创建工程启动Visual Basic 6同时创建一个标准EXE工程。 ②在窗体中录入代码Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long Private Const MF_BYCOMMAND = H0Private Const MF_BYPOSITION = H400Private Const MF_STRING = H0Private Const MF_SEPARATOR = H800 Private Sub Form_Load()InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_SEPARATOR, 2001, ""InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_STRING, 2002, "About Me(A)"'安装子类化入口Call Init(Me.hWnd)End Sub Private Sub Form_Unload(Cancel As Integer)‘卸载子类化Call Terminate(Me.hWnd)End Sub ③加入一个模块并录入代码Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias _ "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _ hWnd As Long, ByVal Msg As Long, ByVal wParam As _ Long, ByVal lParam As Long) As Long Const GWL_WNDPROC = (-4) Dim PrevWndProc Private Const WM_SYSCOMMAND = H112Const WM_DESTROY = H2‘子类化入口Public Sub Init(hWnd As Long) PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubWndProc)End Sub‘子类化出口Public Sub Terminate(hWnd As Long) Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)End Sub‘新的窗口消息处理过程，将被插入到默认处理过程之前Private Function SubWndProc(ByVal hWnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) _ As LongIf Msg = WM_DESTROY Then Terminate (Form1.hWnd) If wParam = 2002 Then MsgBox "我是40Star", vbInformation, "hia..hia..."End If‘调用默认的窗口处理过程SubWndProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)End Function ' -- 模块结束 -- ' 但是，需要指出的是不正确的子类化是非常危险的，将导致一个General Protection Fault（GPF）错误，致使VB应用立即崩溃。 3. Visual Basic .NET子类化的实现在.NET中使用子类化技术要比VB6中简单，因为微软在.NET中已经提供了接口，不需要我们再自己SetWindowLong了，我们做的是Overrides（覆盖） WndProc过程即可。Overrides Protected Sub WndProc( ByRef m As Message )参数m实现了Windows的消息类型。下面的例子将同样演示如何将About加入窗口的系统菜单。①创建工程创建一个VB.NET的Windows Application工程。 ②录入代码Public Class Form1 Inherits System.Windows.Forms.Form ‘中间隐去了.NET自动生成的代码‘ – 引用Win32Api – ‘Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Int32) As Int32Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Int32, ByVal nPosition As Int32, ByVal wFlags As Int32, ByVal wIDNewItem As Int32, ByVal lpNewItem As String) As Int32 Private Const MF_BYCOMMAND = H0Private Const MF_BYPOSITION = H400Private Const MF_STRING = H0Private Const MF_SEPARATOR = H800Private Const WM_SYSCOMMAND = H112 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load InsertMenu(GetSystemMenu(Me.Handle, False), 0, MF_BYPOSITION Or MF_SEPARATOR, 2001, "") '加入一条分割线‘GetSystemMenu(Me.Handle, False)是得到系统菜单的句柄，第二个参数为True的话不能改变系统菜单，所以要设为False InsertMenu(GetSystemMenu(Me.Handle, False), 0, MF_BYPOSITION Or MF_STRING, 2002, "About Me(A)") '加入About me菜单在系统菜单中 End Sub‘子类化窗口--覆盖WndProc过程 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) If m.Msg = WM_SYSCOMMAND Then If m.WParam.ToInt32 = 2002 Then MsgBox("我是40Star", vbInformation, "hia..hia...") End If End If ‘调用窗口默认的处理过程 MyBase.WndProc(m) End SubEnd Class
.NET 的环境只有一个，就是.NET Framework
如果你是XP系统的话一般要安装4.0版本
下载的软件当然是visual studio；你可以使用visual studio2015，但是要注意开发时要选择对应的目标框架
只要在这里能看到.NET Franmework4.0就表示你安装好了
创建一个工程
添加一个按扭
双击按扭
输入如下
msgbox ("Hello World!")
按F5
所有的可视开发工具基本都是这个流程，关键还是要学相关语言标准。
打包过程：
1、打开自己已经创建好的VB.NET项目（一般一开始创建项目的时候创建的是Windows窗体应用程序）。
2、点“文件”--“新建项目”--“其他项目类型”--“安装部署”--“Visual Studio Installer”--“安装项目”，输入项目名称（此处命名为setup1）并点击“确定”。
3、执行完上一步，在解决方案下面会出现setup1项目。右击setup1项目--“添加”--“项目输出”。
4、在“添加项目输出组”中，选择“主输出”，然后单击“确定”。将自动添加所有依赖项。
5、在解决方案资源管理器中，右击安装项目---“添加”---“合并模块”。 把相关模块添加进来。
6、在文件系统选项卡中添加所需的应用程序图标等文件，并生成应用程序的桌面快捷方式，在快捷方式上右键选择属性，并在属性栏中的图标处选择应用程序快捷方式图标。（要在用户桌面和用户的“程序”菜单属性里将AlwaysCreate属性的值修改为True）。这样安装完程序后就可以看到桌面的图标了
7、关于应用程序图标的详细说明：
（1）点击“应用程序文件夹”并在右侧的列表中的“主输出来自。。”上右键然后点击“创建主输出来自。。的快捷方式”
（2）把生成的快捷方式复制到“用户桌面”，然后右键重命名为你想要在程序安装后显示的名字。
（3）重命名完成后在右侧的属性栏中点击图标设置为自己想要的图标，注意，需要先把图标文件ico加入到“应用程序文件夹”中。（ico的制作：先做好256*256的png文件，然后百度ico制作找到在线制作ico的网站，直接生成ico图标文件）
关于安装后的一些属性的设置：
vs里的项目管理结构是：
方案 soluotion
+---- 多个项目（project, 包括vb, vc, c#, web, asp.net， lib ...）
+------多个项(Item, 包括项目中的一切内容、文件)
因此您可以新建一个方案，在方案下可以新建多个项目，多个类型可以共存于同一个解决方案。