原创 VB.NET下的构造和析构函数

2008-11-14 19:18 5234 6 6 分类: 软件与OS

    Sub New() '构造函数(自动运行)
        blEnable = False
        blError = False
        Try
            blEnable = InitializeWinIo() '加载WinIO
        Catch ex As System.Exception
            MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub



    Protected Overrides Sub Finalize() '析构函数(自动运行)
        If blEnable = True Then
            ShutdownWinIo() '卸载WinIO
        End If
    End Sub

文章评论0条评论)

登录后参与讨论
我要评论
0
6
关闭 站长推荐上一条 /2 下一条