易語言超級列表框雙擊修改內(nèi)容示例

更新時間：2018年12月29日 08:35:34 作者：易語言源碼教程

今天小編就為大家分享一篇關(guān)于易語言超級列表框雙擊修改內(nèi)容示例，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 取表項坐標信息, 整數(shù)型, "user32", "SendMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wMsg, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 坐標
.DLL命令 取表項結(jié)構(gòu)信息, 整數(shù)型, "user32", "SendMessageA"
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wMsg, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 表項結(jié)構(gòu)信息
.DLL命令 執(zhí)行窗口程序, 整數(shù)型, , "CallWindowProcA"
  .參數(shù) 程序指針, 子程序指針
  .參數(shù) 窗口句柄, 整數(shù)型
  .參數(shù) 消息, 整數(shù)型
  .參數(shù) 參數(shù)1, 整數(shù)型
  .參數(shù) 參數(shù)2, 整數(shù)型
.DLL命令 置窗口特征, 子程序指針, , "SetWindowLongA"
  .參數(shù) 窗口句柄, 整數(shù)型
  .參數(shù) 要置的特征, 整數(shù)型
  .參數(shù) 新特征, 子程序指針, , 僅易語言3.0支持
.DLL命令 創(chuàng)建畫筆, 整數(shù)型, "gdi32", "CreatePen", , 用指定的樣式、寬度和顏色創(chuàng)建一個畫筆 如函數(shù)執(zhí)行成功，就返回指向新畫筆的一個句柄；否則返回零
  .參數(shù) 風(fēng)格, 整數(shù)型, , 指定畫筆樣式，可以是下述常數(shù)之一;PS_SOLID：畫筆畫出的是實線;PS_DASH：畫筆畫出的是虛線（nWidth必須是1）;PS_DOT：畫筆畫出的是點線（nWidth必須是1）;PS_DASHDOT：畫筆畫出的是點劃線（nWidth必須是1）;PS_DASHDOTDOT：畫筆畫出的是點-點-劃線（nWidth必須是1）;PS_NULL：畫筆不能畫圖;PS_INSIDEFRAME：畫筆在由橢圓、矩形、圓角矩形、餅圖以及弦等生成的封閉對象框中畫圖。如指定的準確RGB顏色不存在，就進行抖動處理
  .參數(shù) 寬度, 整數(shù)型, , 以邏輯單位表示的畫筆的寬度
  .參數(shù) 顏色, 整數(shù)型, , 畫筆的RGB顏色;
.DLL命令 取對象句柄, 整數(shù)型, "gdi32", "GetStockObject", , 取得一個固有對象（Stock）。這是可由任何應(yīng)用程序使用的windows標準對象之一 指向指定對象的一個句柄。零表示出錯
  .參數(shù) 類型, 整數(shù)型, , 下述表格中定義的任何常數(shù)之一BLACK_BRUSH黑色刷子DKGRAY_BRUSH黑灰色刷子GRAY_BRUSH灰色刷子HOLLOW_BRUSH凹刷子LTGRAY_BRUSH淺灰色刷子NULL_BRUSH空刷子WHITE_BRUSH白色刷子BLACK_PEN黑色畫筆NULL_PEN空畫筆WHITE_PEN白色畫筆ANSI_FIXED_FONT采用windows（ANSI）字符集的等寬字體ANSI_VAR_FONT采用windows（ANSI）字符集的不等寬字體DEVICE_DEFAULT_FONT設(shè)備使用的默認字體（NT）DEFAULT_GUI_FONT用戶界面的默認字體，包括菜單和對話框字體（Windows 95）OEM_FIXED_FONTOEM字符集的固有字體SYSTEM_FONT屏幕系統(tǒng)字體。這是用于菜單、對話框等等的默認不等寬字體SYSTEM_FIXED_FONT屏幕系統(tǒng)字體。這是用于菜單、對話框等等的默認等寬字體（在windows 3.0之前使用）DEFAULT_PALETTE默認調(diào)色板;
.DLL命令 選入設(shè)備場景, 整數(shù)型, "gdi32", "SelectObject", , 每個設(shè)備場景都可能有選入其中的圖形對象。其中包括位圖、刷子、字體、畫筆以及區(qū)域等等。一次選入設(shè)備場景的只能有一個對象。選定的對象會在設(shè)備場景的繪圖操作中使用。例如，當(dāng)前選定的畫筆決定了在設(shè)備場景中描繪的線段顏色及樣式 與以前選入設(shè)備場景的相同hObject類型的一個對象的句柄，零表示出錯。如選定的對象是一個區(qū)域（Region），結(jié)果就是下列常數(shù)之一：SIMPLEREGION， ;  COMPLEXREGION 或 NULLREGION 對區(qū)域進行描述， GDI_ERROR 表示出錯
  .參數(shù) 設(shè)備場景句柄, 整數(shù)型, , 一個設(shè)備場景的句柄
  .參數(shù) 對象句柄, 整數(shù)型, , 一個畫筆、位圖、刷子、字體或區(qū)域的句柄;
.DLL命令 刪除對象, 整數(shù)型, "gdi32", "DeleteObject", , 用這個函數(shù)刪除GDI對象，比如畫筆、刷子、字體、位圖、區(qū)域以及調(diào)色板等等。對象使用的所有系統(tǒng)資源都會被釋放 非零表示成功，零表示失敗
  .參數(shù) 對象句柄, 整數(shù)型, , 一個GDI對象的句柄;
.DLL命令 釋放設(shè)備場景, 整數(shù)型, "user32", "ReleaseDC", , 釋放由調(diào)用GetDC或GetWindowDC函數(shù)獲取的指定設(shè)備場景。它對類或私有設(shè)備場景無效（但這樣的調(diào)用不會造成損害） 執(zhí)行成功為1，否則為0
  .參數(shù) 窗口句柄, 整數(shù)型, , 要釋放的設(shè)備場景相關(guān)的窗口句柄
  .參數(shù) 設(shè)備場景, 整數(shù)型, , 要釋放的設(shè)備場景句柄;
.DLL命令 畫矩形, 整數(shù)型, "gdi32", "Rectangle", , 用當(dāng)前選定的畫筆描繪矩形，并用當(dāng)前選定的刷子進行填充 非零表示成功，零表示失敗。會設(shè)置GetLastError
  .參數(shù) 設(shè)備場景句柄, 整數(shù)型, , 設(shè)備場景的句柄
  .參數(shù) 左上角橫坐標, 整數(shù)型, , 指定矩形左上角位置
  .參數(shù) 左上角縱坐標, 整數(shù)型, , 同上
  .參數(shù) 右下角橫坐標, 整數(shù)型, , 指定矩形右下角位置
  .參數(shù) 右下角縱坐標, 整數(shù)型, , 同上;
.DLL命令 取設(shè)備場景, 整數(shù)型, "user32", "GetDC", , 獲取指定窗口的設(shè)備場景 指定窗口的設(shè)備場景句柄，出錯則為0
  .參數(shù) 設(shè)備場景窗口句柄, 整數(shù)型, , 將獲取其設(shè)備場景的窗口的句柄。若為0，則要獲取整個屏幕的DC;

自定義數(shù)據(jù)類型表

.版本 2
.數(shù)據(jù)類型 表項結(jié)構(gòu)信息
  .成員 橫向, 整數(shù)型
  .成員 縱向, 整數(shù)型
  .成員 flags, 整數(shù)型
  .成員 行, 整數(shù)型
  .成員 列, 整數(shù)型
.數(shù)據(jù)類型 坐標
  .成員 x
  .成員 y
.數(shù)據(jù)類型 矩形坐標
  .成員 左
  .成員 上
  .成員 右
  .成員 下

超級列表框雙擊修改

.版本 2
.支持庫 iext
.程序集 窗口程序集1
.程序集變量 表項信息, 表項結(jié)構(gòu)信息
.程序集變量 老矩形, 矩形坐標
.程序集變量 老表項
.程序集變量 老列
.程序集變量 行高
.程序集變量 行
.程序集變量 列
.程序集變量 設(shè)備句柄
.程序集變量 hBrush
.程序集變量 默認窗口, 子程序指針
.子程序 _編輯框1_失去焦點
超級列表框1.置標題 (行, 列, 編輯框1.內(nèi)容)
編輯框1.可視 ＝ 假
超級列表框1.允許重畫 ()
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 表項坐標, 坐標
.局部變量 初始高度
默認窗口 ＝ 置窗口特征 (超級列表框1.取窗口句柄 (), -4, &滾動條事件)
取表項坐標信息 (超級列表框1.取窗口句柄 (), 4096 ＋ 16, 0, 表項坐標)
初始高度 ＝ 表項坐標.y
取表項坐標信息 (超級列表框1.取窗口句柄 (), 4096 ＋ 16, 1, 表項坐標)
行高 ＝ 表項坐標.y － 初始高度
編輯框1.高度 ＝ 行高 ＋ 1
設(shè)備句柄 ＝ 取設(shè)備場景 (超級列表框1.取窗口句柄 ())
hBrush ＝ 取對象句柄 (5)
選入設(shè)備場景 (設(shè)備句柄, hBrush)
.子程序 _編輯框1_放開某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (鍵代碼 ＝ #回車鍵)
  編輯框1.可視 ＝ 假
  超級列表框1.置標題 (行, 列, 編輯框1.內(nèi)容)
.如果真結(jié)束
.子程序 滾動條事件, 整數(shù)型, , 不要修改該子程序的返回值及參數(shù)的類型！
.參數(shù) 句柄, 整數(shù)型
.參數(shù) 消息, 整數(shù)型
.參數(shù) 參數(shù)1, 整數(shù)型
.參數(shù) 參數(shù)2, 整數(shù)型
.局部變量 畫筆句柄
.局部變量 矩形區(qū)域, 矩形坐標
.判斷開始 (消息 ＝ 276)
  取老矩形 (老表項, 老列)
  畫筆句柄 ＝ 創(chuàng)建畫筆 (0, 1, 超級列表框1.背景顏色)
  選入設(shè)備場景 (設(shè)備句柄, 畫筆句柄)
  畫矩形 (設(shè)備句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)
  .如果真 (是否已創(chuàng)建 (編輯框1))
    編輯框1.可視 ＝ 假
  .如果真結(jié)束
.判斷 (消息 ＝ 277)
  編輯框1.可視 ＝ 假
.默認
.判斷結(jié)束
返回 (執(zhí)行窗口程序 (默認窗口, 句柄, 消息, 參數(shù)1, 參數(shù)2))
.子程序 _超級列表框1_被雙擊, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 表項坐標, 坐標
.局部變量 i
.局部變量 畫筆句柄
畫筆句柄 ＝ 創(chuàng)建畫筆 (0, 1, 超級列表框1.背景顏色)
選入設(shè)備場景 (設(shè)備句柄, 畫筆句柄)
取老矩形 (老表項, 老列)
畫矩形 (設(shè)備句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)
表項信息.橫向 ＝ 橫向位置
表項信息.縱向 ＝ 縱向位置
取表項結(jié)構(gòu)信息 (超級列表框1.取窗口句柄 (), 4153, 0, 表項信息)
超級列表框1.現(xiàn)行選中項 ＝ -1
.如果真 (表項信息.行 ≠ -1)
  取表項坐標信息 (超級列表框1.取窗口句柄 (), 4096 ＋ 16, 表項信息.行, 表項坐標)
  編輯框1.頂邊 ＝ 超級列表框1.頂邊 ＋ 表項坐標.y ＋ 1
  編輯框1.左邊 ＝ 表項坐標.x ＋ 超級列表框1.左邊
  .如果真 (表項信息.列 ＝ 0)
    編輯框1.左邊 ＝ 表項坐標.x ＋ 超級列表框1.左邊
  .如果真結(jié)束
  .計次循環(huán)首 (表項信息.列, i)
    編輯框1.左邊 ＝ 編輯框1.左邊 ＋ 超級列表框1.取列寬 (i － 1)
  .計次循環(huán)尾 ()
  編輯框1.寬度 ＝ 超級列表框1.取列寬 (表項信息.列)
  編輯框1.內(nèi)容 ＝ 超級列表框1.取標題 (表項信息.行, 表項信息.列)
  編輯框1.可視 ＝ 真
  超級列表框1.禁止重畫 ()
  編輯框1.獲取焦點 ()
  編輯框1.被選擇字符數(shù) ＝ -1
.如果真結(jié)束
.子程序 _超級列表框1_鼠標左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 畫筆句柄
.局部變量 矩形區(qū)域, 矩形坐標
取老矩形 (老表項, 老列)
畫筆句柄 ＝ 創(chuàng)建畫筆 (0, 1, 超級列表框1.背景顏色)
選入設(shè)備場景 (設(shè)備句柄, 畫筆句柄)
畫矩形 (設(shè)備句柄, 老矩形.左, 老矩形.上, 老矩形.右, 老矩形.下)
畫筆句柄 ＝ 創(chuàng)建畫筆 (0, 1, #黑色)
選入設(shè)備場景 (設(shè)備句柄, 畫筆句柄)
取表項結(jié)構(gòu)信息 (超級列表框1.取窗口句柄 (), 4153, 0, 表項信息)
取得表項矩形區(qū)域 (橫向位置, 縱向位置, 矩形區(qū)域)
畫矩形 (設(shè)備句柄, 矩形區(qū)域.左, 矩形區(qū)域.上, 矩形區(qū)域.右, 矩形區(qū)域.下) ' 給點擊的表項畫個框來模擬選中，自創(chuàng)的^&^
老表項 ＝ 表項信息.行
老列 ＝ 表項信息.列
.子程序 取老矩形
.參數(shù) 表項
.參數(shù) 列
.局部變量 i
.局部變量 表項坐標, 坐標
取表項坐標信息 (超級列表框1.取窗口句柄 (), 4096 ＋ 16, 表項, 表項坐標)
老矩形.上 ＝ 表項坐標.y
老矩形.左 ＝ 表項坐標.x
.計次循環(huán)首 (表項信息.列, i)
  老矩形.左 ＝ 老矩形.左 ＋ 超級列表框1.取列寬 (i － 1)
.計次循環(huán)尾 ()
老矩形.右 ＝ 老矩形.左 ＋ 超級列表框1.取列寬 (表項信息.列) － 2
老矩形.下 ＝ 老矩形.上 ＋ 行高 － 1
.子程序 取得表項矩形區(qū)域
.參數(shù) 橫向
.參數(shù) 縱向
.參數(shù) 矩形區(qū)域, 矩形坐標, 參考
.局部變量 表項坐標, 坐標
.局部變量 i
表項信息.橫向 ＝ 橫向
表項信息.縱向 ＝ 縱向
取表項結(jié)構(gòu)信息 (超級列表框1.取窗口句柄 (), 4153, 0, 表項信息)
超級列表框1.現(xiàn)行選中項 ＝ -1
.如果真 (表項信息.行 ≠ -1)
  取表項坐標信息 (超級列表框1.取窗口句柄 (), 4096 ＋ 16, 表項信息.行, 表項坐標)
  矩形區(qū)域.上 ＝ 表項坐標.y
  矩形區(qū)域.左 ＝ 表項坐標.x
  .計次循環(huán)首 (表項信息.列, i)
    矩形區(qū)域.左 ＝ 矩形區(qū)域.左 ＋ 超級列表框1.取列寬 (i － 1)
  .計次循環(huán)尾 ()
  矩形區(qū)域.右 ＝ 矩形區(qū)域.左 ＋ 超級列表框1.取列寬 (表項信息.列) － 2
  矩形區(qū)域.下 ＝ 矩形區(qū)域.上 ＋ 行高 － 1
.如果真結(jié)束
.子程序 _編輯框1_獲得焦點
行 ＝ 表項信息.行
列 ＝ 表項信息.列
.子程序 __啟動窗口_將被銷毀
刪除對象 (hBrush)

運行結(jié)果：