最近,我安装了 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 的开头导入了必要的系统名字空间:
Imports System
Imports System.IO
Imports 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.
以上变量与控件的使用我将陆续先容,希望得到网友们的关注与指正。