在ACCESS2000中如何通過程序修改ACCESS主窗體的標題

2020-03-24 18:26:46

字體：大中小

來源：轉載

供稿：網友

在ACCESS2002中，可以通過數據庫窗體的[啟動]屬性來設置html' target='_blank'>應用程序(ACCESS主窗體)的標題和圖標，那么在ACCESS2000中怎么辦呢？其實ACCESS提供了AppTitle和AppIco兩個屬性以及RefreshTitleBar方法,可以用來實現這個目的，本文將詳細介紹如何編制程序和使用。首先,新建一個模塊，在模塊中定義兩個常量(來自微軟幫助中的例程)：PublicConstDB_TextAsLong=10 '屬性值為文本類型
PublicConstDB_BooleanAsLong=1 '屬性值為邏輯類型接下編寫下列函數(此函數來自ACCESS幫助中)，以實現在數據庫中添加或修改數據庫屬性。PublicFunctionAddAppProperty(strNameAsString,varTypeAsVariant,varvalueAsVariant)AsInteger
'=============================================================================================
'本函數用來給當前數據庫(.mdb)添加屬性
'
'strName：屬性名
'varType：屬性類型
'varvalue：屬性的值
'
'返回值：成功為True(-1)
' 失敗為False(0)
'
' 例如：應用程序標題欄和應用程序圖標
' intX=AddAppProperty("AppTitle",DB_Text,"更改應用各標題欄和應用程序圖標的例子")
' intX=AddAppProperty("AppIcon",DB_Text,CurrentProject.Path "MSN.ico")
' '應用設置
' Application.RefreshTitleBar
'
' 易和軟件：朱亦文2002.05.01
'=============================================================================================
DimdbsAsObject,prpAsVariant
ConstconPropNotFoundError=3270
'返回指向當前數據庫的Database對象變量。
Setdbs=CurrentDb '如果是ADP，則為CurrentProject
OnErrorGoToAddProp_Err
'更改屬性值,在更改屬性值出錯出，
'則表示該屬性不存在，轉到錯誤處理程序。
dbs.Properties(strName)=varvalue
AddAppProperty=True
AddProp_Bye:
ExitFunction
AddProp_Err:
IfErr=conPropNotFoundErrorThen
'添加此屬性
Setprp=dbs.CreateProperty(strName,varType,varvalue)
dbs.Properties.Appendprp
Resume
Else
AddAppProperty=False
ResumeAddProp_Bye
EndIf
EndFunction 然后編寫更改ACCESS標題和圖標的函數：PublicFunctionChangeMyAccessTitle(strTitleAsString)AsInteger
'設置ACCESS主窗體的標題
ChangeMyAccessTitle=AddAppProperty("AppTitle",DB_Text,strTitle)
Application.RefreshTitleBar '刷新標題欄，設置ACCESS的標題
EndFunction

PublicFunctionChangeMyAccessIco(strIcoPathAsString)AsInteger
'設置ACCESS主窗體的圖標
ChangeMyAccessIco=AddAppProperty("AppIcon",DB_Text,strIcoPath)
Application.RefreshTitleBar '刷新標題欄，設置ACCESS的圖標
EndFunction 如果想要把ACCESS的圖標改在C:my.ico,則只要這樣就可以了：iX=ChangeMyAccessIco("C:my.ico") 如果想要把ACCESS的標題改為“我的應用程序”，則只要這樣：iX=ChangeMyAccessTitle("我的應用程序")html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：Application Access Violation or Hang After Applying SP4

下一篇：Access如何制作復雜報表