.版本 2
.支援庫 spec
.子程式 視窗停靠伸縮, , 公開
.引數 視窗, 視窗
.引數 speed, 整數型
.區域性變數 a, 整數型
.區域性變數 右邊, 整數型
右邊 ＝ 視窗.左邊 ＋ 視窗.寬度
' 在視窗裡 上
.如果 (取滑鼠水平位置 () ≥ 視窗.左邊 且 取滑鼠水平位置 () ≤ 視窗.左邊 ＋ 視窗.寬度 且 取滑鼠垂直位置 () ≥ 視窗.頂邊 且 取滑鼠垂直位置 () ≤ 視窗.頂邊 ＋ 視窗.高度)
.如果真 (視窗.頂邊 ＜ -50)
' 標籤2.可視 ＝ 假
.計次迴圈首 (視窗.高度 － 1, a)
視窗.頂邊 ＝ 視窗.頂邊 ＋ speed
.如果真 (視窗.頂邊 ≥ 0)
視窗.頂邊 ＝ 0
跳出迴圈 ()
.如果真結束
.計次迴圈尾 ()
.如果真結束
.否則 .如果真 (視窗.頂邊 ＝ 0)
.計次迴圈首 (視窗.高度 － 1, a)
視窗.頂邊 ＝ 視窗.頂邊 － speed
' 迷你視窗
.如果真 (視窗.高度 ＝ 70)
視窗.頂邊 ＝ -69
跳出迴圈 ()
.如果真結束
' 普通視窗
.如果真 (視窗.頂邊 ≤ -477)
視窗.頂邊 ＝ －(視窗.高度 － 1)
跳出迴圈 ()
.如果真結束
.計次迴圈尾 ()
延遲 (50)
.如果真結束
.如果結束
' 在視窗裡 右
.如果 (取滑鼠水平位置 () ≥ 視窗.左邊 － 1 且 取滑鼠水平位置 () ≤ 視窗.左邊 ＋ 視窗.寬度 且 取滑鼠垂直位置 () ≥ 視窗.頂邊 且 取滑鼠垂直位置 () ≤ 視窗.頂邊 ＋ 視窗.高度)
.如果真 (視窗.左邊 ＝ 取螢幕寬度 ())
.計次迴圈首 (視窗.寬度, a)
視窗.左邊 ＝ 視窗.左邊 － speed
.如果真 (視窗.左邊 ≤ 取螢幕寬度 () － 視窗.寬度)
視窗.左邊 ＝ 取螢幕寬度 () － 視窗.寬度
跳出迴圈 ()
.如果真結束
.計次迴圈尾 ()
.如果真結束
.否則 .如果真 (視窗.左邊 ＋ 視窗.寬度 ≥ 取螢幕寬度 ())
.計次迴圈首 (視窗.寬度, a)
視窗.左邊 ＝ 視窗.左邊 ＋ speed
.如果真 (視窗.左邊 ＋ 視窗.寬度 ≥ 取螢幕寬度 () ＋ 視窗.寬度)
視窗.左邊 ＝ 取螢幕寬度 ()
跳出迴圈 ()
.如果真結束
.計次迴圈尾 ()
視窗的伸縮功能
一 先來看看結構 二 設計 1 設計乙個成員函式，實現伸縮功能。其目的 2 相應的是，這時也必須設計乙個成員變數，儲存伸縮狀態。其目的與設計成員函式相似。三 實現 1 宣告 public afx msg void onbnclickedbtnnetsetting void extenddialog ...
易語言如何多視窗操作？易語言增加視窗
易語言如何製作一款多視窗的軟體呢，讓我們一起來看看。1 開啟易語言。2 如圖為程式設計客棧編輯視窗。3 把工作區切tkzpguge換為 程式 4 單機 視窗 5 右鍵。6 選擇 插入新視窗www.cppcns.com 7 程式設計客棧便建立好了 視窗一 8 我們雙擊這兩個任意乙個便可以切換。9 作者...
易語言API啟用視窗SetWindowPos原始碼
我們用到兩個api,乙個是findwindowa尋找視窗控制代碼，乙個是setwindowpos啟用視窗 一 api 版本 2 dll命令 尋找視窗,整數型,user32 findwindowa 引數 視窗控制代碼,文字型 引數 視窗名稱,文字型.dll命令 setwindowpos,整數型,use...