佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 1190|回复: 15

请教 MS Access 2000 user interface design

[复制链接]
发表于 2-5-2005 03:07 PM | 显示全部楼层 |阅读模式
请问在Access 2000 里,怎样做open file 的 button ? 就好象Open button 那样,click就list out all file in a folder.然后可以select file.
回复

使用道具 举报


ADVERTISEMENT

发表于 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
回复

使用道具 举报

 楼主| 发表于 3-5-2005 09:04 AM | 显示全部楼层
那个commondialog 要如何加?
回复

使用道具 举报

发表于 3-5-2005 09:10 AM | 显示全部楼层
就在你的 Access Event Procedure coding 里.
直接用 code 来写.
回复

使用道具 举报

 楼主| 发表于 3-5-2005 10:12 AM | 显示全部楼层
我是指这个
Dim fx As CommonDialog
当我dim 这个 fx as commondialog时, 我看不到commondialog在list里面。
回复

使用道具 举报

发表于 3-5-2005 12:01 PM | 显示全部楼层
忘了说, 你需要从 ActiveX 选项那里加入这个 Control.
回复

使用道具 举报

Follow Us
 楼主| 发表于 4-5-2005 10:47 AM | 显示全部楼层
你可以给我那个ActiveX control 的名字吗?
加了然后要怎样add control ?
回复

使用道具 举报

发表于 4-5-2005 02:13 PM | 显示全部楼层
那是 Microsoft Common Dialog 6.
直接选择了就算是加了, 你可以点在 form 上面, 变成一个 control.
回复

使用道具 举报


ADVERTISEMENT

 楼主| 发表于 4-5-2005 02:31 PM | 显示全部楼层
我的PC没有这个ActiveX control, 如何加进去
回复

使用道具 举报

发表于 4-5-2005 03:03 PM | 显示全部楼层
其实不太可能... 应该会有的. 如果真的找不到, 尝试想办法在另一台电脑取得 COMDLG32.OCX, 然后放进你的 /windows/system32/.

这里有个例子如何运用 Common Dialog, 虽然是旧的但方法一样:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;163440
回复

使用道具 举报

 楼主| 发表于 5-5-2005 11:55 AM | 显示全部楼层
加了,不过它说
'You don't have license required to use this ActiveX Control.'
怎么办?
回复

使用道具 举报

发表于 5-5-2005 01:47 PM | 显示全部楼层
看这里: http://support.microsoft.com/default.aspx?scid=KB;en-us;172859

你可以先用 regsvr32 这 command 来试试看.
回复

使用道具 举报

 楼主| 发表于 6-5-2005 11:32 AM | 显示全部楼层
试过了,还是不行。
我是用 Win XP Pro, MS Access 2000 (SP3), 看来只好放弃了。
回复

使用道具 举报

 楼主| 发表于 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
回复

使用道具 举报

 楼主| 发表于 6-5-2005 03:27 PM | 显示全部楼层
可以work了。
多谢帮忙。又学到一样东西。
回复

使用道具 举报


ADVERTISEMENT

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 17-2-2025 12:34 PM , Processed in 0.142253 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表