Question

VB中注释

Answer 1

Public file_name As String '声明全局变量,存储文件名

Private Sub 浏览_Click() '[按钮?]单击事件
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '设置通用对话框过滤 xls文件 或 所有文件
CommonDialog1.ShowOpen '显示打开对话框
file_name = CommonDialog1.FileName '得到用户选择的文件名
If file_name = "" Then Exit Sub '判断文件名是否有效,无效则退出过程
List1.Clear '清空列表框
Dim xlExcel As Excel.Application '声明Excel应用程序实例
Dim xlBook As Excel.Workbook '声明Excel工作簿实例
Dim xlSheet As Excel.Worksheet '声明Excel表单实例
Set xlExcel = CreateObject("Excel.Application") '生成Excel应用程序实例
Set xlBook = xlExcel.Workbooks.Open(file_name) '打开xls文件
xlExcel.Visible = False '在后台处理,不显示Excel窗口
For i = 1 To xlBook.Sheets.Count '遍历所有工作表
Set xlSheet = xlBook.Worksheets(i)
xlSheet.Activate '激活第i个工作表
List1.AddItem xlSheet.Name '将工作表名添加到列表框
DoEvents '让系统响应一下其他消息
Next
xlBook.Close '关闭工作簿
xlExcel.Quit '退出Excel
End Sub
Private Sub List1_Click() '列表框单击事件
If Text1.Text = "" Then Exit Sub '如果Text1文本框没有内容则退出过程
If file_name = "" Then Exit Sub '如果用户选择的文件名无效则退出过程
Dim Con As New ADODB.Connection 'ADODB连接对象声明
Dim ConStr As String '声明字符串变量
Con.CursorLocation = adUseClient '设置游标引擎的位置,相关请参阅MSDN
ConStr = "driver=sql server;server=(local);uid=sa;pwd=56776606;database=knife;" '赋值:用sa账号,56776606为密码,连接本机SQLServer的knife数据库
Con.Open ConStr '打开连接
Con.Execute "SELECT * INTO " & Text1.Text & " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & file_name & "'," & List1.Text & "$)"
'access、Oracle等数据库可以用SELECT....INTO....from...语句，可以在事先不创建表的情况下，直接将查询结果保存到一个新创建的表中。
'请不要见笑,貌似SQLServer不能这么做,当然我没有试验,我从来没这么做过,这个是把List1选择的工作表作为数据表,Text1制定的作为目标工作表
Con.Close '关闭连接
Set Con = Nothing '释放变量
MsgBox "导入成功！" '提示数据导入成功
Beep '制造dooooong的一声他妈的噪音

End Sub

Private Sub 导入Excel_Click() '单击事件
'碌碌无为
End Sub

Answer 2

Visual Basic 2003以上版本有两种注释方法：

1、是用'符号进行注释。

2、是用#region “” 和 #end region注释，这是一对括号型的注释方法。

VB程序设计中，构成对象的三要是：属性、方法和事件 。

属性描述了对象的特征 ，方法描述了对象的行为 ，事件规定了操作系统可识别的其它对象作用于本对象的行为。

Answer 3

您好，VB中添加注释有两种方法：
1.
代码 ' 注释
（单引号：在代码后加入英文状态的单引号）
2.
代码 ：Rem 注释
（Rem语句：代码后加冒号，加Rem，加注释）

注：VB的默认代码字体颜色下，注释为绿色

Answer 4

Visual Basic 2003以上版本有两种注释方法：
第一种是用 ' 符号进行注释。第二种是用#region “” 和 #end region注释，这是一对括号型的注释方法，用方法1只能在一行里注释，用#region 则可把整段程序用这个注释括

Answer 5

单引号后边的一行中都是注释的内容