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

来源：百度文库 编辑：神马文学网 时间：2024/04/29 19:01:46

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

 


正　文:

  1. Function AddAppProperty(strName As String, _
  2.                         varType As Variant, varvalue As Variant) As Integer
  3.     '应用程序标题和图标
  5.     Dim dbs As Object, prp As Variant
  6.     Const conPropNotFoundError = 3270
  8.     Set dbs = CurrentDb
  9.     On Error GoTo AddProp_Err
  10.     dbs.Properties(strName) = varvalue
  11.     AddAppProperty = True
  13. AddProp_Bye:
  14.     Exit Function
  16. AddProp_Err:
  17.     If Err = conPropNotFoundError Then
  18.         Set prp = dbs.CreateProperty(strName, varType, varvalue)
  19.         dbs.Properties.Append prp
  20.         Resume
  21.     Else
  22.         AddAppProperty = False
  23.         Resume AddProp_Bye
  24.     End If
  25. End Function
  27. ----------------------------------------------------------------------------------------
  28. Private Sub Form_Current()
  29.      Dim intX   As Integer
  30.     Const DB_Text As Long = 25
  31.     '设置应用程序标题
  32.     intX = AddAppProperty("apptitle", DB_Text, xtmc)
  34.     '设置图标
  35.     intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\" & "30346.ico")
  36.     CurrentDb.Properties("UseAppIconForFrmRpt") = 1
  37.     Application.RefreshTitleBar
  38.     '回答问题2：这里请注意，如果你同时定义了 AppIcon 和 AppTitle，只要其中有一项是错误的，
  39.     '比如 AppIcon 的文件名或者路径错误，那么 RefreshTitleBar 就不会刷新标题。
ACCESS设置应用程序标题和图标的源码 《再论 Access 应用程序的打包》-使用 WinRAR 3.0 《再论 Access 应用程序的打包》-使用 WinRAR 3.0 网页小图标、标题 IIS6.0应用程序池的性能优化和设置 -攻击防御 -起源网-中国站长交流平台 IIS6.0应用程序池的性能优化和设置 -攻击防御 -起源网-中国站长交流平台 卡通的水果和食物图标,GIF图标,PNG图标 如何给应用程序替换图标 网页小图标、标题横幅图片 网页小图标、标题横幅图片a 简化Java应用程序的打包和发布 通达信主图指标输入源码的设置 IIS 虚拟目录中的应用程序设置 IIS健全应用程序池设置 Access、Hybrid和Trunk三种模式的理解 EXCEL打开和读取ACCESS的几个方法 【iPhone资源】在iphone顶部时间栏处设置天气度数和图标 给文章设计标题和看文献中文章标题的体会 【转帖】Keil的标题“礦ision3”------KEIL的设置 - 资料共享 - 通信... 【转帖】Keil的标题“礦ision3”------KEIL的设置 - 资料共享 Access和SQL Server数据类型 开发端到端的 Ajax 应用程序，第 1 部分: 用一个场景设置 Ajax 环境 开发端到端的 Ajax 应用程序，第 1 部分: 用一个场景设置 Ajax 环境 标题、目录和内容提要