版本2
。支持庫iext2。
。支持庫iext
。支持庫eAPI
。裝配窗裝配1
。程序集變量文件路徑,文本類型
。程序集變量當前是否正在鍵入,邏輯。
。subroutine _超級編輯框1_的內容已更改,超級編輯框的顏色已更改。
。局部可變顏色,字符格式
顏色。文本顏色=顏色值(隨機數(0,255),隨機數(0,255),隨機數(0,255))
超級編輯框1。設置選擇區域的字符格式(顏色)。
狀態欄1。將text (0,Line+設為text(超級編輯框1。取行號())+文字長度+到文字(超級編輯框1。取文字長度()))
。子程序_ _ startup window _已經創建,,,並且設置了常規對話框。
常規對話框1。Filter = "txt | *。txt "
常規對話框1。默認文件後綴= "txt "
通用對話框1。Title = "圖例記事本保存對話框..."
_時間日期_選定()
_炫陰皮膚_精選()
備忘錄提醒()
。子程序_ _ startup window _的位置變了,變了位置後超級編輯框也變了(按鈕1也變了)。
。如果為真(_啟動窗口。位置= 3)
超級編輯框1。Width =屏幕寬度()-3。
超級編輯框1。Height =屏幕高度()-80-button 1。身高-10。
按鈕1。Top edge =屏幕高度()-狀態欄1。身高-100。
按鈕1。Width =屏幕寬度()-5。
按鈕1。高度=狀態欄1。身高+10。
如果真的結束了。
。如果為真(_啟動窗口。位置= 0)
超級編輯框1。Width = _開始窗口。寬度-10。
超級編輯框1。Height = _開始窗口。高度-55-按鈕1。身高-10。
按鈕1。頂邊= 200
按鈕1。寬度= 560
如果真的結束了。
。子程序_新_選定,,,新文件
如果為真(超級編輯框1。內容≦”;)
如果為真(消息框(“妳還沒保存呢!要不要救?”4),= #是按鈕)
常規對話框1。Type = 1
常規對話框1。打開()
寫入文件(常規對話框1。文件名,以字節設置(超級編輯框1。內容))
如果真的結束了。
如果真的結束了。
。子程序_打開_選定,,,打開文件
常規對話框1。類型= 0
常規對話框1。打開()
。如果為真(常規對話框1。文件名8800 ";")
超級編輯框1。內容=文本(讀入文件(常規對話框1。文件名))
文件路徑=常規對話框1。文件名
如果真的結束了。
。子程序_保存_選定,,,保存文件
。如果為真(文件路徑= " ")
常規對話框1。Type = 1
常規對話框1。打開()
寫入文件(常規對話框1。文件名,以字節設置(超級編輯框1。內容))
如果真的結束了。
。如果為真(文件路徑≦“”)
寫入文件(文件路徑,到字節集(超級編輯框1。內容))
如果真的結束了。
。子程序_保存到_選定,,,另存為文件
常規對話框1。Type = 1
常規對話框1。打開()
。如果為真(常規對話框1。文件名8800 ";")
寫入文件(常規對話框1。文件名,以字節設置(超級編輯框1。內容))
如果真的結束了。
。子程序_撤消_選定,,,撤消文本
超級編輯框1。撤消()
子程序_ Cut _被選中,,,剪切文本。
超級編輯框1。切割()
。子程序_ Copy _被選中,,,復制文本
超級編輯框1。復制()
。子程序_粘附_被選中,,,粘貼文本
超級編輯框1。粘貼()
。子程序_刪除_選定,,,刪除文本
超級編輯框1。刪除()
超級編輯框1。Content =取文本左側(超級編輯框1。內容,取文本的長度(超級編輯框1。內容)-1)。
。子程序_查找_選定,,,查找文本
加載(查找窗口,真)
。子程序_ Find Next _被選中,,,還沒解。
。子程序_文本替換_選定,,,文本替換
加載(文本替換窗口,,true)
Subroutine _ Jump _ Selected,,,尚未求解。
加載(跳轉到窗口,真)
。子程序_全選_選定,,,選擇所有文本
超級編輯框1。選擇的字符數=文本長度(超級編輯框1。內容)
子程序_時間日期_被選中,,,時間-日期。
。當局部變量很小時,文本類型。
。本地變量分鐘,文本類型
。本地變量日期,文本類型
。本地變量年份,文本類型
。本地變量月,文本類型
。局部變量日,文本類型。
Hours = to文本(take hours (take current time()))
minute = to text(take minutes(take current time()))
Year = to text(取年份(取當前時間()))
Month = to text(取Month(取當前時間()))
Date = to text (date(當前時間()))
狀態欄1。設置文本(1,小時+":"+分鐘+"+年+"-"+月+"-"+日)。
子程序_圖例記事本v13_選定,,,關於記事本
信息盒("軟件作者:上古傳說"+# newline+" QQ:1041750677 "+# newline+" MSN:thum _ wai _ LUN @ hotmail . com "+# newline+"寫作工具:易語言"+# newline+"軟件版本:65438+"
。子程序_密碼保存_選定,,,密碼保護
加載(密碼窗口,,真)
。子程序_ Memo _被選中,,,加載到Memo窗口。
Load(備忘錄窗口,,true)
子程序備忘錄提醒,,,備忘錄提醒
。局部變量分割文本,文本類型," 0 "
局部變量今天的日期,文本類型
。局部變量分段今天的日期,文本類型," 0 "
Split text = Split text(讀取配置項(取運行目錄()+"\ memo。ini”,“備忘錄”,“提示日期”,),“日”,)
今天的日期=到文本(取日期(取當前時間()))
拆分今天的日期=拆分文本(今天的日期,“日”,)
如果為真(取數組成員數(分割文本)= 1或取數組成員數(分割文本)> 1)
如果為true(拆分文本[1] =拆分今天的日期[1])
狀態欄1。設置文本(2,“妳今天有壹個備忘錄”)
如果真的結束了。
如果真的結束了。
子程序_銀白色皮膚_選中,,,銀白色皮膚
更換新皮膚(1)
。子程序_光皮膚_選定,,,光皮膚
更換新皮膚(10)
子程序_淺灰色皮膚_選中,,,淺灰色皮膚
更換新皮膚(13)
子程序_淺藍色皮膚_選中,,,淺藍色皮膚
更換新皮膚(19)
。子程序_深色皮膚_選定,,,深色皮膚
更換新皮膚(5)
子程序_閃耀銀膚_選中,,,閃耀銀膚
更換新皮膚(2)
。子程序_美白皮膚_精選,,,美白皮膚
更換新皮膚(15)
子程序_艷藍皮膚_選中,,,艷藍皮膚
更換新皮膚(18)
。子程序_深色皮膚_選定,,,深色皮膚
更換新皮膚(14)
。子程序_ _ Start window _可以關閉,邏輯,透明顯示,最小化操作嗎?
。局部變量變量1,整數類型
變量1 = 255
。計數循環頭(255,)
設置窗口透明度(_開始窗口。取窗口句柄(),變量1)
變量1 =變量1-1。
如果為真(變量1 = 1)
設置托盤圖標(#程序圖標,“舊圖例記事本v1.2”)
_啟動窗口。可見=假
如果真的結束了。
。計數周期尾部()
返回(假)
。子程序_ _啟動窗口_托盤事件,,,透明顯示_啟動窗口
參數運算類型,整數類型
。局部變量變量1,整數類型
。如果為真(操作類型= 1)
_啟動窗口。可見=真
。計數循環頭(255,變量1)
設置窗口透明度(_開始窗口。取窗口句柄(),變量1)
。計數周期尾部()
如果真的結束了。
。如果為真(操作類型= 3)
彈出菜單(圖標菜單,選擇水平鼠標位置()和垂直鼠標位置())
如果真的結束了。
。子程序_ _開始窗口_將被銷毀,,,銷毀任務欄圖標。
設置托盤圖標({},)
子程序_打開圖例記事本_選中、、、_啟動窗口。Visual = True
_ _ Start Window _ Tray事件(1)
子程序_ Destroy _被選中,,,破壞軟件。
銷毀()
子程序_超級編輯框1_按壹個鍵,邏輯類型,,正在打字。...
參數鍵碼,整數類型
參數功能鍵狀態,整數類型
妳現在輸入的是真的嗎?
按鈕1。Title = "輸入..."
時鐘1。時鐘周期= 800。
返回(真)
子程序_超級編輯框1_釋放壹個鍵,邏輯打字,暫停打字。...
參數鍵碼,整數類型
參數功能鍵狀態,整數類型
妳現在輸入的是假的嗎?
返回(真)
。子程序_時鐘1_周期性事件,,,暫停打字。...
如果為真(是否當前正在鍵入=假)
按鈕1。Title = "停止鍵入..."
如果真的結束了。
。子程序_超級編輯框1_選擇區域被更改,,,超級編輯框1。卷軸。
超級編輯框1。滾動(1)