<求助>form1_Load中的Handles Mybase.load和Handles Me.load

kyle_007 2007-06-06 09:32:21

在form1_load事件中，后面好像有时是一个“Handles MyBase.Load”,这是什么意思，这个MyBase指向哪，我记得好像还看到过后面是“Me.load"的，不知道是不是也有这个，如果有，Me.load和MyBase.load有什么区别啊?

...全文

368 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

magicbacon 2007-06-06

打赏
举报

回复

知其然，不知其所以然。

magicbacon 2007-06-06

打赏
举报

回复

Mybase.Load是2003中的，Me.Load是2005中的，具体有什么区别说不上来。

Public Class Form1 '先引用此库 '再创建一个实例 Dim sDrag As New getDragFilePathName.DragDropFiles Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '注册窗体为容器 sDrag.DragDropHwnd = Me.Handle '加载库文件 sDrag.DragDropLoad() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '获取路径： TextBox1.Text = sDrag.DragDropFiles(0) End Sub End Class

VB课程设计,试验题目: 常用控件 Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = "E:\实验运行场\VB.NET程序设计\系统\image\登陆界面.swf" AxShockwaveFlash1.Play() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm4 As New Form4 frm4.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm6 As New Form6 frm6.Show() Me.Hide() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim frm9 As New Form9 frm9.Show() Me.Hide() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End Sub End Class

Visual Basic（VB）是一种基于事件驱动的编程语言，它是Microsoft Visual Studio集成开发环境（IDE）的一部分。VB主要用于Windows应用程序的开发。以下是一个简要的Visual Basic语言教程和一个基本的案例： ### Visual Basic语言教程： #### 1. Hello World 程序在Visual Basic中，Hello World程序通常涉及创建一个窗体，并在窗体上添加一个标签（Label）控件来显示文本。以下是一个简单的例子： ```vb Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Label1.Text = "Hello, World!" End Sub End Class ``` 在上述例子中： - `Form1_Load` 是窗体加载时触发的事件。 - `Label1.Text` 用于设置标签的文本内容。 #### 2. 变量

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Long '用于存储结果 Dim x As Integer '定义循环变量 Dim t As Integer 'N的大小 s = 0 '初始化 x = 1 t = CInt(Conversion.Val(TextBox2.Text)) While x <= t s = CLng(s + x ^ 2) x = x + 2 End While TextBox1.Text = CStr(Conversion.Val(Str(s))) '显示结果 MsgBox("1~100所有奇数的评分和=" + Str(s)) End Sub End Class

Imports System.Management Public Class Form1 Private Function Get_Motherboard_Sno() As String Dim mc As Ne34w Class("Win32_BaseBoard") ' 註1 mc.Scope.Options.EnablePrivileges = True ' 註2 Dim sno As String = "" For Each mo As Object In mc.GetInstances() ' 註3 sno = mo("SerialNumber") ' 註4 Next mc.Dispose() ' 註5 Return sno End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("硬碟序號: " & Get_HD_Sno(0) & _ ControlChars.CrLf & ControlChars.CrLf & _ "主機板序號: " & Get_Motherboard_Sno()) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class ˋ

16,556

社区成员

110,528

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章