因sub main()函数 出现问题?

xue1234567890 2009-02-25 03:08:45
vb.net2003
在msdn 里有这样的例子...每5秒中弹出一个框...
(form里拖一个timer控件...)
程序:
Friend WithEvents Timer1 As System.Windows.Forms.Timer 'timer控件

Private Shared myTimer As New System.Windows.Forms.Timer
Private Shared alarmCounter As Integer = 1
Private Shared exitFlag As Boolean = False

' This is the method to run when the timer is raised.
Private Shared Sub TimerEventProcessor(ByVal myObject As Object, _
ByVal myEventArgs As EventArgs)
myTimer.Stop()

' Displays a message box asking whether to continue running the timer.
If MessageBox.Show("Continue running?", "Count is: " & alarmCounter, MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.Yes Then
' Restarts the timer and increments the counter.
alarmCounter += 1
myTimer.Enabled = True
Else
' Stops the timer.
exitFlag = True
End If
End Sub

Public Shared Sub Main()
' Adds the event and the event handler for the method that will
' process the timer event to the timer.
AddHandler myTimer.Tick, AddressOf TimerEventProcessor

' Sets the timer interval to 5 seconds.
myTimer.Interval = 5000
myTimer.Start()

' Runs the timer, and raises the event.
While exitFlag = False
' Processes all the events in the queue.
Application.DoEvents()
End While

但是这样的话, 画面也不会显示, 想实现别的功能也不能实现...
好像每次被 sub main()函数初起化....
请帮我解释sub main()函数, 以及怎样做的话, 画面也能显示，然后也能实现每5秒钟弹出提示框...
...全文
181 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
yanlongwuhui 2009-02-27
  • 打赏
  • 举报
 回复
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
exitFlag = true
End Sub
yanlongwuhui 2009-02-26
  • 打赏
  • 举报
 回复
理解上有点错误了，“关闭窗口, 就可以把整个程序结束(包括计时器)... ”，那就关闭窗口的时候，退出系统就可以了，如下：
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
Application.Exit()
End Sub
yanlongwuhui 2009-02-26
  • 打赏
  • 举报
 回复
试过上述代码，Form1_Load中没代码时，不存在“进程里还执行着”的问题。
xue1234567890 2009-02-26
  • 打赏
  • 举报
 回复
Public Class Form1
Inherits System.Windows.Forms.Form

Private Shared myTimer As New System.Windows.Forms.Timer
Private Shared alarmCounter As Integer = 1
Private Shared exitFlag As Boolean = False

' This is the method to run when the timer is raised.
Private Shared Sub TimerEventProcessor(ByVal myObject As Object, _
ByVal myEventArgs As EventArgs)
myTimer.Stop()

' Displays a message box asking whether to continue running the timer.
If MessageBox.Show("Continue running?", "Count is: " & alarmCounter, MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.Yes Then
' Restarts the timer and increments the counter.
alarmCounter += 1
myTimer.Enabled = True
Else
' Stops the timer.
exitFlag = True
End If

End Sub

Public Shared Sub Main()
' Adds the event and the event handler for the method that will
' process the timer event to the timer.

Dim objForm As New Form1
objForm.Show()

AddHandler myTimer.Tick, AddressOf TimerEventProcessor

' Sets the timer interval to 5 seconds.
myTimer.Interval = 5000
myTimer.Start()


' Runs the timer, and raises the event.
While exitFlag = False
' Processes all the events in the queue.
Application.DoEvents()
End While

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

执行顺序是sub main()函数，然后Form1_Load, 上面有人说过 sub main()平常方法, 我想不是.,..
我想实现的是执行后, 关闭窗口, 就可以把整个程序结束(包括计时器)...

需要求助..
yanlongwuhui 2009-02-26
  • 打赏
  • 举报
 回复
一般都是在模块中写sub main函数，在main中调用Form1，启动选择sub main启动。
代码不很多的话，你贴上来看下
xue1234567890 2009-02-26
  • 打赏
  • 举报
 回复
我的程序是在窗体上...

我的程序中还有 Form1_Load方法..
通过调试, 先调用sub main函数,然后再调用Form1_Load方法....
如果sub main函数里的都注释的话，调用sub main函数之后不会调用Form1_Load方法。。。

这个能解释一下吗？ 他们之间有什么关系？
xue1234567890 2009-02-26
  • 打赏
  • 举报
 回复
up
xue1234567890 2009-02-26
  • 打赏
  • 举报
 回复
按照15楼的说法做的话,关闭窗口之后,计时器也不运行了...但是进程里还继续运行着...
如果每次执行, 进程里一直保留的话, 这个程序是无法想像的...

请高手指教...
xue1234567890 2009-02-26
  • 打赏
  • 举报
 回复
等答案...
xue1234567890 2009-02-25
  • 打赏
  • 举报
 回复
不行... 进程里还执行着..
yanlongwuhui 2009-02-25
  • 打赏
  • 举报
 回复
在 End While的后面再加一句试试：
Application.Exit()
xingyichuan 2009-02-25
  • 打赏
  • 举报
 回复
小弟也是才学习.NET，有理解错误的地方请高人指点。
对的，关闭程序就关闭了这个程序。其实在你关闭对话框后，已经将计时器关闭了。可以加个短点看看myTimer.Enabled值。
xue1234567890 2009-02-25
  • 打赏
  • 举报
 回复
一般程序都不是关闭form会关闭整个程序吗?
就是要想关闭整个form...
xingyichuan 2009-02-25
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 xue1234567890 的回复:]
补充： 当我关闭程序时，计时器也不要再运行。。。怎么实现？
[/Quote]
我不太清楚楼主的意思，是指关闭对话框还是关闭整个Form?
xingyichuan 2009-02-25
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 xue1234567890 的回复:]
我的程序是在窗体上...

我的程序中还有 Form1_Load方法..
通过调试, 先调用sub main函数,然后再调用Form1_Load方法....
如果sub main函数里的都注释的话，不会调用Form1_Load方法。。。

这个能解释一下吗？ 他们之间有什么关系？

[/Quote]

Form1_Load 好像是读取窗体这个时间，sub main好像只是一般的过程。
xingyichuan 2009-02-25
  • 打赏
  • 举报
 回复
我试了下在窗体加载的时间中加楼主sub main的函数结果是可以的，楼主可以试试：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

AddHandler myTimer.Tick, AddressOf TimerEventProcessor

' Sets the timer interval to 5 seconds.
myTimer.Interval = 5
myTimer.Start()

' Runs the timer, and raises the event.
While exitFlag = False
' Processes all the events in the queue.
Application.DoEvents()
End While
End Sub
xue1234567890 2009-02-25
  • 打赏
  • 举报
 回复
补充： 当我关闭程序时，计时器也不要再运行。。。怎么实现？
xue1234567890 2009-02-25
  • 打赏
  • 举报
 回复
我的程序是在窗体上...

我的程序中还有 Form1_Load方法..
通过调试, 先调用sub main函数,然后再调用Form1_Load方法....
如果sub main函数里的都注释的话，不会调用Form1_Load方法。。。

这个能解释一下吗？ 他们之间有什么关系？
yanlongwuhui 2009-02-25
  • 打赏
  • 举报
 回复
你的sub main函数应该是在窗体上，不是在模块中的吧。
假设你的窗体名为Form1，则在 AddHandler myTimer.Tick, AddressOf TimerEventProcessor 前面加上以下代码试试：
Dim objForm As New Form1
objForm.Show()
HTML必知必会精讲
本课程《HTML必知必会精讲》详细讲述了HTML必备知识点，内容包括：HTML概述、HTML规范、HTML思想、HBuilder工具的介绍和使用、常见标签（字体font标签、加粗b标签、下划线u标签、删除线s标签、字体倾斜i标签、上标sup标签和下标sub标签、注释标签、标题h1标签、水平线hr标签、特殊字符、列表标签）、图片img标签、HTML中的路径问题讨论（绝对路径和相对路径）、pre标签和p标签、超链接a标签、表格table标签、表单form标签（文本输入框text，密码输入框password，单选输入框radio，复选输入框checkbox，文本域textarea，文件上传项file，提交按钮submit，恢复按钮reset，普通按钮button，下拉输入框select，隐藏项hidden）、div和span标签、元标签meta、base标签、link标签、页面框架标签frameset。课程特色：所有内容均详细演示使用步骤和细节，全程手写代码，零基础都可轻松掌握！
RT-Thread 入门学习笔记 - 熟悉$Sub$$main与$Super$$main
前言 学习RT-Thread内核，需要了解内核是怎么工作的，main函数的位置 如基于STM32的RT-Thread，ST会提供STM32的启动文件，启动文件调用执行：__main RT-Thread没有定义__main，而是使用：$Sub$$main作为入口 那我们的main函数如何去调用？使用$Sub$$main 理一下头绪 $Sub$$main 与$Super$$main的作用是什么？这个是Keil MDK的特殊处理，还是ARM 处理器的特殊处理？ 参考如下的文章的介绍： https://de
【浅谈】main函数的三个参数
【浅谈】main函数的参数 　　 　　我们平时使用main函数时，在main函数参数这一栏常常省略不写，或者填上（void）。那么今天我们来看看main函数的参数。 main函数的参数有哪些？ 　　在我们写好一个main函数框架后按F10开始单步调试，一直调试到走出main函数大括号外。这时我们能够看到如下代码： 　　 　　我们可以很清晰的看到main函数时有参数的，而且是三个参数...
【C语言】main函数的参数解析
main函数 每个C程序都必须有一个main函数，main函数又称为主函数,是执行程序的起点，它被称之为函数，是否会像平时使用函数时需要自己的参数呢？ 答案是肯定的，那么他都有那些参数呢？ main函数的在vs2017环境下调试，可以看到main函数里的三个参数 #include <stdio.h> int main() { return 0; } 可以看到，...
VB.net怎么用Sub Main
今天在Vb.net群里碰到有人问Winform项目通过Main函数来启动程序。找百度得到的信息也不够明确和具体，一些初学的人甚至有一定Vb.net使用经验的人都以为这没法实现，Main已经由Vb.net隐式实现了，不提供覆盖。其实这是错误的，我们完全可以自行来定义。虽然vb.net不像C#那样在创建项目时就自动提供了一个Program.cs的类，并且包含了Main入口函数的定...
VB

16,554

社区成员

110,527

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章