锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net中注释代码的信息( 二 )

IT技术多边形


VB程序采用的结构化程序的设计利用计算机程序解决数学函数的计算计算机的VB程序中的算术运算符程序执行过程中数值始终不改变的变量称为常量在VB程序中的变量的命名规则（一）在VB程序中的变量的命名规则（二）程序中变量的作用域的划分 您可能还对以下文章感兴趣2011年教师资格证考试报名计算机软硬件常见问预计下半年计算机等级考报名校，酒香也怕巷子深信息安全博士点专家论证交通运输专业大学毕业生上一篇：程序中变量的作用域的划分下一篇：VB程序中的工程管理
求具体VB.NET注释这时用vb6.0改写vb.net中注释代码的吧.net配置文件不用inivb.net中注释代码了vb.net中注释代码，前面5行vb.net中注释代码，判断符合条件则获取相关文本框中的内容，在下面4行把相关内容就是前面5行中的后4行的内容写进ini配置文件，然后令btnDefault可用 ， 同时调用btnDefault.PerformClick函数
Private Sub frmDbConn_Load是该form启动加载的一些参数，即获取配置文件中的相关信息 ， 同时把信息显示在相关的文本框中 。
VB中注释Public file_name As String'声明全局变量,存储文件名
Private Sub 浏览_Click()'[按钮?]单击事件
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*"'设置通用对话框过滤 xls文件 或 所有文件
CommonDialog1.ShowOpen '显示打开对话框
file_name = CommonDialog1.FileName '得到用户选择的文件名
【关于vb.net中注释代码的信息】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
.net中如何注释代码 快捷键是什么先选中需要注释的行或将光标置于要注释的行的前面 。然后先按CTRL+K,然后按CTRL+C

推荐阅读


上一篇：如何申请做一个电商，如何申请做一个电商公司

下一篇：js的applet调用JAVA目录设置，js调用servlet