两个要命的问题！急呼大虾

WITHOUTPOEM

本菜鸟的一套系统已经基本完工，但是两个问题解决不了

1。我在登陆窗口，用了一个叫CALENDER 9.0的控件，用来实现日历功能。相信大家也用过这个控键，但是呢，它有个问题，就是无论我日期如何更新，它的日期显示的都是我的开发日期，即我把该控键加上去的日期，怎么办？如何实现自动更新日期

2。如何设置图标，那个ACCESS的图表太丑了，不是用 启动 改，而是要求文件图标也改。

还有，我用启动 设置 图标，可是图标地址必须是完全地址，不能像网页那样使用相对地址，那我放到别人的机子上去后，就不能正常显示图标，怎么办？

我是白痴，还望赐教！

wanshan

1.在加载项里写入：Me![SelectDate] = Date2.为什么要更改呢？如果硬是要让一个女孩穿男孩的衣服，可以这样改：依次点击“工具”-“文件夹选项”-“文件类型”找到扩展名为“mdb”，然后点“高级”，里面有更改的。应该可以，我没有试过，不过觉得没有必要，即使改了，也只能在自己的电脑上有效果。3.方法一：把这个图标文件放在一个局域网共享的文件夹下；方法二：如果要其它电脑上用，也可以用绝对路径，在运行时用代码把图标文件拷贝到在一个固定的位置（参考：http://www.wanshan.net/bbs/ShowPost.asp?id=56和“filecopy命令”）；方法三：在加载时用代码赋值（设想，我不会）。

hi-wzj

问题3Private Sub Form_Load()   '代码放在启动窗体中

'更改系统标题及图标

    Dim intX As Integer

    Const DB_Text As Long = 10

    intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\jxc.ico")

    Application.RefreshTitleBarEnd Sub

Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270    Set dbs = CurrentDb

    On Error GoTo AddProp_Err

    dbs.Properties(strName) = varValue

    AddAppProperty = TrueAddProp_Bye:

Exit Function

AddProp_Err:

    If Err = conPropNotFoundError Then

        Set prp = dbs.CreateProperty(strName, varType, varValue)

        dbs.Properties.Append prp

        Resume

    Else

        AddAppProperty = False

        Resume AddProp_Bye

    End If

End Function

hi-wzj

问题2

1、更改文件的扩展名比如为abc

2、资源管理器中打开菜单：工具--文件夹选项--文件类型--新建

3、建立与扩展名为abc的关联程序（maccess.exe）和关联图标。



4、要在其他电脑上使用须重做第2步或导出注册表与第2步相应的分支，通过运行注册来完成。

[此贴子已经被作者于2005-2-4 15:31:55编辑过]