2023年11月23日发(作者:)

1

不可识别的数据库格式

0

当使用控件和数据库连接时,(数据库格式是),解决:

0

Option Explicit

0

0

Private daoDB36 As Database

Private rs As set

Dim sPath As String

sPath = "e:"

0

0

0

0

0

Set daoDB36 = DBEngine(0).OpenDatabase(sPath)

Set rs = cordset("myset")

Set set = rs

11、对话框

0

0

0

工程—部件—microsoft common dialog control

0

使用指定的方法,CommonDialog控件能够显示下列对话:

0

ShowOpen 显示一个打开对话框 ShowSave 显示一个另存为对话框

ShowColor 显示一个颜色对话框 ShowFont 显示一个字体对话框

ShowPrinter 显示一个打印打印机设置对话框

ShowHelp

调用Windows帮助引擎显示一个标准的帮助窗口

一、ShowOpen方法的使用

应用程序需要打开文件时使用ShowOpen方法。在使用该方法之前应先设置打开文件所定位的驱动器和目录,

同时设置打开的文件类型。属性如下:

DialogTitle

打开对话框的窗口标题,类型为字符型(String)

Filter

要打开的文件类型及显示的文件过滤方式,类型为字符型(String)

MaxFileSize

要打开的文件名的最大长度,类型为整型(Integer,最大32K字节,256字节)

Initdir

要打开的文件所在的目录,类型为字符型(String)

Filename

确认后返回的带全路径的文件名,包括后缀,类型为字符型(String)

Filetitle

确认后返回的不带路径的文件名,包括后缀,类型为字符型(String)

注意:在每次使用该方法之前应重新设置Filename属性值,这样当按下确认按钮时返回要打开的文件名,按下

取消按钮时返回的是重新设置的Filename属性值,否则按下取消按钮时返回的是上一次使用该方法时设置的

Filena

me属性值

二、ShowSave方法的使用

应用程序需要将文件换名存盘时使用ShowOpen方法。在使用该方法之前应先设置保存文件的驱动器和目录。

属性如下:

DialogTitle

0

另存为对话框的窗口标题,类型为字符型(String)

Filter

要保存的文件类型及显示的文件过滤方式,类型为字符型(String)

Initdir

要保存的文件名所在的目录,类型为字符型(String)

Filename

确认后返回的带全路径的文件名,类型为字符型(String)

Filetitle

确认后返回的不带路径的文件名,类型为字符型(String)

注意:在每次使用该方法之前应重新设置Filename属性值,这样当按下确认按钮时返回要打开的文件名,按

取消按钮时返回的是重新设置的Filename属性值,否则按下取消按钮时返回的是上一次使用该方法时设置

File

name属性值。

三、ShowColor方法的使用

当应用程序需要选取某种颜色时使用该对话框。属性如下:

Color

返回所选取的颜色值,类型为长整型(Long Integer),可以设置其Flags属性以获得某些特性,Flags可以设置如下

值:

cdCClFullOpen

&H2

显示全部的对话框,包括定义自定义颜色部分

CdlCCShowHelpButton

&H8

使对话框显示帮助按钮

CdlCCPreventFullOpen

&H4

使定义自定义颜色命令按钮无效以禁止定义自定义颜色

CdlCCRGBInit

&H1

为对话框设置初始颜色值

四、ShowFont方法

当应用程序需要选取某种字体时使用该对话框。属性如下:

FontName

返回所选取的字体名称,类型为字符型(String)

FontBold

返回所选取的字体是否为粗体,类型为逻辑型(Boolean)

FontItalic

返回所选取的字体是否为斜体,类型为逻辑型(Boolean)

FontUnderline

返回所选取的字体是否下划线,类型为逻辑型(Boolean)

FontStrikethru

返回所选取的字体是否删除线,类型为逻辑型(Boolean)

FontSize

返回所选取的字体大小,类型为整型(Integer,最大2160)

由于Windows95中的字体有打印字体和屏幕显示字体之分,要使用该对话框,

必须在使用前设置Flags属性来决定选取何种字体。Flags属性必须使用下列值之

一:

Flags属性值

对应的常数

说明

&H3

cdlCFBoth

字体对话框显示所有Windows95可用的屏幕显示字体和打印字体

&H2

cdlCFPrinterFonts

只显示可用的打印字体

&H1

cdlCFSereenFonts

只显示可用的显示字体

如果要选取字体的效果特性,还必加上&H100数值或常量cdlCFEffects,用来指定对话框允许选择删除线,下划

线,以及颜色效果。如果不设置Flags,将会显示一个消息框,提示系统没有安装字体。具体见后面举例。

五、ShowPrinter方法

该方法显示一个打印打印机设置的标准对话框,究竟显示哪一个由Flags属笥的值来控制。当Flags属性

值为&H40(对应的常量为cdlPDPrintSetup),系统显示的是打印机设置对话框而不是打印对话框。

六、ShowHelp方法

当应用程序需要调用Windows95API函数来显示帮助时,可以使用该方法打开一个标准的Windows帮助窗口。

使用该方法之前必须设置帮助文件的名称。属性如下:

说明

HelpCommand

设置帮助的类型,类型为整型(Integer)

HelpFile

设置应用程序的帮助文件名称,后缀为hlp,可以使用Microsoft Help编译器和Microsoft Word创建帮助文件,类型

为字符型(String)

最后举例说明标准对话框的使用。

先建立一个长60004700的窗体,Caption属性为标准对话框举例StartUpPosition属性选择2-CenterScreen

然后在窗体上建立一组8个命令按钮的控制数组,Name属性为Command1,Caption属性分别为打开另存为

字体打印打印机设置颜色帮助退出Index分别为01234567,再建立一组7

个标签的控制灵敏组,Name属性为Labell,Caption属性均为空字符,Index属性分别为0123456,分

别放

置在Command1的右侧。再将Microsoft Common Dialog控件加入到工具箱中,在窗体上建立一个Commondialog

控件,其Name属性为Commondialog1。在Command1_Click()事件中填写如下代码:

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Title=“打开文件

me=""

="*.TXT|*.TXT"

r="C:"

en

Labell(0).Caption="选择打开的文件为:"+me

Case 1

Title=“文件另存为

me=""

="*.TXT|*.TXT"

r="C:"

ve

Labell(1).Caption="选择保存的文件为:"+me

Case 2

Title=“选择字体

=cd lCFBoth+cd1cfeffexects

nt

label1(2).Font=me

label1(2).fontbold=rd

Label1(2).fontItalic=alic

Label

0

0

seName = & ""

h

With set

0

.Fields("班级") =

.Fields("学号") =

.Fields("姓名") =

.Fields("性别") =

.Fields("出生日期") =

.Fields("联系电话") =

.Fields("家庭住址") =

.Fields("工作单位") =

.Fields("单位电话") =

.Fields("收费情况") =

.AddNew

0

0

0

0

0

0

.Fields("传呼") =

.Update

End With

0

0

0

0