如何为窗体增加事件？

2003-01-07 06:12:57 91 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wuhee_snowwolf 墨衍会员 · AI 创作全网分发关注 + 加入社区

【VBA研究】EXCEL启动时自动启动窗体作者：iamlaosong VBA编程时为了界面美观，我们经常用到窗体Form，那么，如何做到让VBA窗体在EXCEL启动时自动运行呢？方法有二，第一，双击ThisWorkbook，输入以下代码（Open事件）： Private Sub Workbook_Open() UserForm1.Show End Sub 第二，也可以插入一个模块，输入下面自启动代码： Sub Auto_ 阅读详情

由于我发现可以用Property语句为窗体增加属性，自然想到为窗体增加事件，但用Event语句定义后发现Form并不识别我定义的事件，而是将其作为一般过程处理。请问如何才能添加事件给窗体？
我的定义是：
Public Event ModeChange(Mode As Integer)

...全文

DataGrid之增加与删除目标：DataGrid之修改在上节课的基础上添加增加与删除操作一，增加思路： 1，查询旁边添加新增按钮 2，添加点击事件弹出窗体 3，提交表单 4，窗体关闭 5，刷新数据表格 1，查询旁边添加新增按钮在jsp界面添加一个增加按钮 id为btn-add <a id=“btn-add” href="#" class=“easyui-linkbutton” data-options=“iconCls:‘icon-search’”>新增 2，添加点击事件弹出窗体 /*增加. 阅读详情

wuhee_snowwolf

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

wuhee_snowwolf 2003-01-08

打赏
举报

谢谢大家，我找到了，在MSDN里面使用跳转URL到
mk:@MSITStore:D:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VSa\1033\vbcon98.chm::/Html/vbconaddingeventtoform.htm
看 Adding an Event to a Form

redwrite 2003-01-07

打赏
举报

学习

qxluo 2003-01-07

打赏
举报

定义好事件后，在你的form中你认为该产生该事件的地方用

RaiseEvent ModeChange(mode)

触发

在其他模块中采用如下方式定义form就可以捕获事件了：

dim withevents form as frmYourFram

private sub form_modeChange(mode as Integer)
end sub

litsnake1 2003-01-07

打赏
举报

用raiseevent

Option Explicit

Private WithEvents mText As TimerState

Private Sub Command1_Click()
Text1.Text = "From Now"
Text1.Refresh
Text2.Text = "0"
Text2.Refresh
Call mText.TimerTask(9.84)
End Sub

Private Sub Form_Load()
Command1.Caption = "Click to Start Timer"
Text1.Text = ""
Text2.Text = ""
Label1.Caption = "The fastest 100 meters ever run took this long:"
Set mText = New TimerState
End Sub

Private Sub mText_ChangeText()
Text1.Text = "Until Now"
Text2.Text = "9.84"
End Sub

Private Sub mText_UpdateTime(ByVal dblJump As Double)
Text2.Text = Str(Format(dblJump, "0"))
DoEvents
End Sub

The remaining code is in a class module named TimerState. Included among the commands in this module are the Raise Event statements.

Option Explicit
Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText()

Public Sub TimerTask(ByVal Duration As Double)
Dim dblStart As Double
Dim dblSecond As Double
Dim dblSoFar As Double
dblStart = Timer
dblSoFar = dblStart

Do While Timer < dblStart + Duration
If Timer - dblSoFar >= 1 Then
dblSoFar = dblSoFar + 1
RaiseEvent UpdateTime(Timer - dblStart)
End If
Loop

RaiseEvent ChangeText

End Sub

如何为窗体增加事件？

相关推荐