具体解释:ByVal sender As System.Object, ByVal e As System.EventArgs

zhuminnick 2005-06-13 11:28:02
ByVal sender As System.Object, ByVal e As System.EventArgs的具体含义,找了好些书,都没有详细的解释.
我只大概知道是byval是传值作用,那么e是什么呢?System.EventArgs又是什么意思呢?整个语句的详细作用又是什么呢?
ByVal sender .......这类语句的组成还有很多,能不能麻烦大虾们多举点组成方式,并详细说明其用法和含义.
...全文
1686 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhuminnick 2005-07-26
  • 打赏
  • 举报
回复
谢谢
愚弄人 2005-07-18
  • 打赏
  • 举报
回复
举例来说.
TextBox1这个控件的Keypress事件
在TextBox1中按任何键会触发此事件.此时:Sender就是TextBox1 ,而e.keychar会有本次按键对应的值
sx_lxh 2005-07-17
  • 打赏
  • 举报
回复
http://www.microsoft.com/china/community/Column/92.mspx
sx_lxh 2005-07-15
  • 打赏
  • 举报
回复
e:
例如Panel1_MouseDown的鼠标事件

Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
x = e.X
y = e.Y
End Sub
sx_lxh 2005-07-15
  • 打赏
  • 举报
回复
sender:
例如有5个radiobutton
Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click, RadioButton2.Click, RadioButton3.Click, RadioButton4.Click, RadioButton5.Click
Select Case sender.text
Case "名字1"
'你点了“名字1”RadioButton
Case "名字2"
'你点了“名字2”RadioButton
...

Case "名字5"
'你点了“名字5”RadioButton
End Select
End Sub
zhuminnick 2005-07-14
  • 打赏
  • 举报
回复
当然了,以上各位说法都是非常正确的,但是,我总觉得不是很透彻.我想问的地方还是没弄得很明白
有没有一个很全面的帖子或者是网站能够说明白我整个帖子所提的问题?
首先谢谢各位朋友的不吝赐教了:) (不要嫌我麻烦哦:),或者就是嫌也不要说得那么明白)
sx_lxh 2005-06-30
  • 打赏
  • 举报
回复
非常基础又非常重要,应算一个好贴。
冷锋 2005-06-29
  • 打赏
  • 举报
回复
这是最基本的东西呀,书上都有介绍的,上面几位的都是正解!
zhuminnick 2005-06-28
  • 打赏
  • 举报
回复
up
zhuminnick 2005-06-18
  • 打赏
  • 举报
回复
up
Ninputer 2005-06-14
  • 打赏
  • 举报
回复
若希望了解在.NET中使用Event的技巧,请看我的文章:VB初学者系列:正确使用Event
http://blog.joycode.com/ninputer/archive/2004/04/25/20207.aspx
zhuminnick 2005-06-14
  • 打赏
  • 举报
回复
不太懂
老戴12345654 2005-06-13
  • 打赏
  • 举报
回复
byval是说明参数是值传递,即是值的一个副本/

sender是触发这个事件的控件源,即这个事件是由哪个控件触发的。

e是个事件参数,这是MS推荐的标准格式的基础事件类。

不同的事件有不同类型的事件参数e,但,按照MS的推荐,虽然事件参数类型不同,但应该继承自EVENTARGS。
hamadou 2005-06-13
  • 打赏
  • 举报
回复
byval是说明参数是值传递,即是值的一个副本/
e参数,是事件处理的基类。
在.net通过对e参数的属性的操作来达到对多个参数进行设置的功能。也就是说,通常我们只使用这两个参数,但第2个e参数其实或许包含着许多属性,这些属性可以被看做是其他的参数,这是一种处理事件参数的机制。
淡蓝色2 2005-06-13
  • 打赏
  • 举报
回复
ByVal -- By Value,按值传送。在目标过程中 值不会影响到传送方
ByRef -- By Reference,按引用传送。

Sender:是谁引发了此事件。
EventArgs:引发此事件的同时 给你带来的附加的东西。
zhuminnick 2005-06-13
  • 打赏
  • 举报
回复
up
chamys 2005-06-13
  • 打赏
  • 举报
回复
關注
tch789 2005-06-13
  • 打赏
  • 举报
回复
學習
Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Font = New Font("宋体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Font = New Font("隶书", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox1.Font = New Font("黑体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 12, TextBox1.Font.Style) End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 18, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If (CheckBox1.Checked) Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Bold) End If End Sub Private Sub Form1_Load(ByVal sender As System.Obje
用VB.NET做的小游戏--打地鼠 Public Class Form1 Inherits System.Windows.Forms.Form Dim pic As New PictureBox Dim goal As Integer Dim i As Integer Dim j As Integer Dim xx1() As Integer = {135, 277, 417} Dim xx2() As Integer = {157, 367} Dim xx3() As Integer = {32, 251, 482} Dim timer As Double = 1 Dim count As Integer '计时器跳动次数 Dim ifclick As Boolean Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "小游戏" Me.Size = New Size(650, 465) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 600 Timer1.Enabled = True Button2.Visible = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Button2.Text = "暂停" Then Button2.Text = "继续" Timer1.Enabled = False PictureBox1.Enabled = False ElseIf Button2.Text = "继续" Then Button2.Text = "暂停" Timer1.Enabled = True PictureBox1.Enabled = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ifclick = False PictureBox1.Enabled = True If timer = 0 Then Timer1.Enabled = False MsgBox("游戏结束,您的得分:" + goal.ToString) Button3.Visible = False Exit Sub End If addpic() timer = 10 - count * 0.5

16,718

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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