易截截图软件、单文件、免安装、纯绿色、仅160KB

求注释VB程序,只要大概整句意思即可,急用!!!

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
            If rsMain.RecordCount >= MaxRecNumber Then
                    MsgBox "疾病个数不能超过: " & Str(MaxRecNumber) & "个" & vbCrLf & "如果需要增加疾病数量,请与作者联系", vbInformation, "提示"
                    Exit Sub
            End If '判断
            If Trim(txtID.Text) = "" Then
                   MsgBox "必须输入疾病代号", vbCritical, "Error"
                   txtID.SetFocus
                   Exit Sub
            End If
            If Trim(txtObject.Text) = "" Then
                   MsgBox "必须输入疾病名称", vbCritical, "Error"
                   txtObject.SetFocus
                   Exit Sub
            End If
  &nb


相关文档:

VB截获Windows消息的钩子

本文引自。感谢原创!http://useway.blog.51cto.com/736087/176913
VB无所不能之三:VB截获Windows消息的钩子
——作者:钟声
博客地址:http://useway.blog.51cto.com
 
    VB一直被认为是一个可以通过简单的方法,完成Windows界面应用程序的一个语言。对Windows系统方面的编程似乎首 ......

VB的雷达扫描

自己整了4个目标用于扫描。以后可能可以自己添加删除(写到这儿忽然觉得C++的vector不能删除元素(反正C++ Primer里目前没找到)让人很郁闷)
Form1,须加一个Timer1
Dim CAngle As Integer 'Current Angle (Not Class Angle)
Private Sub Form_Load() '初始化
CAngle = 0
Me.BackColor = vbBlack
......

VB.NET/C# and JavaScript communication

Introduction
This article is about passing data between VB.NET/C# WinForms and JavaScript.
Before reading further, let me warn you that this article is not about ASP.NET. Concepts covered in the article are applied to Desktop applications.
Background
I was working on a project which required dat ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号