双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

怎样用代码使vb程序正常退出？

2003-04-08 05:56:27 7.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

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

用VB编写抽奖程序用VB编写抽奖程序{　　一、界面设计　　新建一个标准的EXE工程。在Form1窗体中放置一个定时器（Timer1）、两个文本框（Label1，Label2）、两个命令按钮（Command1，Command2）和包含7个元素的控件数组（Label3（0）—Label3（6））。　　二、属性设置　　Label3控件数组中的阅读详情

怎样用代码使vb程序正常退出？

...全文

VB仿Windows的记事本notepad的程序源代码相信大家学VB如果连记事本这东西都不知道话就很郁闷了，CG今天接到Kivi的任务，做一个能看懂代码的记事本程序作为VB作业上交，据说还要上台讲，这老师真够难为人的，反正CG是有段时间没有见到了，源代码附上，如果大家有需要的话拿走，毕竟像初学者还是需要的。简要说明：记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件，打开字体，保存文件对话框的功能，实现文本的创建阅读详情

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

+ 关注 + 加入社区

评论 16

切换为时间正序

shortppsy 2003-04-11

打赏
举报

回复

private sub form_load
unload
end sub

刘洪峰AIoT 2003-04-11

打赏
举报

回复

当有多个窗体的时候，这种情况很容易出现。
用mdi窗体较好一些

goldfish9 2003-04-10

打赏
举报

回复

我也遇到了这方面的问题。
我按了右上角窗体的关闭按钮，可程序还要运行。不知道是什么原因

裸男 2003-04-10

打赏
举报

回复

up

Daniel0318 2003-04-10

打赏
举报

回复

楼上果然是高人

Sean918 2003-04-10

打赏
举报

回复

有时候 END 强行结束程序会出现内存错误

这个时候建议使用下面代码退出程序:

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

TerminateProcess GetCurrentProcess, 0

jiaxin1029 2003-04-10

打赏
举报

回复

我同意yefanqiu(叶帆)
但是 END 会出错吗？为什么，我怎么没遇到过......
请教！！

chutianqi 2003-04-10

打赏
举报

回复

其实直接用END就可以退出整个程序了~~

sxs69 2003-04-10

打赏
举报

回复

for i=0 to forms.Count-1
unload forms(0)
next i

HanZhu1 2003-04-10

打赏
举报

回复

end

richardbao 2003-04-10

打赏
举报

回复

就是 unload 所有的窗体啊，就像楼上那位说的一样。最好不要用 End，那个不是模块化所推荐的，而且有时好像会出现非法错误。

刘洪峰AIoT 2003-04-08

打赏
举报

回复

for i=0 to forms.Count
unload forms(i)
next i
end

goldfish9 2003-04-08

打赏
举报

回复

上面的都说了

lihonggen0 2003-04-08

打赏
举报

回复

unload me 退出当前屏幕

end 结束程序

minajo21 2003-04-08

打赏
举报

回复

unload 所有的窗体、对象
end

zsgzsgzsg 2003-04-08

打赏
举报

回复

end