VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB.Net图解入门二
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:7474, 日期:2001-05-04
四、程序语法说明

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

// Imports 的作用与with……….end with的意思是一样的 system.drawing.xxyy 在使用了Imports System.Drawing以后都可以写成xxyy。

Public Class Form1

// 在Class与End Class中间就是一个类了。

  Inherits System.WinForms.Form

  //Inherits表示这个类由System.WinForms.Form派生出来,具有所有父类已有的方法成员

  Public Sub New()

  //等于VB6K中的dim form as object 加 form=new xxxform,加 load form

    MyBase.New

    Form1 = Me

  InitializeComponent //等于VB6中的Form_Load事件

  Overrides Public Sub

  //Dispose()等于VB6的form_unload事件 form1.dispose等于VB6的unload form1

    MyBase.Dispose

    components.Dispose

  End Sub


 #Region " Windows Form Designer generated code "

 //Region是形成窗体的代码,不要直接修改,丛属性窗口设置他们

五、vb.net的工作面板视图



 Private components As System.ComponentModel.Container

  Private WithEvents Button1 As System.WinForms.Button

  //这一句改成Public WithEvents Button1 As System.WinForms.Button以后你就可以在别的类中调用他,你应该在属性窗口修改他



  Dim WithEvents Form1 As System.WinForms.Form

  Private Sub InitializeComponent()

  Me.components = New System.ComponentModel.Container()

  Me.Button1 = New System.WinForms.Button()

  Button1.Location = New System.Drawing.Point(200, 88)

  Button1.Size = New System.Drawing.Size(56, 32)

  Button1.TabIndex = 0

  Button1.Text = "Button1"

  Me.Text = "Form1"

  Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

  Me.Controls.Add(Button1)

 End Sub

#End Region

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

  End Sub

End Class