VS 2010 中的 VB.NET 编程

最近，我安装了 VS 2010，就迷上了其中的 VB .NET。这是因为我实在吃不透其中那些 VC、C# 等等，也由于我一直都对 BASIC 语言感兴趣（主要是好学，语句比其他语言更接近心语），于是就将我在 VB 6.0 环境下编写的家庭财务治理改写成支持 .Net FrameWork 的 VB.NET。下图就是其主界面：

    End Sub

与 VB 6.0 相比，此刻比支持从 Sub Main()  启动了，可是我又不想增加主窗心的代码，所以仍然添加了一个模块：MainModule.vb，在主窗心的 Form_Load 中这样写：

 

 Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.DoubleBuffered = True
        Me.KeyPreview = True
        Me.Text = My.Resources.PCTitle
        Try
            'Me.Invalidate(True)
            '使用互斥量禁止运止本软件的两个实例
            Dim bExist As Boolean
            Dim PCMutex As New Threading.Mutex(True, "OnlyOneTime", bExist)
            If bExist Then
                PCMutex.ReleaseMutex()
                FirstInterFace()'这个代码在MainModule.vb中，以后会看到
            Else
                MessageBox.Show(My.Resources.PCTitle + vbCrLf + "已经在运止，请按确定按钮退出．", My.Resources.PCTitle, MessageBoxButtons.OK, MessageBoxIcon.Error)
                MyMutex.ReleaseMutex()
                Me.Close()
            End If
        Catch ex As ApplicationException
            End
        End Try

双击 MyProject，可以打开应用程序的设置窗心：

老实说，这个界面的其它几个标签我还真搞不懂，但仅仅这样设置后，仍然可以编写一个程序的。

在 MainModule.vb 的开头导入了必要的系统名字空间：

Imp orts System
Imp orts System.IO
Imp orts System.Threading
接着，就在 Module MainModule 与 End Module 之间定义需要的控件与变量：

'公共变量
    Public DataErrorText As String '数据库错误信息
    Public RunControl As New PCRunTime '定义运止时的控件类
    Public PCMenageWiseUser As UserClass '定义用户类
    Public UserRunTime As Integer = 0 '用户当前运止时间（秒）

    Public ImageItemIndex As Integer '浏览图片时的图片号码
    Public FirstPicNumber As Integer '浏览图片时在 ListView1 里起始的图片，即文件夹结束后的第一个图片
    Public EndPicNumber As Integer '浏览图片时 ListView1 的最后一个图片，即：ListView1.Items.Count-1
    Public ModBitMap As Bitmap '本模块的图像变量，定义为 Public 是为了在 MainForm 里能够对它进止 Dispose()

    Public MoneyPanel As CtlMoneyPanel '存折、存款与现金
    Public MoneySearchPanel As CtlMoneySearchPanel
    Public BooksEnregisterPanel As CtlBooksEnregisterPanel ' 书籍输入
    Public BooksInformationPanel As CtlBooksInformationPanel ' 书籍查询

    'Module 私有变量
    Private bHelp As Boolean = False
    Private TreeImageList As ImageList '图片浏览时的 TreeView1 图标
    Private ListimageList As New ImageList '图片浏览时的 ListView1 图标

'Windows Controls
    Public PCTo生活大爆炸olTip As New ToolTip
    Public PCErrProvider As New ErrorProvider
    Public WithEvents TreeView1 As New TreeView
    Public WithEvents DataView1 As New DataGridView
    Public WithEvents PicImage As New PictureBox '书籍封面与图片浏览
    Public WithEvents ListView1 As New ListView
    Dim Limglst As New ImageList() 'Large ImageList for our ListView Control.

以上变量与控件的使用我将陆续先容，希望得到网友们的关注与指正。