注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

春苑

快乐晚年

 
 
 

日志

 
 
关于我

我,一个学校退休电教管理员。爱好无线电与电脑技术,很想在网络上结交与我有相同爱好的同仁。

网易考拉推荐
GACHA精选

VS 2010 中的 VB.NET 编程  

2010-10-16 21:01:02|  分类: 我的软件 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

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

VS 2010 中的 VB.NET 编程 - PC Lee - 春苑
与 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

    End Sub

双击 MyProject,可以打开应用程序的设置窗口:

VS 2010 中的 VB.NET 编程 - PC Lee - 春苑
老实说,这个界面的其它几个标签我还真搞不懂,但仅仅这样设置后,仍然可以编写一个程序的。
在 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 PCToolTip 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.
以上变量与控件的使用我将陆续介绍,希望得到网友们的关注与指正。 
  评论这张
 
阅读(1126)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017