在ACCESS2000中如何通過(guò)程序修改ACCESS主窗體的標(biāo)題

2020-03-24 18:26:46

字體：大中小

供稿：網(wǎng)友

在ACCESS2002中，可以通過(guò)數(shù)據(jù)庫(kù)窗體的[啟動(dòng)]屬性來(lái)設(shè)置html' target='_blank'>應(yīng)用程序(ACCESS主窗體)的標(biāo)題和圖標(biāo)，那么在ACCESS2000中怎么辦呢？其實(shí)ACCESS提供了AppTitle和AppIco兩個(gè)屬性以及RefreshTitleBar方法,可以用來(lái)實(shí)現(xiàn)這個(gè)目的，本文將詳細(xì)介紹如何編制程序和使用。首先,新建一個(gè)模塊，在模塊中定義兩個(gè)常量(來(lái)自微軟幫助中的例程)：PublicConstDB_TextAsLong=10 '屬性值為文本類型
PublicConstDB_BooleanAsLong=1 '屬性值為邏輯類型接下編寫(xiě)下列函數(shù)(此函數(shù)來(lái)自ACCESS幫助中)，以實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中添加或修改數(shù)據(jù)庫(kù)屬性。PublicFunctionAddAppProperty(strNameAsString,varTypeAsVariant,varvalueAsVariant)AsInteger
'=============================================================================================
'本函數(shù)用來(lái)給當(dāng)前數(shù)據(jù)庫(kù)(.mdb)添加屬性
'
'strName：屬性名
'varType：屬性類型
'varvalue：屬性的值
'
'返回值：成功為T(mén)rue(-1)
' 失敗為False(0)
'
' 例如：應(yīng)用程序標(biāo)題欄和應(yīng)用程序圖標(biāo)
' intX=AddAppProperty("AppTitle",DB_Text,"更改應(yīng)用各標(biāo)題欄和應(yīng)用程序圖標(biāo)的例子")
' intX=AddAppProperty("AppIcon",DB_Text,CurrentProject.Path "MSN.ico")
' '應(yīng)用設(shè)置
' Application.RefreshTitleBar
'
' 易和軟件：朱亦文2002.05.01
'=============================================================================================
DimdbsAsObject,prpAsVariant
ConstconPropNotFoundError=3270
'返回指向當(dāng)前數(shù)據(jù)庫(kù)的Database對(duì)象變量。
Setdbs=CurrentDb '如果是ADP，則為CurrentProject
OnErrorGoToAddProp_Err
'更改屬性值,在更改屬性值出錯(cuò)出，
'則表示該屬性不存在，轉(zhuǎn)到錯(cuò)誤處理程序。
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 然后編寫(xiě)更改ACCESS標(biāo)題和圖標(biāo)的函數(shù)：PublicFunctionChangeMyAccessTitle(strTitleAsString)AsInteger
'設(shè)置ACCESS主窗體的標(biāo)題
ChangeMyAccessTitle=AddAppProperty("AppTitle",DB_Text,strTitle)
Application.RefreshTitleBar '刷新標(biāo)題欄，設(shè)置ACCESS的標(biāo)題
EndFunction

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

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。

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

下一篇：Access如何制作復(fù)雜報(bào)表