你说这么一大篇全是业务逻辑，没说明你遇到的技术性问题在哪
创新互联公司专注于源汇网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供源汇营销型网站建设，源汇网站制作、源汇网页设计、源汇网站官网定制、小程序设计服务，打造源汇网络公司原创品牌,更为您提供源汇网站排名全网营销落地服务。
.net自带的config文件来配置连接字符串，比ini好N倍，如果你非要用ini那么自己解决问题
检测是否能连接用Connection.Open加try catch就可以
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
Label1.Text = "鼠标离开图片"
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
Label1.Text = "鼠标进入图片"
Text1.Text = e.X
Text2.Text = e.Y
End Sub
'vb.net获取鼠标位置很容易,都不用声明API,直接在事件里获取就行了
oledb的使用网上的确很多.\x0d\x0a如果只是查询. 写入. 删除,我们常用的就是\x0d\x0aOleDbConnection '用于写数据库的连接\x0d\x0aOleDbCommand '用于数据的操作 接收SQL语句 并执行\x0d\x0aOleDbDataReader '查询了,我们就用这个类来读取查询的对象\x0d\x0a1).OleDbConnection \x0d\x0a dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样 \x0d\x0a 查询前在打开 \x0d\x0a conn.open\x0d\x0a 2).OleDbCommand \x0d\x0a dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除\x0d\x0a '''\x0d\x0a如果是查询,你还要用到OleDbDataReader \x0d\x0a 这个是不用新建的不能用New \x0d\x0adim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容\x0d\x0acmd.ExecuteNonQuery用于执行操作 返回变动的条数 ,一般用于 添加 删除 更新 等其它操作\x0d\x0a \x0d\x0a其实就这些了,就是要学点SQL语句就行了.\x0d\x0a标准执行过程就是\x0d\x0a Dim conn As New OleDbConnection("连接字符串")\x0d\x0a conn.Open()\x0d\x0a Dim cmd As New OleDbCommand("SQL语句", conn)\x0d\x0a '如果是写入 更新 删除 则\x0d\x0a cmd.ExecuteNonQuery()\x0d\x0a 否则\x0d\x0a Dim rd As OleDbDataReader = cmd.ExecuteReader\x0d\x0a \x0d\x0a If rd.Read Then\x0d\x0a Dim d As Object = rd.Item("字段名")\x0d\x0a End If\x0d\x0a 结束如果\x0d\x0a rd.Close()\x0d\x0a cmd.Dispose()\x0d\x0a conn.Close()\x0d\x0a \x0d\x0a上面要有 Imports System.Data.OleDb
调用过程，调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面说明如何调用 Sub 过程和 Function 过程。
调用 Sub 过程
与 Sub 过程不同，在表达式中，Sub 过程不能用其名字调用。调用 Sub 过程的是一个独立的语句。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。
调用 Sub 过程有两种方法：
'以下两个语句都调用了名为 MyProc 的 Sub 过程。
Call MyProc (FirstArgument, SecondArgument)
MyProc FirstArgument, SecondArgument
注意，当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号
调用函数过程
通常，调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程（例如 Abs）的方法一样；即在表达式中写上它的名字。
'下面的语句都调用函数 ToDec。
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print "Out of Range"
X = AnotherFunction ( 10 * ToDec)
就像调用 Sub 过程那样，也能调用函数。下面的语句都调用同一个函数：
Call Year (Now)
Year Now
当用这种方法调用函数时，Visual Basic 放弃返回值。
调用其它模块中的过程
在工程中的任何地方都能调用其它模块中的公用过程。可能需要指定这样的模块，它包含正在调用的过程。调用其它模块中的过程的各种技巧，取决于该过程是在窗体模块中、类模块中还是标准模块中。
窗体中的过程
所有窗体模块的外部调用必须指向包含此过程的窗体模块。如果在窗体模块 Form1 包含 SomeSub 过程，则可使用下面的语句调用 Form1 中的过程：
Call Form1.SomeSub(arguments)
类模块中的过程
与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如，DemoClass 是类 Class1 的实例：
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符。必须首先声明类的实例为对象变量（在这个例子中是 DemoClass ）并用变量名引用它。
标准模块中的过程
如果过程名是唯一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个唯一过程。如果过程仅出现在一个地方，这个过程就是唯一的。
如果两个以上的模块都包含同名的过程，那就有必要用模块名来限定了。在同一模块内调用一个公共过程就会运行该模块内的过程。例如，对于 Module1 和 Module2 中名为 CommonName 的过程，从 Module2 中调用 CommonName 则运行 Module2 中的 CommonName 过程，而不是 Module1 中的 CommonName 过程。
从其它模块调用公共过程名时必须指定那个模块。例如，若在 Module1 中调用 Module2 中的 CommonName 过程，要用下面的语句：
Module2.CommonName (arguments)
Public 用于声明对所有模块中的所有其它过程都可以使用的过程。
Private 用于声明只能在包含该声明的模块中使用的过程。
将模块中的过程写为Public,在调用
比如模块中:
Public Sub text()
......
End Sub
主窗体调用代码:
Call text()
1 打开Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 设定第二个工作表为活动工作表myexcel.worksheets(2).Acivate()
4 打开指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 显示Excel窗口myexcel.visible=true
6 更改Excel的标题栏myexcel.caption=“欢迎,欢迎!”
7 为Excel的单元格赋值myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range(“D1”).value=100
8 设置指定列的宽度(单位:字符个数)myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20
9 设置指定行的高(单位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米设置第1行的高度为1CM
10 插入分页符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分页符
11 删除分页符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前删除分页符
12 指定边框线的宽度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders参数指定单元格边框的位置:1:左 2:右 3:顶 4:底 5:斜\ 6:斜/
13 指定边框线条的类型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此语句将当前工作表的B1:D3单元格的右边框设置为实线 linestyle参数: 1:细实线 2:细虚线 3:点虚线 4:双细实线
14 设置页脚myexcel.activesheet.pagesetup.centerfooter=“第p页” 注意:设置页眉页脚时要保证计算机上装有打印机,否则出错!
15 设置页眉myexcel.activesheet.pagesetup.centerfooter=“第p页”
16 设置页眉到顶断距离为2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 设置页脚到底端距离为2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 设置顶边边距为2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035
19 设置底边边距为2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 设置左边边距为2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 设置右边边距为2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 设置页面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true
23 设置页面垂直居中myexcel.activesheet.pagesetup.Centervertically=true
24 设置页面纸张大小 (1,窄行8.511 ;39 ,宽行1411) myexcel.activesheet.pagesetup.papersize=1
25 打印单元格网格线 myexcel.activesheet.pagesetup.PrintGridlines=true
26 复制整个工作表 myexcel.activesheet.Usedrange.Copy
27 复制指定区域 myexcel.activesheet.range(“a1:b5”).Copy
28 粘贴 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial
29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 单元格 myexcel.Activesheet.Range(“C4:D4”).Merge()
32 自动调整第2列列宽 myexcel.activesheet.Columns(2).AutoFit
33 设置字体myexcel.Activesheet.cells(2,1).font.name=“黑体”
34 设置字体大小myexcel.Activesheet.cells(2,1).font.size=25
35 设置字体为斜体 myexcel.Activesheet.cells(2,1).font.Italic=true
36 设置字体为粗体 myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除单元格内容myexcel.activesheet.cells(2,1).ClearContents
38 打印预览工作表myexcel.Activesheet.PrintPreview
39 打印工作表 myexcel.Activesheet.Printout
40 工作表另存为myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)
41 放弃存盘 myexcel.ActiveWorkbook.saved=false
42 关闭工作簿 myexcel.Workbooks.close
43 退出 Excel myexcel.quit
44 纸张横向：myexcel.activesheet.PageSetup.OrientaTion=2（1纵向）
45 单元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向
打开CSDN APP，看更多技术内容
VB调用Excel软件实现打印预览功能
摘要:VB源码,报表打印,打印预览VB调用Excel软件实现打印预览功能，可以插入折线图，VB打印预览功能示例源码，分享给大家参考。
用vb操作EXCEL打印报表
最近使用vb来打印报表,打印出来的EXCEL一直无法上传到ftp 反复多次问题都没解决, 200 PORT command successful. Consider using PASV. 问题出在这,由于win10的防火墙的原因,关闭防火墙后问题得到解决. 转载于:...
继续访问
VB操作excel 格式设置及打印页面设置（精简）
langue：VB Set ExcelApp = CreateObject("Excel.Application") ’创建资源，建立连接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...
继续访问
vb.net excel操作：填充人事档案表并打印
节选自：《Visual Basic.Net 循序渐进》【例 21.7】【项目：code21-007】填充人事档案表并打印。 本例使用到的Excel文件为：职员信息登记表.xlsx，如下图所示： 图21-10 职员信息登记表 窗体设计如下图所示（注意：为了演示方便，已经填充了数据）： 图21-11 窗体设计 在本例中还需要掌握的知识： 1、插入图片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
继续访问
vb.net操作Excel常用命令
转载: 首先,须在项目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （这是EXCEL2000） 1 打开Excel： dim myexcel as new Excel.Application() myexcel.visib...
继续访问
vb.net 如何实现报表打印_Excel如何实现分类别打印？创建组轻松实现
有朋友咨询个关于Excel打印数据问题，他的需求是这样的：下表中是某公司人员信息表，现在领导要求将表格分部门打印出来，每位员工核对个人信息并签字。需求很明确，就是将相同部门的人员打印到一张纸上。打印很简单，难点在于如何按每个部门去打印？如果部门较少的话可以将不同部门复制到不同插页中，再进行打印；但是如果部门较多的话，这种办法实在不可取；有小伙伴表示可以利用VBA技术将部门拆分到各个插页，在进行打印...
继续访问
最新发布 vb.net 教程 11-1 打印组件 3 PageSetupDialog
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 本节谈谈另外一个有关打印的对话框：PageSetupDialog，页面设置对话框 实际我们是通过这个对话框获得PageSetting，关于PageSetting在上一节有部分介绍，请参看 vb.net 教程 11-1 打印组件 PrintDialog 2 注意的是，使用PageSetupDialog需要绑定一个PrintDocument，在PageSetupDialog的Document属性处
继续访问
VB.NET使用EXCEL常见操作
首先,须在项目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打开Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad
继续访问
【VB Excel】VB 操作Excel基本步骤
VB操作EXCEL,实现数据读取 1、定义Excel操作变量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打开Excel进程，并打开目标Exc...
继续访问
vba代码编程800例_如何设置Excel打印格式，学会这个VBA对象就可以随心所欲
NO.1 Excel如何设置打印格式使用vba可以做打印格式处理，如何做一个漂亮的打印页面，不外乎要设置打印表格的边框、版式、页眉、页角等等。那么怎样设置这些格式呢？NO.2 PageSetup对象vba编程用到Pagesetup对象，对表格打印进行设置。PageSetup对象有许多属性，下面图片里列出了大部分常用的属性，可以对照进行设置。具体方法下面举个例子来展示一下最终效果。PageSetup...
继续访问
vb.net操作excel文件
[转自] vb.net操作excel文件 要求将数据显示在Excel表中，并且要设好数据格式。虽说如此，真正实现了自己的功能，还是费了不少时间。相信还是有很多与我相似的人需要实现这种功能。那就做个小结吧。不妥之处，请指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要访问excel的过程中定义 dim exapp as excel.a
继续访问
VB.net使用PrintForm打印窗体
在VS2010中内置了了一个PowerPacks的扩展包,果然很好用啊,可以直接打印窗体内容 先从"工具箱"中拖一个PrintForm到设计好的窗体中 然后在窗体里加了个打印的按钮,对应代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
继续访问
热门推荐 开源:.NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现与应用(2)
!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_
继续访问
vb.net 设置打印纸张与页边距_机关公文格式设置规范(最新整理版)
本方法根据《党政机关公文格式国家标准》(GB/T9704-2012)制定。具体内容如下：一、办公软件要求适用于微软OFFICE—WORD文字处理软件。二、页面设置1.选择“文件”——“页面设置”选择“页边距”附签，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.选择“纸张”附签，“纸张大小”设成“A4”。3.选择“版式”附签，将“页眉和页脚”设置成“奇偶页不同”,在该...
继续访问
VB.NET EXCEL 操作
重庆分公司
重庆分公司
