查看: 1190|回复: 15
|
请教 MS Access 2000 user interface design
[复制链接]
|
|
请问在Access 2000 里,怎样做open file 的 button ? 就好象Open button 那样,click就list out all file in a folder.然后可以select file. |
|
|
|
|
|
|
|
发表于 2-5-2005 09:55 PM
|
显示全部楼层
假设你弄好你的 command button, 在你的 command button 的 on click event 放 [Event Procedure].
然后在里面放:
Dim fx As CommonDialog
Set fx = New CommonDialog
fx.ShowSave |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 3-5-2005 09:04 AM
|
显示全部楼层
|
|
|
|
|
|
|
发表于 3-5-2005 09:10 AM
|
显示全部楼层
就在你的 Access Event Procedure coding 里.
直接用 code 来写. |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 3-5-2005 10:12 AM
|
显示全部楼层
我是指这个
Dim fx As CommonDialog
当我dim 这个 fx as commondialog时, 我看不到commondialog在list里面。 |
|
|
|
|
|
|
|
发表于 3-5-2005 12:01 PM
|
显示全部楼层
忘了说, 你需要从 ActiveX 选项那里加入这个 Control. ![](static/image/smiley/default/smile.gif) |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 4-5-2005 10:47 AM
|
显示全部楼层
你可以给我那个ActiveX control 的名字吗?
加了然后要怎样add control ? |
|
|
|
|
|
|
|
发表于 4-5-2005 02:13 PM
|
显示全部楼层
那是 Microsoft Common Dialog 6.
直接选择了就算是加了, 你可以点在 form 上面, 变成一个 control. |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 4-5-2005 02:31 PM
|
显示全部楼层
我的PC没有这个ActiveX control, 如何加进去 |
|
|
|
|
|
|
|
发表于 4-5-2005 03:03 PM
|
显示全部楼层
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 5-5-2005 11:55 AM
|
显示全部楼层
加了,不过它说
'You don't have license required to use this ActiveX Control.'
怎么办? |
|
|
|
|
|
|
|
发表于 5-5-2005 01:47 PM
|
显示全部楼层
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 6-5-2005 11:32 AM
|
显示全部楼层
试过了,还是不行。
我是用 Win XP Pro, MS Access 2000 (SP3), 看来只好放弃了。 |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 6-5-2005 12:16 PM
|
显示全部楼层
可以了。Thanks。
我想知道如何运用commondialog 的properties,
1. set default file extension, open only .TXT.
2. return the file name and directory, C:\test\send.txt to textbox.
多谢。多谢。 |
|
|
|
|
|
|
|
发表于 6-5-2005 02:08 PM
|
显示全部楼层
Dim fx As CommonDialog
Set fx = New CommonDialog
With fx
.DialogTitle = "Choose Text FIle"
.InitDir = "C:\"
.Filter = "Text files (*.TXT)|*.TXT"
.ShowSave
Me.txtbox1.Text = .filename
End With |
|
|
|
|
|
|
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 6-5-2005 03:27 PM
|
显示全部楼层
|
|
|
|
|
|
| |
本周最热论坛帖子
|