发信人: msnet()
整理人: jinhu(1999-06-22 21:37:52), 站内信件
|
编者的话
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
大家好！
VB邮件在各位网友的热情支持与关心下正在茁壮成长，
为了使这一邮件列表办得更好，我们期侍各位热情投稿，
稿件可以涉及与VB、ASP有关的内容。
如果你有好的作品或你发现了好的作品，不要忘了让
大家共享。
版主 冯德平
[email protected]
=================================================
vb邮件（5.18）
a如何强制文件对话框再次读取正确的磁盘?
如果构造了一个以通用对话框为模型的简单对话框(通常应使用通用对话框的
OCX),会发现再次选择软盘驱动器并不实际.再次读盘,改变到C盘,并再次选择A盘
.只是使它读新软盘中的目录.
为了解决这个问题,在一个按钮的代码段中加入以下代码:
drive1.refresh
dir1.refresh
file1.refresh
b 如何让文本框输入完后,直接跳入下一行?
我们在编制程序的时候，特别是数据库软件，经常会遇到这样一个问题：在
文本框中输入完后，用户习惯性的按下回车键。但是系统“嘀”的一声，并没有
象想象那样跳入下一行或者其他的什么。那么能不能让程序在输入完后干其他的
事呢？试一试下面的代码吧。
Sub Text1_keyPress(KeyAscii As Integer)
If KeyAscii=13 Then
SendKeys"{tab}"
End If
End Sub
c VB5.0中标准对话框控件的使用
------------------------------------------------------
标准对话框是指在Windows 95中进行标准操作时系统显示的对话框，包括“
打开文件”、“另存为”、“打印或打印机设置”、“选取字体”、“选取颜色
”和“标准帮助窗口”。
在VB5.0中，要想在应用程序中能够进行这些标准操作，不必自己编辑这些窗
口，可以直接利用VB5.0的Microsoft Common Dialog控件来实现，该控件对应的
文件名为Comdlg32.OCX,可以在Windows95的System子目录下找到该文件。由于该
控件不是VB5.0的内部控件，因此要想在VB中利用它，必须在工具箱中添加该控件
标准对话框包括六种常用的类型，但是控件只有一个，VB5.0根据控件使用的方法
来决定显示的是何种对话框。该控件的使用方法有六种，分别是ShowOpen, Show
Save, ShowColor, ShowFont, ShowPrinter, ShowHelp。使用不同的方法就可以
显示不同的对话框。使用各种方法之前应先设置其各项属性值以决定显示的是什
么对话框，以及每一种对话框具有何种特性。
使用指定的方法，CommonDialog控件能够显示下列对话：
方法
所显示的对话框
ShowOpen
显示一个“打开”对话框
ShowSave
显示一个“另存为”对话框
ShowColor
显示一个“颜色”对话框
ShowFont
显示一个“字体”对话框
ShowPrinter
显示一个“打印”或“打印机设置”对话框
ShowHelp
调用Windows帮助引擎显示一个标准的帮助窗口
一、ShowOpen方法的使用
应用程序需要打开文件时使用ShowOpen方法。在使用该方法之前应先设置打
开文件所定位的驱动器和目录，同时设置打开的文件类型。属性如下：
属 性
说 明
DialogTitle
“打开”对话框的窗口标题，类型为字符型(String)
Filter
要打开的文件类型及显示的文件过滤方式，类型为字符型(String)
MaxFileSize
要打开的文件名的最大长度，类型为整型(Integer,最大32K字节，256字节)
Initdir
要打开的文件所在的目录，类型为字符型(String)
Filename
按“确认”后返回的带全路径的文件名，包括后缀，类型为字符型(String)
Filetitle
按“确认”后返回的不带路径的文件名，包括后缀，类型为字符型(String)
注意：在每次使用该方法之前应重新设置Filename属性值，这样当按下“确认
”按钮时返回要打开的文件名，按下“取消”按钮时返回的是重新设置的Filena
me属性值，否则按下“取消”按钮时返回的是上一次使用该方法时设置的Filena
me属性值。
二、ShowSave方法的使用
应用程序需要将文件换名存盘时使用ShowOpen方法。在使用该方法之前应先
设置保存文件的驱动器和目录。属性如下：
属 性
说 明
DialogTitle
“另存为”对话框的窗口标题，类型为字符型(String)
Filter
要保存的文件类型及显示的文件过滤方式，类型为字符型(String)
Initdir
要保存的文件名所在的目录，类型为字符型(String)
Filename
按“确认”后返回的带全路径的文件名，类型为字符型(String)
Filetitle
按“确认”后返回的不带路径的文件名，类型为字符型(String)
注意：在每次使用该方法之前应重新设置Filename属性值，这样当按下“确
认”按钮时返回要打开的文件名，按下“取消”按钮时返回的是重新设置的File
name属性值，否则按下“取消”按钮时返回的是上一次使用该方法时设置的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时(对应的常量为cdlPDPrintSet
up)，系统显示的是“打印机设置”对话框而不是“打印”对话框。
六、ShowHelp方法
当应用程序需要调用Windows95的API函数来显示帮助时，可以使用该方法打
开一个标准的Windows帮助窗口。使用该方法之前必须设置帮助文件的名称。属性
如下：
属 性
说明
HelpCommand
设置帮助的类型，类型为整型(Integer)
HelpFile
设置应用程序的帮助文件名称，后缀为hlp,可以使用Microsoft Help编译器和M
icrosoft Word创建帮助文件，类型为字符型(String)
最后举例说明标准对话框的使用。
先建立一个长6000宽4700的窗体，其Caption属性为“标准对话框举例”，S
tartUpPosition属性选择2-CenterScreen，然后在窗体上建立一组8个命令按钮的
控制数组，Name属性为Command1,Caption属性分别为“打开”，“另存为”，“
字体”，“打印”，“打印机设置”，“颜色”，“帮助”，“退出”，Index分
别为0，1，2，3，4，5，6，7，再建立一组7个标签的控制灵敏组，Name属性为L
abell,Caption属性均为空字符，Index属性分别为0，1，2，3，4，5，6，分别放
置在Command1的右侧。再将Microsoft Common Dialog控件加入到工具箱中，在窗
体上建立一个Commondialog控件，其Name属性为Commondialog1。在Command1_Cl
ick()事件中填写如下代码：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
CommonDialogl.DialogTitle=“打开文件”
CommonDialogl.filename=""
CommonDialogl.Filter="*.TXT|*.TXT"
CommonDialogl.InitDir="C:\"
CommonDialogl.ShowOpen
Labell(0).Caption="选择打开的文件为："+CommonDialogl.filename
Case 1
CommonDialogl.DialogTitle=“文件另存为”
CommonDialogl.Filename=""
CommonDialogl.Filter="*.TXT|*.TXT"
ConmmonDialogl.InitDir="C:\"
CommonDialogl.ShowSave
Labell(1).Caption="选择保存的文件为："+CommonDialogl.filename
Case 2
CommonDialogl.DialogTitle=“选择字体”
CommonDialogl.Flags=cd lCFBoth+cd1cfeffexects
CommonDialogl.showFont
label1(2).Font=common1.fontname
label1(2).fontbold=commonDial1.fontbord
Label1(2).fontItalic=CommonDialog1.FontItalic
Label
=============================================
问题征答
我正在一个小系统,其中有一MDI父窗口form1,
另有一普通窗口form2.现在我想通过修改一属性,而能
以MdICHILD or not MDICHILD俩种方式调用form2,但
MDICHILD属性在程序中不可以修改,有没有什么方法可
以让一普通form变成一MDI form的子窗口.
老板催得紧,我非常想知道答案.
万分感谢!!!
=============================================
欢迎投稿 [email protected]
主 页 goodvbhome.yeah.net
=============================================
订阅请到如下地址：
http://server.com/WebApps/mail-list-subscribe.cgi?id=16852
=============================================
--
网站主页地址：http://home.hn.cninfo.net/home/msnet
网易上的主页地址：http://www4.netease.com/~aaaaaaaaa
本网站主页镜像地址：http://goodvbhome.yeah.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.45.130]
|
|