ｖｂ已從１．０版本發展到了６．０版本，其功能越來越完備、強大，不僅提供了輕鬆有趣的程式設計環境，而且控制項技術的使用更是錦上添花。因此，在全世界範圍內特別是在我國ｖｂ應用非常廣泛。本文通過兩幅蝴蝶的動畫設計
，來說明在ｖｂ５．０中通過使用控制項和新增少量**就能實現複雜的功能。
介面的設計
在窗體ｆｏｒｍ１上，放置三個影象框控制項（ｉｍａｇｅ１、ｉｍａｇｅ２、ｉｍａｇｅ３）、兩個定時器控制項（ｔｉ ｍｅｒ１、ｔｉ ｍｅｒ２）和乙個命令按鈕（ｃｏｍｍａｎｄ１）。其中影象框ｉｍａｇｅ１及ｉｍａｇｅ２用來
儲存兩幅，影象框ｉｍａｇｅ３用來交替顯示兩幅；定時器ｔｉ ｍｅｒ１用來控制兩幅顯示間隔時間，定時器ｔｉ ｍｅｒ２用來控制框ｉｍ—ａｇｅ３向右移動間隔時間；命令按鈕ｃｏｍ—ｍａｎｄ１用來控制動畫的開始。各控制項屬性設定如表一。兩幅蝴蝶檔案ｂｆｌｙ１．ｂｍｐ 和ｂｆｌｙ２．ｂｍｐ可在ｖｂ＼ｓａｍｐｌｅｓ＼ｐｇｕｉｄｅ＼ｖｃｒ 子目錄下找到，可將其複製到ｖｂ目錄下。窗體介面布置如圖一。
為各控制項新增**
１、雙擊ｔｉ ｍｅｒ１後，在ｐｒｉ—
ｖａｔｅ ｓｕｂ ｔｉ ｍｅｒ１＿ｔｉ ｍｅｒ（）和ｅｎｄ
ｓｕｂ 兩行間新增如下**，以實現兩幅交替顯示：
ｓｔａｔｉｃ ｆｌａｇ
ｉｆｆｌａｇ ＝０ｔｈｅｎ
ｉｍａｇｅ３．ｐｉｃｔｕｒｅ ＝ｉｍａｇｅ１．ｐｉｃｔｕｒｅ
ｆｌａｇ ＝１
ｅｌｓｅｉｍａｇｅ３．ｐｉｃｔｕｒｅ ＝ｉｍａｇｅ２．ｐｉｃｔｕｒｅ
ｆｌａｇ ＝０
ｅｎｄ ｉｆ ２、雙擊ｔｉ ｍｅｒ２後，在ｐｒｉｖａｔｅ ｓｕｂ
ｔｉ ｍｅｒ２＿ｔｉ ｍｅｒ（）和ｅｎｄ ｓｕｂ 兩行間新增如下**，
實現由左向右移動：
ｉｆ ｉｍａｇｅ３．ｌｅｆｔ ＞ｍｅ ．ｓｃａｌｅ ｗｉｄｔｈ ｔｈｅｎ ｉｍ—
ａｇｅ３．ｌｅｆｔ ＝ｍｅ ．ｌｅｆｔ －１５００
ｉｍａｇｅ３．ｍｏｖｅ ｉｍａｇｅ３．ｌｅｆｔ ＋１００
３、雙擊ｃｏｍｍａｎｄ１控制項後，在ｐｒｉｖａｔｅ ｓｕｂ
ｃｏｍｍａｎｄ１＿ｃｌｉｃｋ（）和ｅｎｄ ｓｕｂ 兩行間新增如下代
碼，先將原隱藏，然後啟動定時器：
ｉｍａｇｅ１．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
ｉｍａｇｅ２．ｖｉｓｉｂｌｅ ＝ｆａｌｓｅ
ｔｉ ｍｅｒ１．ｅｎａｂｌｅｄ ＝ｔｒｕｅ
ｔｉ ｍｅｒ２．ｅｎａｂｌｅｄ ＝ｔｒｕｅ
（華北礦業高等專科學校席振元１０１６０１）
用VB編寫ActiveX DLL實現ASP程式設計
dim testme 建立我們剛才編譯成功的元件，一旦建立這個元件，同時會在葉面輸出文字 activex dll元件已經被 建立了！set testme server.createobject first.test 呼叫元件的方法 testme.helloworld 登出元件，在登出的同時，會自動在...
VB6用API實現繁體簡體轉換
由於正好需要乙個繁體轉簡體的事情，弄這個函式將就用一下了。private declare function lcmapstring lib kernel32 alias lcmapstringa byval locale as long,byval dwmapflags as long,byval ...
VB6用API實現繁體簡體轉換
private declare function lcmapstring lib kernel32 alias lcmapstringa byval locale as long,byval dwmapflags as long,byval lpsrcstr as string,byval cchs...