请问关于unload和private的问题

luaiping 2003-07-18 09:31:56

比如我在form用private定义一个变量a
当form unload后再加载a值变吗？

...全文

33 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

飘零风 2003-07-18

打赏
举报

回复

尝试用static来定义你的变量。

luaiping 2003-07-18

打赏
举报

回复

我是多窗体情况，比如在form2中定义一个string data=“a b c”
当form2 show时listbox1.item为a、b、c，如果选中a移到listbox2中，listbox1中a删除，并将listbox1.item保存在data中
当form2 unload后重新加载data值不稳定，什么原因？

of123 2003-07-18

打赏
举报

回复

情况不同：
1 如果是多窗体情况下，非主窗体卸载（未使程序退出），则它的变量会继续生存。
2 单窗体的情况下，窗体卸载，变量也被释放。

luaiping 2003-07-18

打赏
举报

回复

如果是定义一个动态数组呢？

飘零风 2003-07-18

打赏
举报

回复

不变

luaiping 2003-07-18

打赏
举报

回复

我一直认为是变的，今天实验了一下，好象没变

Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_Load() frmSplash.Caption = "演示程序版本号:" & App.Major & "." & App.Minor lblVersion.Caption = "版本 " & ...

Private Sub Form_Unload(Cancel As Integer) Unload Form2 Unload Form3 End Sub Private Sub guanyubofangqi_Click() Form3.Show End Sub Private Sub guanyuzuozhe_Click() Form2.Show End Sub Private...

Unload Me End Sub Private Sub Form_Load() Label1.Left = Label1.Left + 100 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + 200 If Label1.Left > Label1.Width Then Label1.Left = -Label1....

Private Sub 管理员_Click() Unload Me Form9.Show pingbi3 End Sub Private Sub 取消_Click() End End Sub Private Sub 退出_Click() End End Sub Private Sub 学生_Click() Unload Me Form10.Visible = True ...

Private Sub Form_Unload(Cancel As Integer) USBDiskEvent1.SetHookForm True'关闭控件功能 End Sub Private Sub USBDiskEvent1_USBDevOn(ByVal UDrive As String, ByVal USerialNumber As String) '有设备插入时...

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章