編輯框用戶配置怎麼寫
『壹』 易語言寫配置項和讀配置項的具體做法
.版本 2
.子程序 讀用戶配置
' 配置文件名, "「\USERSYS.ini」", , 用戶配置文件
' 系統風格節, "「系統風格」", , 系統配置XP風格
' 風格, "「XP風格」", , 界面使用XP風格樣式
' 窗口位置左, "「左邊」"
' 窗口位置頂, "「頂邊」"
' 窗口寬, "「寬度」"
' 窗口高, "「高度」"
' 用戶配色節, "「自定義顏色」", , 用戶自定義的配置
' 窗口色項, "「窗口背景」"
' 編輯框底色, "「文字背景」"
' 文字色項, "「文字顏色」"
' 文字大小, "「字型大小」"
' 文字字體, "「字體」"
' 用戶信息節, "「用戶信息」", , 用戶的信息
' 名項, "「用戶名」"
' 址項, "「用戶公司」"
' 最近文件節, "「最近打開」", , 使用的文件
' 上次文件, "「上次打開」"
' 自動打開, "「自動打開」"
上次文件.標題 = 「」
.如果 (讀配置項 (配置路徑, #最近文件節, #自動打開, ) = 「YES」)
自動打開.選中 = 真
.如果真 (文件是否存在 (讀配置項 (配置路徑, #最近文件節, #上次文件, )))
上次文件.標題 = 讀配置項 (配置路徑, #最近文件節, #上次文件, )
上次文件.可視 = 上次文件.標題 ≠ 「」
_上次文件_被選擇 ()
.如果真結束
.否則
自動打開.選中 = 假
上次文件.可視 = 假
.如果結束
.如果 (讀配置項 (配置路徑, #系統風格節, #最大化, ) ≠ 「YES」)
_啟動窗口.移動 (到數值 (讀配置項 (配置路徑, #系統風格節, #窗口位置左, )), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口位置頂, )), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口寬, 「400」)), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口高, 「300」)))
.否則
_啟動窗口.位置 = 3
.如果結束
總是最前.選中 = 讀配置項 (配置路徑, #系統風格節, #總在最前, ) = 「1」
_啟動窗口.總在最前 = 總是最前.選中
編輯框1.字體.字體大小 = 到數值 (讀配置項 (配置路徑, #用戶配色節, #文字大小, 「9」))
編輯框1.字體.字體名稱 = 讀配置項 (配置路徑, #用戶配色節, #文字字體, 「宋體」)
讀配色 ()
讀用戶 ()
讀風格 ()
.版本 2
.子程序 讀配色
_啟動窗口.底色 = 到數值 (讀配置項 (配置路徑, #用戶配色節, #窗口色項, 到文本 (#默認色)))
編輯框1.背景顏色 = 到數值 (讀配置項 (配置路徑, #用戶配色節, #編輯框底色, 到文本 (#白色)))
編輯框1.文本顏色 = 到數值 (讀配置項 (配置路徑, #用戶配色節, #文字色項, 到文本 (#黑色)))
.版本 2
.支持庫 xplib
.子程序 讀風格
.局部變數 KK, 整數型
連續賦值 (假, 無風格.禁止, 藍色風格.禁止, 綠色風格.禁止, 銀色風格.禁止)
KK = 到數值 (讀配置項 (配置路徑, #系統風格節, #風格, 「0」))
XP風格 (KK)
.判斷開始 (KK = 0)
無風格.禁止 = 真
.判斷 (KK = 1)
藍色風格.禁止 = 真
.判斷 (KK = 2)
綠色風格.禁止 = 真
.判斷 (KK = 3)
銀色風格.禁止 = 真
.默認
.判斷結束
.版本 2
.子程序 讀用戶
_啟動窗口.標題 = 讀配置項 (配置路徑, #用戶信息節, #名項, 「大強」) + 「記事本」
.版本 2
.子程序 __啟動窗口_尺寸被改變
.如果真 (_啟動窗口.寬度 ≤ 200)
_啟動窗口.寬度 = 200
.如果真結束
.如果真 (_啟動窗口.高度 ≤ 300)
_啟動窗口.高度 = 300
.如果真結束
.如果真 (_啟動窗口.位置 ≠ 3)
寫配置項 (配置路徑, #系統風格節, #窗口位置左, 到文本 (_啟動窗口.左邊))
寫配置項 (配置路徑, #系統風格節, #窗口位置頂, 到文本 (_啟動窗口.頂邊))
寫配置項 (配置路徑, #系統風格節, #窗口寬, 到文本 (_啟動窗口.寬度))
寫配置項 (配置路徑, #系統風格節, #窗口高, 到文本 (_啟動窗口.高度))
_啟動窗口.移動 (到數值 (讀配置項 (配置路徑, #系統風格節, #窗口位置左, )), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口位置頂, )), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口寬, 「400」)), 到數值 (讀配置項 (配置路徑, #系統風格節, #窗口高, 「300」)))
.如果真結束
編輯框1.移動 (5, 5, _啟動窗口.取用戶區寬度 () - 10, _啟動窗口.取用戶區高度 () - 10)
這是我的程序中的代碼,你也可以到易語言資源網去下載這個程序的源碼。
『貳』 易語言怎麼搞寫入和讀取配置項
.版本 2
.子程序 _按鈕_保存配置項_被單擊
寫配置項 (取運行目錄 () + 「配置.ini」, 「坐標1」, 「縱」, 編輯框1.內容)
寫配置項 (取運行目錄 () + 「配置.ini」, 「坐標1」, 「橫」, 編輯框2.內容)
寫配置項 (取運行目錄 () + 「配置.ini」, 「坐標2」, 「縱」, 編輯框3.內容)
寫配置項 (取運行目錄 () + 「配置.ini」, 「坐標2」, 「橫」, 編輯框4.內容)
.子程序 _按鈕_讀取配置項_被單擊
編輯框1.內容 = 讀配置項 (取運行目錄 () + 「配置.ini」, 「坐標1」, 「縱」, )
編輯框2.內容 = 讀配置項 (取運行目錄 () + 「配置.ini」, 「坐標1」, 「橫」, )
編輯框3.內容 = 讀配置項 (取運行目錄 () + 「配置.ini」, 「坐標2」, 「縱」, )
編輯框4.內容 = 讀配置項 (取運行目錄 () + 「配置.ini」, 「坐標2」, 「橫」, )

