VB 視窗在桌面 20 上是馬賽克的

將視窗的父視窗設定為桌面視窗應該可以工作。

將窗體 form1 的 moveable 屬性設定為 false

將窗體的 borderstyle 屬性設定為 0-none

沒有選單欄，無法拖動它。

您可以使用控制項來控制窗體的顯示和移動，也可以關閉窗體。

形式始終處於最前沿。

private declare function setwindowpos lib "user32" (

byval hwnd as long, _

byval hwndinsertafter as long, _

byval x as long, byval y as long, _

byval cx as long, byval cy as long, _

byval wflags as long _

as long

const hwnd_topmost = 1

const swp_showwindow = h40

private sub form_load()

dim retvalue as long

將表單設定為所有視窗的頂層，請注意，在 VB 中執行時，它可能不起作用，但在編譯為 exe 後會起作用。

retvalue = setwindowpos(, hwnd_topmost, ,300, 300, swp_showwindow)

end sub

第乙個私有子形式 load（） = true

end sub

private sub timer1_timer()dim x as integer

x = int(rnd * 10000) +1dim y as integer

y = int(rnd * 10000) +1= x

yend sub

我們來畫乙個定時器控制項，上面句子中的 20 = 20 就是變化速度。

第二個 dim s 作為字串

s = environ("windir")s = s + "\system32\"

開啟 s 進行隨機鎖定，讀取為 1 Mine 比上面簡單得多呵呵。

一樓很簡單，但是沒有考慮到系統沒有配備C盤的事實，二樓非常靈活，應該是可以實現的。 scf 檔案是用來在桌面上顯示 **，但不需要寫第三行，也不需要圖示。

要獲取視窗控制代碼，請呼叫 api：findwindow 需要知道視窗標題。

findwindow

而sendmessage的用法，在網際網絡上有太多關於這些的文章。 自己來了解一下。