VB execl函数 word文档 KBS

文章列表

文章目录

- 1. VB
- 1.1 程序结构
- 1.2 基本语法
- 1.3 数据类型
- 1.4 变量
- - 1.4.1 变量声明
- 1.5 常量和枚举
- - 1.5.1 声明常量
  - 1.5.2 声明枚举
- 1.6 数据库
2. KBS
3. execl函数
- 2.1 分割页面
4. word文档
- 4.1 如何分节
- 4.2 如何删除节
- 4.3 页脚如何自增
- 4.4 多页显示

1. VB

1.1 程序结构

命名空间声明
一个类或模块
一个或多个程序

Imports System  '在程序中包括系统命名空间
Module Module1  VB.Net '完全面向对象，每个程序必须包含一个类的模块，这个类包含程序使用的数据和过程,包含可执行代码，他们定义了类的行为'This program will display Hello WorldSub Main()  '这一行定义了Main过程，它是所有VB.Net程序的入口，Main过程说明了模块或类在执行时将做什么Console.WriteLine("Hello World") 'WriteLine是System命名空间中定义的Console类的一个方法Console.ReadKey() '阻止屏幕启动时快速运行和关闭

1.2 基本语法

Imports System
Public Class RectanglePrivate length As DoublePriavate width As Double'Public methodsPublic Sub AcceptDetails()length = 4.5width=3.5End SubPublic Function GetArea() As DoubleGetArea = length * widthEnd FunctionPublic Sub Display()Console.WriteLine("Length:{0}",length)Console.WriteLine("Width:{0}",width)Console.WriteLine("Area:{0}",GetArea())End SubShared Sub Main()Dim r As New Rectanle()r.AcceptDetails()r.Display()Console.ReadLine()End Sub
End Class

1.3 数据类型

Module DataTypesSub Main()Dim b As ByteDim n As IntegerDim si As SingleDim d As DoubleDim da As DateDim c As CharDim s As StringDim bl As booleanb = 1n = 1234567si = 0.123456778d = 0.123456789da = Todayc = "U"cs = "Me"if ScriptEngine = "VB" Thenbl = trueElsebl = FalseEnd IfIf Bl Then'the oath takingConsole.Write(c & " and," & s & vbCrLf)Console.WriteLine("declaring on the day of: {0}", da)Console.WriteLine("We will learn VB.Net seriously")Console.WriteLine("Lets see what happens to the floating point variables:")Console.WriteLine("The Single: {0}, The Double: {1}", si, d)End IfConsole.ReadKey()End Sub
End module

对象转换

表达式	转换成
CBool	转换成布尔数据类型
CByte	转成字节数据类型
CChar	Char数据类型
CDate	Date数据类型
CDbl	双精度数据类型
CDec	十进制数据类型
CInT	整数数据类型
CLng	长数据类型
CObj	对象类型
CSByte	SByte数据类型
CShort	短数据类型
CSng	单数据类型
CStr	字符串数据类型
CUInt	UInt数据类型
CULng	ULng数据类型
CUShort	UShort数据类型

Module DataTypesSub Main()Dim n As IntegerDim da As DateDim bl As Boolean = Truen = 1234567da = TodayConsole.WriteLine(bl) 'TrueConsole.WriteLine(CSByte(bl)) '-1Console.WriteLine(CStr(bl)) 'TrueConsole.WriteLine(CStr(da)) '21/11/2022Console.WriteLine(CChar(CChar(CStr(n)))) '1Console.WriteLine(CChar(CStr(da)))Console.ReadKey()End Sub
End Module

1.4 变量

1.4.1 变量声明

Dim用于一个或多个变量的变量声明和存储分配

attributelist适用于变量的属性列表。可选的。
accessmodifier定义变量的访问级别。具有Public、Protected、Friend、Protected Friend和Private。可选的。
Shared共享声明一个共享变量，它不与类或结构的任何特定实例相关联，可选的。
Shadows阴影表示变量在基类中重新声明和隐藏一个同名的元素或一组重载的元素。
Static
ReadOnly
WithEvents
Variablelist

1.5 常量和枚举

1.5.1 声明常量

constantname 【As datatype】 = initializer

项目	Value
vbCrLf	回车/换行字符组合
vbCr	回车字符
vbLf	换行字符
vbNewLine	换行字符
vbNullChar	空字符
vbNullString	不等于零长度字符串(“”)，用于调用外部过程
vbObjectError	$1
vbTab	标签字符
vbBack	退格字符

1.5.2 声明枚举

Module constantsEnumEnum Colorsred = 1orange = 2yellow = 3green = 4azure = 5blue = 6violet = 7End EnumSub Main()Console.WriteLine("The Color Red is : " & Colors.red)Console.WriteLine("The Color Orange is : " & Colors.orange)Console.ReadKey()End Sub
End Module

1.6 数据库

创建OraDynaset对象执行SQL命令，我们可以使用DbCreateDynaset来创建记录集。
编辑数据记录：我们使用OraDynaset方法实现对数据记录的编辑；

'通过OO4O连接数据库，通过执行Select语句选择数据
Private Sub DBSelect()  On Error GoTo Err_Rtn  Dim OraSession As OraSession  Dim OraDatabase As OraDatabase  Dim OraDynaset As OraDynaset  Dim result  Dim strSQL  strSQL = "SELECT * FROM HINMST WHERE MAKERCODE = '123'"  'SQL  Set OraSession = CreateObject("OracleInProcServer.XOraSession")    'oo4oObject  Set OraDatabase = OraSession.OpenDatabase("hogesvr", "hogeu/hogep", ORADB_DEFAULT)'连接DB  Set OraDynaset = OraDatabase.CreateDynaset(strSQL, ORADYN_READONLY)  '执行SQL  MsgBox OraDynaset.RecordCount & "件数据被抽出"  While Not OraDynaset.EOF  '循环所有的数据    MsgBox OraDynaset.Fields("NAME").Value '取得相应的列值    OraDynaset.MoveNext    '下一次循环    DoEvents  Wend  Set OraDynaset = Nothing   '释放资源  Set OraDatabase = Nothing '释放资源  Set OraSession = Nothing '释放资源  Exit Sub '=============='  错误处理'==============Err_Rtn:  If (OraSession.LastServerErr <> 0) Then        'OraSession Error    MsgBoxOraSession.LastServerErrText  '表示Error内容    OraSession.LastServerErrReset   '清空Error    Set OraSession = Nothing    '释放资源  ElseIf (OraDatabase.LastServerErr <> 0) Then   'OraDatabase Error    MsgBox OraDatabase.LastServerErrText  '表示Error内容   OraDatabase.LastServerErrReset '清空Error    Set OraDatabase = Nothing   '释放资源    Set OraSession = Nothing   '释放资源  Else   MsgBox Err.Description   '表示Error内容    Set OraDynaset = Nothing '释放资源    Set OraDatabase = Nothing  '释放资源    Set OraSession = Nothing   '释放资源  End IfEnd Sub

Oracle objects for OLE(OO4O)是一组软件层，其设计目的是使微软COM自动化和ActiveX兼容的语言直接访问Oracle数据库，