没有边框的对话框？ （访问xp） [英] dialog box with no border? (access xp)
问题描述
嘿所有，
在运行一些代码时，我想打开一个表单作为对话框（所以
代码将会等待表单被关闭/隐藏 - 使用acDialog参数很容易做到
），但我希望这个表单没有
BORDER。这有可能吗？表格打开后，可以从自己的边框上剥离吗？
????
-Tom
2003年12月20日00:48:44 -0800，tom写道：
在运行一些代码时，我想打开一个表单作为对话框（所以
代码将等待表单被关闭/隐藏 - 很容易做
使用acDialog参数），但我希望这个表格没有
BORDER。这有可能吗？打开后，表格可以从自己的边框上剥离吗？
如果你有一个特殊的表格，你可以设置
BorderStyle-property相应来自表单''的属性表。
如果你需要使用从某个地方调用时需要边框的表单
else，你必须在调用之前更改表单，例如：
dim strFormName as string
dim lngOrgStyle as很长
strformname =" NameOfFormHere"
''存储原始状态，更改为''无''
domcmd.openform _
formname：= strformname，_
查看：= acdesign，_
windowmode：= achidden
lngorgstyle = forms（strformname）.borderstyle
表格（strformname）.borderstyle = 0
docmd.close acform，strformname，acsaveyes
domcmd.openform _
formname：= strformname，_
windowmode：= acdial og
''你的行动在这里
[...]
''恢复原始风格
domcmd.openform _
formname：= strformname，_
view：= acdesign，_
windowmode：= achidden
表格（strformname）.borderstyle = lngorgstyle
docmd.close acform，strformname，acsaveyes
end sub
查看我的网站上的请坚持...... - 样本，也许这就是你要找的那些
..？
干杯，
奥拉夫[MVP]
-
我的.02： www.Resources.IntuiDev.com
有您打开的表单的属性称为边框样式 - 设置它
到''没有''
欢呼
paul g
汤姆 < to*@nuws.com>在留言中写道
news：c1 ************************** @ posting.google.c om ...嘿所有，
在运行一些代码时，我想打开一个表单作为对话框（所以
代码将等待要关闭/隐藏的表单 - 使用acDialog参数很容易做到
，但我希望这个表单没有
BORDER。这有可能吗？打开后，表格可以脱离自己的边框吗？
????
-Tom
Olaf，
问题是，当您以acDialog打开表单时，将忽略
BorderStyle属性。对吗？
-Tom''存储原始状态，更改为''无''
domcmd.openform _
formname ：= strformname，_
view：= acdesign，_
windowmode：= achidden
lngorgstyle = forms（strformname）.borderstyle
forms（strformname）.borderstyle = 0
docmd.close acform，strformname，acsaveyes
domcmd.openform _
formname：= strformname，_
windowmode：= acdialog
Hey All,
While running some code, I''d like to open a form as a dialog box (so
that the code will wait for the form to be closed/hidden -- easy to do
using the acDialog argument), but I would like this form to have NO
BORDER. Is this possible in any way? Can the form, upon opening, strip
off its own border?
????
-Tom
Hi,
On 20 Dec 2003 00:48:44 -0800, tom wrote:
While running some code, I''d like to open a form as a dialog box (so
that the code will wait for the form to be closed/hidden -- easy to do
using the acDialog argument), but I would like this form to have NO
BORDER. Is this possible in any way? Can the form, upon opening, strip
off its own border?
if you can have a special form for that, you may set the
BorderStyle-property accordingly from the form''s property-sheet.
If you need to use a form that needs its border when called from somewhere
else, you''d have to change the form prior to calling, with something like:
dim strFormName as string
dim lngOrgStyle as long
strformname="NameOfFormHere"
''store original state, change to ''None''
domcmd.openform _
formname:=strformname, _
view:=acdesign , _
windowmode:=achidden
lngorgstyle=forms(strformname).borderstyle
forms(strformname).borderstyle=0
docmd.close acform,strformname,acsaveyes
domcmd.openform _
formname:=strformname, _
windowmode:=acdialog
''your actions here
[...]
''restore original style
domcmd.openform _
formname:=strformname, _
view:=acdesign , _
windowmode:=achidden
forms(strformname).borderstyle=lngorgstyle
docmd.close acform,strformname,acsaveyes
end sub
Check out the "Please hold on ..."-sample on my website, maybe that''s what
you''re looking for ..?
Cheers,
Olaf [MVP]
--
My .02: www.Resources.IntuiDev.com
there is a property for the form that you open call "border style" - set it
to ''none''
cheers
paul g
"tom" <to*@nuws.com> wrote in message
news:c1**************************@posting.google.c om...Hey All,
While running some code, I''d like to open a form as a dialog box (so
that the code will wait for the form to be closed/hidden -- easy to do
using the acDialog argument), but I would like this form to have NO
BORDER. Is this possible in any way? Can the form, upon opening, strip
off its own border?
????
-Tom
Olaf,
The problem is that when you open a form as acDialog, the
BorderStyle property is ignored. Right?
-Tom''store original state, change to ''None''
domcmd.openform _
formname:=strformname, _
view:=acdesign , _
windowmode:=achidden
lngorgstyle=forms(strformname).borderstyle
forms(strformname).borderstyle=0
docmd.close acform,strformname,acsaveyes
domcmd.openform _
formname:=strformname, _
windowmode:=acdialog
这篇关于没有边框的对话框？ （访问xp）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
