'把图片的声明放在外面,类里面过程外面,而且要用As,不然等会儿没法用
Dim myPicture As New System.Windows.Forms.PictureBox()
'动态生成的控件,加一行
Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
myPicture.TabStop =False
myPicture.Name ="p"
myPicture.Cursor = Cursors.Hand
AddHandler myPicture.Click, AddressOf mypic_Click '添加事件
AddHandler returnid, AddressOf idReturned '绑定事件和过程
End Sub
'再来个事件,放在声明的地方,就是类里面、过程外面
Private Event returnid(ByVal id As String) '这个事件可以传递值哦~
'普通的单击事件
Private Sub mypic_Click()
RaiseEvent returnid(myPicture.Name)
'会传值的事件过程
Private Sub idReturned(ByVal id As String)
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
'用id变量做点什么吧
如果要改事件的签名(参数一类的)的话,得重写控件.你可以这样自己弄一个事件.
软糖来回答罗.
"调用事件"有歧义,你的意思是不是下面两种:
调用事件处理方法
直接调用对象名.方法名
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
秒表.Start()
End?Sub
'调用它直接用
Button1_Click(me,?new?EventArgs())
引发事件
Button1.Click.Invoke(me,?new?EventArgs())
另外?RaiseEvent 也可以引发事件,但不能使用 RaiseEvent?来引发派生窗体的控件事件,只有自己定义的类的事件才能用它引发.
如满意,请采纳,谢谢.
Imports?System.Text
Imports?System.Windows
Imports?System.Windows.Forms
Public?Class?Netin?'类?名
'Inherits?Forms.Form
Public?Shared?Netin?As?New?Form
Public?components?As?ComponentModel.IContainer
Protected?Overrides?Sub?Finalize()
MyBase.Finalize()
End?Sub?
DebuggerStepThrough()
Public?Sub?InitializeComponent()
Me.components?=?New?ComponentModel.Container()
Dim?resources?As?ComponentModel.ComponentResourceManager?=?New?System.ComponentModel.ComponentResourceManager(GetType(bjt))
Me.TextBox1?=?New?TextBox(Me.components)
Me.Button1?=?New?Button(Me.components)
'For?...?Next?
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.m?=?New?ContextMenuStrip(Me.components)
Me.m1.Text?=?"菜单项1"??
'设置并添加相关控件,(窗体)Netin?初始化.
Private?Sub?Form_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load
'加载后显示窗体Netin.
MessageBox.Show("你按了鼠标")
Public?WithEvents?TextBox1?As?TextBox
Public?WithEvents?Button1?As?Button
Friend?WithEvents?m?As?ContextMenuStrip
Friend?WithEvents?m1?As?ToolStripMenuItem
End?Class
Class?MainWindow
Netin.Show()
......
上委托啊,单或者多播任选.
"线程来操作 结束后 响应事件"
直接用线程回调就行了
名称
说明
Activated
当使用代码激活或用户激活窗体时发生.
AutoSizeChanged
当?AutoSize?属性更改时发生.
AutoValidateChanged
当?AutoValidate?属性更改时发生.
BackColorChanged
当?BackColor?属性的值更改时发生.(从?Control?继承.)
BackgroundImageChanged
当?BackgroundImage?属性的值更改时发生.(从?Control?继承.)
BackgroundImageLayoutChanged
当?BackgroundImageLayout?属性更改时发生.(从?Control?继承.)
BindingContextChanged
当?BindingContext?属性的值更改时发生.(从?Control?继承.)
CausesValidationChanged
当?CausesValidation?属性的值更改时发生.(从?Control?继承.)
ChangeUICues
焦点或键盘用户界面 (UI) 提示更改时发生.(从?Control?继承.)
Click
在单击控件时发生.(从?Control?继承.)
ClientSizeChanged
当?ClientSize?属性的值更改时发生.(从?Control?继承.)
Closed
关闭窗体时发生.
Closing
ContextMenuChanged
当?ContextMenu?属性的值更改时发生.(从?Control?继承.)
ContextMenuStripChanged
当?ContextMenuStrip?属性的值更改时发生.(从?Control?继承.)
ControlAdded
在将新控件添加到?Control.ControlCollection?时发生.(从?Control?继承.)
ControlRemoved
在从?Control.ControlCollection?移除控件时发生.(从?Control?继承.)
CursorChanged
当?Cursor?属性的值更改时发生.(从?Control?继承.)
Deactivate
当窗体失去焦点并不再是活动窗体时发生.
Disposed
当通过调用?Dispose?方法释放组件时发生.(从?Component?继承.)
DockChanged
当?Dock?属性的值更改时发生.(从?Control?继承.)
DoubleClick
在双击控件时发生.(从?Control?继承.)
DragDrop
拖放操作完成时发生.(从?Control?继承.)
DragEnter
在将对象拖入控件的边界时发生.(从?Control?继承.)
DragLeave
将对象拖出控件的边界时发生.(从?Control?继承.)
DragOver
在将对象拖到控件的边界上发生.(从?Control?继承.)
EnabledChanged
在?Enabled?属性值更改后发生.(从?Control?继承.)
Enter
进入控件时发生.(从?Control?继承.)
FontChanged
在?Font?属性值更改时发生.(从?Control?继承.)
ForeColorChanged
在?ForeColor?属性值更改时发生.(从?Control?继承.)
FormClosed
关闭窗体后发生.
FormClosing
关闭窗体前发生.
GiveFeedback
在执行拖动操作期间发生.(从?Control?继承.)
GotFocus
在控件接收焦点时发生.(从?Control?继承.)
HandleCreated
在为控件创建句柄时发生.(从?Control?继承.)
HandleDestroyed
在控件的句柄处于销毁过程中时发生.(从?Control?继承.)
HelpButtonClicked
单击"帮助"按钮时发生.
HelpRequested
用户请求控件帮助时发生.(从?Control?继承.)
ImeModeChanged
在?ImeMode?属性更改后发生.(从?Control?继承.)
InputLanguageChanged
更改窗体的输入语言后发生.
InputLanguageChanging
当用户尝试更改窗体的输入语言时发生.
Invalidated
控件的显示要求重新绘制时发生.(从?Control?继承.)
KeyDown
在控件有焦点的情况下按下键时发生.(从?Control?继承.)
KeyPress
在控件有焦点的情况下字符、空格或退格键时发生.(从?Control?继承.)
KeyUp
在控件有焦点的情况下释放键时发生.(从?Control?继承.)
Layout
在控件应重新定位其子控件时发生.(从?Control?继承.)
Leave
在输入焦点离开控件时发生.(从?Control?继承.)
Load
在第一次显示窗体前发生.
LocationChanged
在?Location?属性值更改后发生.(从?Control?继承.)
LostFocus
在控件失去焦点时发生.(从?Control?继承.)
MarginChanged
当?Margin?属性更改时发生.
MaximizedBoundsChanged
在?MaximizedBounds?属性的值更改后发生.
MaximumSizeChanged
在?MaximumSize?属性的值更改后发生.
MdiChildActivate
在多文档界面 (MDI) 应用程序内激活或关闭 MDI 子窗体时发生.
MenuComplete
当窗体菜单失去焦点时发生.
MenuStart
当窗体菜单接收焦点时发生.
MinimumSizeChanged
在?MinimumSize?属性的值更改后发生.
MouseCaptureChanged
当控件失去鼠标捕获时发生.(从?Control?继承.)
MouseClick
用鼠标单击控件时发生.(从?Control?继承.)
MouseDoubleClick
用鼠标双击控件时发生.(从?Control?继承.)
MouseDown
当鼠标指针位于控件上并按下鼠标键时发生.(从?Control?继承.)
MouseEnter
在鼠标指针进入控件时发生.(从?Control?继承.)
MouseHover
在鼠标指针停放在控件上时发生.(从?Control?继承.)
MouseLeave
在鼠标指针离开控件时发生.(从?Control?继承.)
MouseMove
在鼠标指针移到控件上时发生.(从?Control?继承.)
MouseUp
在鼠标指针在控件上并释放鼠标键时发生.(从?Control?继承.)
MouseWheel
在控件有焦点且鼠标轮移动时发生.(从?Control?继承.)
Move
在移动控件时发生.(从?Control?继承.)
PaddingChanged
在控件空白区更改时发生.(从?Control?继承.)
Paint
在重绘控件时发生.(从?Control?继承.)
ParentChanged
在?Parent?属性值更改时发生.(从?Control?继承.)
PreviewKeyDown
在焦点位于此控件上的情况下,当有按键动作时发生(在?KeyDown?事件之前发生).(从Control?继承.)
QueryAccessibilityHelp
在?AccessibleObject?为辅助功能应用程序提供帮助时发生.(从?Control?继承.)
QueryContinueDrag
在拖放操作期间发生,并且允许拖动源确定是否应取消拖放操作.(从?Control?继承.)
RegionChanged
当?Region?属性的值更改时发生.(从?Control?继承.)
Resize
在调整控件大小时发生.(从?Control?继承.)
ResizeBegin
窗体进入大小调整模式时发生.
ResizeEnd
窗体退出大小调整模式时发生.
RightToLeftChanged
在?RightToLeft?属性值更改时发生.(从?Control?继承.)
RightToLeftLayoutChanged
更改?RightToLeftLayout?属性值之后发生.
Scroll
用户或代码滚动工作区时发生.(从?ScrollableControl?继承.)
Shown
只要窗体是首次显示就发生.
SizeChanged
在?Size?属性值更改时发生.(从?Control?继承.)
StyleChanged
在控件样式更改时发生.(从?Control?继承.)
SystemColorsChanged
系统颜色更改时发生.(从?Control?继承.)
TabIndexChanged
此 API 支持 产品 基础结构,不能在代码中直接使用.?当?TabIndex?属性的值更改时发生.
TabStopChanged
当?TabStop?属性更改时发生.
TextChanged
在?Text?属性值更改时发生.(从?Control?继承.)
Validated
在控件完成验证时发生.(从?Control?继承.)
Validating
在控件验证时发生.(从?Control?继承.)
VisibleChanged
在?Visible?属性值更改时发生.(从?Control?继承.)
以上就是土嘎嘎小编为大家整理的关于vb.net指派事件的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!