Public Sub New() 与 form_load 有什么区别

最新推荐文章于 2020-12-06 12:04:22 发布
最新推荐文章于 2020-12-06 12:04:22 发布
阅读量1.6k 收藏 1
点赞数
分类专栏： VB.NET基础学习
本文详细解析了VB.net中New构造函数与Form_Load事件过程的区别，包括它们的功能、用途及应用场景。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

点击打开链接

form_load是Form类在调用New构造函数后加载窗体绘图后才调用的方法

Public Sub New是VB.net中类的默认构造函数

区别:一个是构造函数,一个是普通的过程.严格意义上说如果你在实例化(对象化)一个类的时候,就想完成某些初始化操作时,如给类实例的某个属性,某个成员变量赋值的话,那么可以在New函数中完成.每个类都默认有一个New函数,即使你不写,系统也会默认加载一个,默认的类函数的修饰符是Public.而Form_Load只是存在于Form类中的一个过程.并不是每个类都默认具有的.


Exception 构造函数 ()
晓军的世界
07-07 1993
.NET Framework 类库   Exception 构造函数 ()初始化 Exception 类的新实例。[Visual Basic]Public Sub New()[C#]public Exception();[C++]p
【VB.NET】基础汇总
吴佳莹
04-24 1042
A.0 如何在VS中写VB.NET代码 请走传送门 A.1 构造和析构 Public　Sub　New() 　　　　MyBase.New() 　　　　'该调用是　Windows　窗体设计器所必需的。 　　　　InitializeComponent() 　　　 '在　InitializeComponent()　调用之后添加任何初始化 End　Sub '窗体重写处置以清理组件列表。...
浅析概括VB.NET New方法
sjj2011的专栏
04-01 3446
<br />这里就VB.NET New方法给大家归纳总结一点，下面我们来看看吧。VB.NET New方法就象Sub Main，Class_Initialize是在其它VB6类中的代码运行之前被调用的。此外，它是在错误处理之前被调用的，所以使得调试变得很难，而错 误作为一般的错误显示在客户端来实例化对象。另外地，Class_Initialize不用参数，这意味着在VB6中没有方法可以在对象被创建的时候用数 据来进行初始化。 <br /> <br /> <br />VB.NET剔除了Class_Init
vb.net线程详细讲解
热门推荐
qingfeng2556的博客
01-13 1万+
VisualBasic作为易学易用的编程语言，为多少程序员所仰慕，VB历经多年的发展，从大家都熟知的VB6到如今的VB.NET，虽然这两个差别很大= = 本文主要讲述“线程”这么一个东西。 线程是程序中一个单一的顺序控制流程。在单个程序中同时运行多个线程完成不同的工作，称为多线程。 回复 3楼2012-01-25 13:02 举报 |个人企业举
VB.NET构造函数
放荡不羁爱自由
03-10 6505
前言 　　因为前面学习一点Ｃ＃视频，所以了解一点对象、类、属性、方法、面向对象、构造函数、重载等一些东西，都很直观的在自己的脑海中有了一点印象，但是为什么要有构造函数？自己咋也想不起来了！现在开始回顾，什么是构造函数？构造函数有什么作用？ 什么是构造函数？ 　　我们现在来写一个构造函数，在写构造函数之前我们要知道构造函数是写在类里面的，所以我们要先写一个类。 Public Cl...
VB.net入门(6):类~构造函数，事件
chinaherolts2008的博客
12-06 1433
参考视频 https://www.xin3721.com/eschool/VBNetxin3721/ VB.net中的类的构造函数是 sub New() end sub 当然，你也可以加参数。比如Human类的构造函数： sub New(Byval Name as string, byval Gender as String, byval Stature as integer) me.Name = Name 'me是VB.net中的关键字，表示对象自己，如同java中 me.Gender
VB代码片段总结
lariy
03-10 575
VB代码片段总结 一、三大结构：顺序结构、选择结构、循环结构 顺序结构：语句执行顺序与书写顺序一致 Private Sub Command1_Click() Dim x as string Dim y as integer x=20.58 y=x+10 Text1.text=x Text2.text=y End Sub 选择结构：能够根据不同情况作出不同选择，执行不同操作 Pri...
draw_a_line_on_form.rar_On Form_form drawli
09-23
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' 创建Pen对象，设置颜色和宽度 Dim myPen As New Pen(Color.Black, 2) ' 获取窗体的Graphics对象...
Imports System.Data.OleDb Public Class Form3 Dim con As New OleDbConnection Dim adp As New OleDbDataAdapter Dim ds As New DataSet Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load con.ConnectionString = "Provider=SQLOLEDB;Data Source=.;Integrated Security=SSPI;Initial Catalog=students" Dim selectcmd As New OleDbCommand selectcmd.CommandText = "select * from student" selectcmd.Connection = con adp.SelectCommand = selectcmd adp.Fill(ds, "Table") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click For Each txt As TextBox In Me.Controls.OfType(Of TextBox)() txt.Text = "" Next For Each combo As ComboBox In Me.Controls.OfType(Of ComboBox)() combo.Text = "" Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim insecmd As New OleDbCommand Dim Vs As String = TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "'," & TextBox3.Text & ",'" & ComboBox3.Text & ComboBox4.Text & ComboBox5.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "')" insecmd.CommandText = "insert into student values('" & Vs insecmd.Connection = con adp.InsertCommand = insecmd adp.Update(ds) End Sub End Class这段代码有什么问题
06-03
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb" Dim selectcmd As New ...
``` Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ComboBox1.Items.Clear() Try ' 获取系统中存在的所有的串行端口名称数组 Dim ports() As String = SerialPort.GetPortNames() If ports.Length > 0 Then For Each port In ports ComboBox1.Items.Add(port) Next ' 如果有选项，默认选中第一个 If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0 End If Else MessageBox.Show("未检测到任何串行端口") End If Catch ex As Exception MsgBox(ex.Message) End Try SerialPort1.BaudRate = 9600 SerialPort1.Parity = IO.Ports.Parity.None SerialPort1.DataBits = 8 SerialPort1.StopBits = IO.Ports.StopBits.One END SUB```设备控制指令“LON”,程序添加动作指令
最新发布
03-20
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ComboBox1.Items.Clear() Try ' 获取系统中存在的所有串行端口名称数组 Dim ports() As String = SerialPort.GetPortNames() ...
Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Dim dc As Long Dim p As POINTAPI Public data As String Sub Form_Load() Timer1.Interval = 200 Timer1.Enabled = True MSComm1.CommPort = 1 MSComm1.Settings = "9600,E,7,1" '设置串口参数 MSComm1.InputMode = comInputModeText MSComm1.InBufferSize = 1024 MSComm1.PortOpen = True End Sub Private Sub Timer1_Timer() GetColorUnderCursor GetColorUndersCursor Dim receiveData As String AutoRedraw = True receiveData = MSComm1.Input Text1 = receiveData '打印PLC返回的数据 'MSComm1.PortOpen = False End Sub Private Sub GetColorUnderCursor() GetCursorPos p Cls AutoRedraw = True dc = GetDC(0) Print GetPixel(dc, p.X, p.Y) ReleaseDC 0, dc End Sub Private Sub GetColorUndersCursor() GetCursorPos p dc = GetDC(0) Dim color As Long color = GetPixel(dc, p.X, p.Y) ReleaseDC 0, dc Dim data As String If color = 11250603 Then data = Chr(2) & "110C8020200" & Chr(3) & "34" Text2.Text = data MSComm1.Output = data End If End Sub mscomm1与PLC通信协议为RS-232c，要求修改代码，让plc返回值为十六进制
05-30
Sub Form_Load() Timer1.Interval = 200 Timer1.Enabled = True MSComm1.CommPort = 1 MSComm1.Settings = "9600,E,7,1" '设置串口参数 MSComm1.InputMode = comInputModeText MSComm1.InBufferSize = 1024 ...
Public Sub 考勤() 生成DLL
bluewater的专栏
04-14 554
Public Sub 考勤() Dim xlApp As Object On Error Resume Next Set xlApp = GetObject(, "Excel.Application") 'Dim rng As xlApp.range 会产生用户定义类型错误，直接引用range即可。 If Not xlApp.range("c1").Value Like "有效签到" Th
【Excel VBA】Private sub
Cecilia_W422的博客
03-25 5340
Private sub Private sub 表示私有程序，只能在本模块被调用 sub 等同于 Public sub，表示公用程序，可以被其他模块调用 特殊情况： 如果sub放在sheet表的代码中，无论 private 或 Public，都不能被其他模块直接调用 要调用其他sheet的sub，只能用 . 号调用，如：调用sheet2的程序 bb() ，使用语句： sheet2.bb 并且，b...
【原创】VBA学习笔记（27）VBA里的过程，函数，变量的作用域（生效范围/作用范围）
奔跑的犀牛先生
05-16 2349
一 谁的作用范围？ 不同对象的作用范围完全不是一回事，不要混淆 比如 sub 和 sub里的变量a 作用范围不是一回事 public sub sub1() dim a end sub 二 sub 和 function的作用范围 2.1 语法 public sub sub_name() private sub sub_name() static sub sub_na...
vb.net类的属性,函数与继承的学习
张磊的专栏
08-09 855
Public Class Customer    Public Sub New()        Debug.WriteLine("setuped")    End Sub    --------New(Byval)---------    Public Sub New(ByVal sname As String)        Name = sname        Debug.Wri
(VB.Net) Sub过程
科学技术是第一生产力
04-16 784
定义子过程： '声明子过程的名称，参数和主体 [Modifiers] Sub SubName [(ParamterList)] [Statements] End Sub 'Modifiers：指定过程的访问级别，可能的值：Public,Private,Protected,Friend,Protected Friend and information overloading, ov...
几个C#编程的小技巧
01-03 8699
一、最小化窗口　　点击“X”或“Alt F4”时，最小化窗口，如：protected override void WndProc(ref Message m){const int WM_SYSCOMMAND = 0x0112;const int SC_CLOSE = 0xF060;if (m.Msg == WM_SYSCOMMAND && (int) m.WParam == SC_
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值