-
本版专家分：0结帖率 100% -
请问大家，以下两个子过程
Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click, MenuItem2.Click
和
Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
为什么前一个要在sender前加ByVal后一个却不用，难道第一个一定要强调是传值吗？
-
本版专家分：3564 -
ByVal可加可不加，但加了之后被调用的过程或属性不能更改调用它的代码中参数下面的变量的值。
-
本版专家分：0
-
谢谢您的回答。但我有一点不太理解，不能更改调用它的代码中参数下面的变量的值，这个变量是指代入子过程的变量，还是指过程产生的变量 e
-
本版专家分：418563
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
名人
2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
-
- 状元 2013年 总版技术专家分年内排行榜第一
-
- 探花 2014年 总版技术专家分年内排行榜第三
-
-
VB默认Byref
VB.NET默认byval
-
本版专家分：3564
-
下面的示例中，实参是 c1，它是类 Class1 的一个实例。 ByVal 防止过程中的代码更改引用实参 c1 的基础值，但是不保护 c1 的可访问字段和属性。
Module Module1
Sub Main()
' Declare an instance of the class and assign a value to its field.
Dim c1 As Class1 = New Class1()
c1.Field = 5
Console.WriteLine(c1.Field)
' Output: 5
' ByVal does not prevent changing the value of a field or property.
ChangeFieldValue(c1)
Console.WriteLine(c1.Field)
' Output: 500
' ByVal does prevent changing the value of c1 itself.
ChangeClassReference(c1)
Console.WriteLine(c1.Field)
' Output: 500
Console.ReadKey()
End Sub
Public Sub ChangeFieldValue(ByVal cls As Class1)
cls.Field = 500
End Sub
Public Sub ChangeClassReference(ByVal cls As Class1)
cls = New Class1()
cls.Field = 1000
End Sub
Public Class Class1
Public Field As Integer
End Class
End Module
- VB.net中ByVal ByRef ；形参 实参 区别的描述，带源代码
用代码的形式阐述了ByVal和ByRef的区别以及形参和实参的区别。源码在VB.net 2010下调试通过。 欢迎指正！
- VB.net中ByVal ByRef 形参 实参的区别，带源代码
用实际代码的形式阐述了ByVal和ByRef的区别以及形参和实参的区别。 源码在VB.net 2010下调试通过。 欢迎指正！
- VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private ...
- VB颜色代码转换（转换颜色成VB代码）
输入颜色代码立即可以转换成VB颜色代码，这样做程序界面颜色时很轻松就能做到了
- 在 Vb.Net 中读写 Ini 文件
在 VB.Net 下读写 Ini 文件。必要的 WinAPI声明如下： Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ...
- VB6.0常用基本函数库.rar
VB6.0常用基本函数库，共有27个，如你正在学习VB开发，也许用得到，建议下载收藏。 部分源代码示例： ' On Top Sub Declaration Public Declare Sub SetWindowPos Lib _ "user32" (ByVal hWnd _ As Integer, ByVal...
- VB6.0 如何计算加权平均值.rar
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer) Dim sum As Integer sum = (a * b c * d e * f) / (b...
- 任输入三个数，求得平均值,平均值程序(VB6.0源代码编写Function ave(ByVal a As Double,
任输入三个数，求得平均值,平均值程序(VB6.0源代码编写Function ave(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double ave = (a + b + c) / 3 End Function Private Sub Command1_Click() ...
- VB编写的屏幕悬浮字源码
用VB写的在屏幕上出现悬浮字的源代码. 用到了如下API函数: Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare ...
- VB制作植物大战僵尸修改器
VB制作植物大战僵尸修改器 Private Sub Command1_Click() Dim hwd As Long Dim phandle As Long Dim address As Long Dim a As Long a = Text1 hwd = FindWindow(vbNullString, "PlantsVsZombies.exe") ...
- VB.Net 控制 QQ发送信息
在VS2010中的VB中测试了一下，能够发信息，目前只研究到这种程序 不知道有没有更好的办法！ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '...
- 使用API调用帮助文件(VB6.0源代码编写)WinHelp Me.hWnd, App.Path + "\MYHELP.HLP", HELP_CONTENTS, ByVal ...
使用API调用帮助文件(VB6.0源代码编写)WinHelp Me.hWnd, App.Path + "\MYHELP.HLP", HELP_CONTENTS, ByVal 0
- VB创建线程动态链接库(VBCreateThread.dll)
功能:VB创建线程（其它语言没测试过...Public Declare Function CreateThreadE Lib "VBCreateThread.dll" (ByVal address As Long, ByVal p0 As Long, ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long) As Long
- 启动程序伴随音乐(VB6.0源代码编写)Private Declare Function sndPlaySound Lib "winmm.dll" Alias ...
启动程序伴随音乐(VB6.0源代码编写)Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Private...
- VB.Net常用语法
您可以在函数中调用，包括在API中（当然VB.Net不再使用winAPI）. 甚至一些至关紧要的过程也不例外：如new过程(此方法王国荣文章中 有介绍) 如： class class1 Overloads Public Sub New() 。。。。。。 ...
- VB结束指定进程代码
vb 中止 指定进程 '查找进程函数 Private Const MAX_PATH = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long ...
- HotKey函数的应用（VB实现热键）
Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias...
- vb下载图片vb下载图片vb下载图片
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As ...
- VB日历功能源码
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory ...
- 基于VB的文字动画特效
基于VB的文字动画特效代码Private Sub TextEffect( _ ByVal sText As String, _ ByVal lX As Long, ByVal lY As Long, _ Optional ByVal bLoop As Boolean = False, _ Optional ByVal lStartSpacing As Long = ...