Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

access设置应用程序标题和图标的源码

时 间:2008-10-26 11:02:22
作 者:   ID:869  城市:邵阳
摘 要:ACCESS设置应用程序标题和图标的源码
正 文:

  1. Function AddAppProperty(strName As String, _
  2.                         varType As Variant, varvalue As VariantAs Integer
  3.     '应用程序标题和图标
  4.     Dim dbs As Object, prp As Variant
  5.     Const conPropNotFoundError = 3270
  6.     Set dbs = CurrentDb
  7.     On Error GoTo AddProp_Err
  8.     dbs.Properties(strName) = varvalue
  9.     AddAppProperty = True
  10. AddProp_Bye:
  11.     Exit Function
  12. AddProp_Err:
  13.     If Err = conPropNotFoundError Then
  14.         Set prp = dbs.CreateProperty(strName, varType, varvalue)
  15.         dbs.Properties.Append prp
  16.         Resume
  17.     Else
  18.         AddAppProperty = False
  19.         Resume AddProp_Bye
  20.     End If
  21. End Function
  22. ----------------------------------------------------------------------------------------
  23. Private Sub Form_Current()
  24.      Dim intX   As Integer
  25.     Const DB_Text As Long = 25
  26.     '设置应用程序标题
  27.     intX = AddAppProperty("apptitle", DB_Text, xtmc)
  28.     '设置图标
  29.     intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\" & "30346.ico")
  30.     CurrentDb.Properties("UseAppIconForFrmRpt") = 1
  31.     Application.RefreshTitleBar
  32.     '回答问题2:这里请注意,如果你同时定义了 AppIcon 和 AppTitle,只要其中有一项是错误的,
  33.     '比如 AppIcon 的文件名或者路径错误,那么 RefreshTitleBar 就不会刷新标题。
  34. End Sub


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助