DLL命令代碼
.版本 2.DLL命令 滾動條, 整數(shù)型, , "ShowScrollBar" .參數(shù) 句柄, 整數(shù)型 .參數(shù) 類型, 整數(shù)型 .參數(shù) 與否, 邏輯型
表格不顯示滾動條代碼
.版本 2.程序集 窗口程序集1.程序集變量 滾動條狀態(tài).程序集變量 數(shù)據(jù)庫名, 文本型.子程序 __啟動窗口_創(chuàng)建完畢.局部變量 運行目錄, 文本型.局部變量 字段, 字段信息, , "6"滾動條狀態(tài) = 表格1.取窗口句柄 ()運行目錄 = 取運行目錄 () + “/”數(shù)據(jù)庫名 = 運行目錄 + “編碼表.edb”.如果真 (文件是否存在 (數(shù)據(jù)庫名) = 假) 字段 [1].名稱 = “編碼” 字段 [1].最大文本長度 = 8 字段 [2].名稱 = “品名規(guī)格” 字段 [2].最大文本長度 = 30 字段 [3].名稱 = “單位” 字段 [3].最大文本長度 = 4 字段 [4].名稱 = “單價” 字段 [4].類型 = #小數(shù)型 連續(xù)賦值 (#文本型, 字段 [1].類型, 字段 [2].類型, 字段 [3].類型) .如果真 (創(chuàng)建 (數(shù)據(jù)庫名, 字段) = 假) 信息框 (“創(chuàng)建” + #左引號 + 數(shù)據(jù)庫名 + #右引號 + “!”, #錯誤圖標, “錯誤”) 結(jié)束 () .如果真結(jié)束.如果真結(jié)束.如果 (打開 (數(shù)據(jù)庫名, , , , , , ) = 假) 信息框 (“無法打開” + #左引號 + 數(shù)據(jù)庫名 + #右引號 + “!”, #錯誤圖標, “錯誤”).否則 .如果 (取記錄數(shù) () > 0) 填充表格 (數(shù)據(jù)庫名) .否則 表格1.顯示標尺 = 假 表格1.背景顏色 = #灰色 數(shù)據(jù)源1.置表頭行數(shù) (1) 數(shù)據(jù)源1.置文本 (1, 1, “編碼”) 數(shù)據(jù)源1.置文本 (1, 2, “品名規(guī)格”) 數(shù)據(jù)源1.置文本 (1, 3, “單位”) 數(shù)據(jù)源1.置文本 (1, 4, “單價”) 數(shù)據(jù)源1.置對齊方式 (1, 1, 1, 4, #中中) 數(shù)據(jù)源1.置列寬 (1, 1, 200) 數(shù)據(jù)源1.置列寬 (2, 1, 750) 數(shù)據(jù)源1.置列寬 (3, 1, 100) 數(shù)據(jù)源1.置列寬 (4, 1, 200) 數(shù)據(jù)源1.置背景色 (1, 1, 100, 10, #白色) 數(shù)據(jù)源1.置背景色 (表格1.取光標行號 (), 1, , 數(shù)據(jù)源1.取列數(shù) (), #天藍) .如果結(jié)束.如果結(jié)束.子程序 __啟動窗口_尺寸被改變連續(xù)賦值 (取用戶區(qū)寬度 (), 標簽1.寬度, 分組框1.寬度)分組框1.高度 = 取用戶區(qū)高度 () - 標簽1.高度 - 20表格1.高度 = 分組框1.高度 - 10表格1.寬度 = 分組框1.寬度 - 4滾動條 (滾動條狀態(tài), 3, 假).子程序 填充表格.參數(shù) 數(shù)據(jù)庫, 文本型數(shù)據(jù)庫提供者1.數(shù)據(jù)庫文件名 = 數(shù)據(jù)庫數(shù)據(jù)源1.數(shù)據(jù)提供者 = “數(shù)據(jù)庫提供者1”表格1.數(shù)據(jù)源 = “數(shù)據(jù)源1”返回 ().子程序 _表格1_光標位置改變數(shù)據(jù)源1.置背景色 (1, 1, 100, 10, #白色)數(shù)據(jù)源1.置背景色 (表格1.取光標行號 (), 1, , 數(shù)據(jù)源1.取列數(shù) (), #天藍)
運行結(jié)果:
總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網(wǎng)的支持。
新聞熱點
疑難解答