Office中国论坛/Access中国论坛

标题: 两个要命的问题！急呼大虾 [打印本页]

作者: WITHOUTPOEM 时间: 2005-2-4 06:51
标题: 两个要命的问题！急呼大虾
本菜鸟的一套系统已经基本完工，但是两个问题解决不了

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

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

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

我是白痴，还望赐教！

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

作者: hi-wzj 时间: 2005-2-4 22:50
问题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 时间: 2005-2-4 23:30
问题2

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

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

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)