锐客网

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

vb.net2010案例 vbnet implements

IT技术word

vb.net (2010) 连接access数据库及操作代码 （读取 写入 创建新表）【解决后再加50分】由于 没有VS2010，只能简单写几句代码 。用ODBC连接数据比较方便 ， 你首先要引用system.data和system.data.odbc
dim cn as odbcconnection
cn=new odbcconnection("driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=数据库路径\数据库名.mdb")
dim tsql as string
tsql="select username from [user]"
dim od as odbcdataadapter
dim ds as dataset=new dataset
od=new odbcdataadapter(tsql,cn)
od.fill(ds)
listbox.items.clear
for i=0 to ds.tables(0).rows.count-1
listbox.items.add(ds.tables(0).rows(i),i)
next i
大概是这样的，希望能对你有所帮助 。
vb.net 2010 调用word程序 打开一个word文档1 使用Shell函数直接调用
语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字 。
使用Shell调用Word比较简单，编程量?。?但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换 。
2 使用OLE自动化控制Microsoft Word
2.1 使用方法
（1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object
(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同 。
(4)关闭Word:Set Wordobj =Nothing 。
注意：“Basic”对象不支持关闭它自己的一个方法 。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错 。
2.2 VB指令与WordBasic指令的差异
(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数 。
(2)也有一些指令使用方法不同 。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中 。例如 ， 在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address") 。②选择一个命令按钮用“True”,不选择用“False”
2.3 对OLE自动化的说明
Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象 。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们 。
3 在包容器中嵌入Word对象
在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象 。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定” 。
然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它 。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件 。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面 ， 使用方法同OLE自动化 。使用在包容器中嵌入的Word对象 ， Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离 。这一点与OLE自动化相比，是个不足 。
总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便 。
VB.net（VS2010）读写Excel2010你可以使用
Private Sub Form_Load()
Dim a As Object
Dim b As Object
Dim c As Object
Set a = GetObject(, "Excel.Application")
Set b = a.WorkBooks.open(Path"\工作簿1.xlsx")
a.Visible = False
Set c = b.worksheets(1)

End Sub
要引用：microsoft activex data objects 2.5 library
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Excel Files;DBQ="App.Path"\Book1.xlsx;DriverId=1046;FIL=excel 8.0"""
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from [sheet1$]", cnn
Set Me.MSHFlexGrid1.DataSource = rs
End Sub
vb.net一键关闭显示器Public Class Form1
System.Runtime.InteropServices.DllImport("user32.dll") _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
Const SC_MONITORPOWER As Integer = HF170
Const WM_SYSCOMMAND As Integer = H112
Private Enum MonitorMode As Integer
[ON] = -1
STANBY = 1
OFF = 2
End Enum
Private Sub ChangeMonitorState(ByVal mode As MonitorMode)
SendMessage(-1, WM_SYSCOMMAND, SC_MONITORPOWER, CInt(mode))
End Sub
Private Sub Off()
ChangeMonitorState(MonitorMode.OFF)
End Sub
Private Sub [On]()
ChangeMonitorState(MonitorMode.[ON])
End Sub
Private Sub StandBy()
ChangeMonitorState(MonitorMode.STANBY)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Off()
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then [On]()
End Sub
End Class
按button1按钮关闭显示器，按Esc键打开显示器
2010VB.net 如何一直读取TXT文档最后一行信息，麻烦给个代码，谢谢首先在代码的开头引入命名空间：
Imports System.IO
给出三个读文本文件的例子 。
'直接读取所有文本
Dim fileString As String = File.ReadAllText("1.txt")
'把所有行弄进一个数组
Dim fileLines() As String = File.ReadAllLines("1.txt")
'以流的方式一行一行读取
Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
Using sr As New StreamReader(fs) '初始化流读取器
Dim lineString As String = ""
While Not sr.EndOfStream '循环直到流结束
lineString = sr.ReadLine() '读一行
'这里lineString就是每行的文件内容了 。
'你可以在这里对它进行处理 。
End While
End Using
End Using
vb.net程序（VS2010开发）中如何嵌入百度地图?求编程大神指导这个说简单也简单，百度google都有自己的地图接口 ， 去找一下接口调用说明，里面都有案例 。在程序里面调用即可 。至于调用后具体的功能则需要查询接口函数 。我以前做过google的，百度的实际上也是一样
【vb.net2010案例 vbnet implements】关于vb.net2010案例和vbnet implements的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：wordpress配置163邮箱，wordpress用什么邮箱注册

    下一篇：js将两个数组的结果相加，js将两个数组合并为一个数组