當前位置:外匯行情大全網 - 期貨行情 - 易語言源代碼

易語言源代碼

哦,好吧,我給妳壹個記事本的源代碼如下。

版本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)

  • 上一篇:雪球怎麽看歷史股價
  • 下一篇:優酷的更新時間是什麽時候?
  • copyright 2024外匯行情大全網