搜尋
首頁資料庫mysql教程在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标

在ACCESS2002中,可以 通过 数据库窗体的[启动]属性来设置应用 程序 (ACCESS主窗体)的 标题 和 图标 ,那么在ACCESS2000中怎么办呢?其实ACCESS提供了AppTitle和AppIco两个属性以及RefreshTitleBar方法,可以用来实现这个目的,本文将详细介绍 如何 编制 程序


在ACCESS2002中,可以通过数据库窗体的[启动]属性来设置应用程序(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("我的应用程序")

本文作者:未知

陳述
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn
MySQL的位置:數據庫和編程MySQL的位置:數據庫和編程Apr 13, 2025 am 12:18 AM

MySQL在數據庫和編程中的地位非常重要,它是一個開源的關係型數據庫管理系統,廣泛應用於各種應用場景。 1)MySQL提供高效的數據存儲、組織和檢索功能,支持Web、移動和企業級系統。 2)它使用客戶端-服務器架構,支持多種存儲引擎和索引優化。 3)基本用法包括創建表和插入數據,高級用法涉及多表JOIN和復雜查詢。 4)常見問題如SQL語法錯誤和性能問題可以通過EXPLAIN命令和慢查詢日誌調試。 5)性能優化方法包括合理使用索引、優化查詢和使用緩存,最佳實踐包括使用事務和PreparedStatemen

MySQL:從小型企業到大型企業MySQL:從小型企業到大型企業Apr 13, 2025 am 12:17 AM

MySQL適合小型和大型企業。 1)小型企業可使用MySQL進行基本數據管理,如存儲客戶信息。 2)大型企業可利用MySQL處理海量數據和復雜業務邏輯,優化查詢性能和事務處理。

幻影是什麼讀取的,InnoDB如何阻止它們(下一個鍵鎖定)?幻影是什麼讀取的,InnoDB如何阻止它們(下一個鍵鎖定)?Apr 13, 2025 am 12:16 AM

InnoDB通過Next-KeyLocking機制有效防止幻讀。 1)Next-KeyLocking結合行鎖和間隙鎖,鎖定記錄及其間隙,防止新記錄插入。 2)在實際應用中,通過優化查詢和調整隔離級別,可以減少鎖競爭,提高並發性能。

mysql:不是編程語言,而是...mysql:不是編程語言,而是...Apr 13, 2025 am 12:03 AM

MySQL不是一門編程語言,但其查詢語言SQL具備編程語言的特性:1.SQL支持條件判斷、循環和變量操作;2.通過存儲過程、觸發器和函數,用戶可以在數據庫中執行複雜邏輯操作。

MySQL:世界上最受歡迎的數據庫的簡介MySQL:世界上最受歡迎的數據庫的簡介Apr 12, 2025 am 12:18 AM

MySQL是一種開源的關係型數據庫管理系統,主要用於快速、可靠地存儲和檢索數據。其工作原理包括客戶端請求、查詢解析、執行查詢和返回結果。使用示例包括創建表、插入和查詢數據,以及高級功能如JOIN操作。常見錯誤涉及SQL語法、數據類型和權限問題,優化建議包括使用索引、優化查詢和分錶分區。

MySQL的重要性:數據存儲和管理MySQL的重要性:數據存儲和管理Apr 12, 2025 am 12:18 AM

MySQL是一個開源的關係型數據庫管理系統,適用於數據存儲、管理、查詢和安全。 1.它支持多種操作系統,廣泛應用於Web應用等領域。 2.通過客戶端-服務器架構和不同存儲引擎,MySQL高效處理數據。 3.基本用法包括創建數據庫和表,插入、查詢和更新數據。 4.高級用法涉及復雜查詢和存儲過程。 5.常見錯誤可通過EXPLAIN語句調試。 6.性能優化包括合理使用索引和優化查詢語句。

為什麼要使用mysql?利益和優勢為什麼要使用mysql?利益和優勢Apr 12, 2025 am 12:17 AM

選擇MySQL的原因是其性能、可靠性、易用性和社區支持。 1.MySQL提供高效的數據存儲和檢索功能,支持多種數據類型和高級查詢操作。 2.採用客戶端-服務器架構和多種存儲引擎,支持事務和查詢優化。 3.易於使用,支持多種操作系統和編程語言。 4.擁有強大的社區支持,提供豐富的資源和解決方案。

描述InnoDB鎖定機制(共享鎖,獨家鎖,意向鎖,記錄鎖,間隙鎖,下一鍵鎖)。描述InnoDB鎖定機制(共享鎖,獨家鎖,意向鎖,記錄鎖,間隙鎖,下一鍵鎖)。Apr 12, 2025 am 12:16 AM

InnoDB的鎖機制包括共享鎖、排他鎖、意向鎖、記錄鎖、間隙鎖和下一個鍵鎖。 1.共享鎖允許事務讀取數據而不阻止其他事務讀取。 2.排他鎖阻止其他事務讀取和修改數據。 3.意向鎖優化鎖效率。 4.記錄鎖鎖定索引記錄。 5.間隙鎖鎖定索引記錄間隙。 6.下一個鍵鎖是記錄鎖和間隙鎖的組合,確保數據一致性。

See all articles

熱AI工具

Undresser.AI Undress

Undresser.AI Undress

人工智慧驅動的應用程序,用於創建逼真的裸體照片

AI Clothes Remover

AI Clothes Remover

用於從照片中去除衣服的線上人工智慧工具。

Undress AI Tool

Undress AI Tool

免費脫衣圖片

Clothoff.io

Clothoff.io

AI脫衣器

AI Hentai Generator

AI Hentai Generator

免費產生 AI 無盡。

熱門文章

R.E.P.O.能量晶體解釋及其做什麼(黃色晶體)
3 週前By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.最佳圖形設置
3 週前By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.如果您聽不到任何人,如何修復音頻
3 週前By尊渡假赌尊渡假赌尊渡假赌
WWE 2K25:如何解鎖Myrise中的所有內容
4 週前By尊渡假赌尊渡假赌尊渡假赌

熱工具

MinGW - Minimalist GNU for Windows

MinGW - Minimalist GNU for Windows

這個專案正在遷移到osdn.net/projects/mingw的過程中,你可以繼續在那裡關注我們。 MinGW:GNU編譯器集合(GCC)的本機Windows移植版本,可自由分發的導入函式庫和用於建置本機Windows應用程式的頭檔;包括對MSVC執行時間的擴展,以支援C99功能。 MinGW的所有軟體都可以在64位元Windows平台上運作。

WebStorm Mac版

WebStorm Mac版

好用的JavaScript開發工具

SecLists

SecLists

SecLists是最終安全測試人員的伙伴。它是一個包含各種類型清單的集合,這些清單在安全評估過程中經常使用,而且都在一個地方。 SecLists透過方便地提供安全測試人員可能需要的所有列表,幫助提高安全測試的效率和生產力。清單類型包括使用者名稱、密碼、URL、模糊測試有效載荷、敏感資料模式、Web shell等等。測試人員只需將此儲存庫拉到新的測試機上,他就可以存取所需的每種類型的清單。

Dreamweaver Mac版

Dreamweaver Mac版

視覺化網頁開發工具

Safe Exam Browser

Safe Exam Browser

Safe Exam Browser是一個安全的瀏覽器環境,安全地進行線上考試。該軟體將任何電腦變成一個安全的工作站。它控制對任何實用工具的訪問,並防止學生使用未經授權的資源。