1樓：匿名使用者
樓上提供一種思路，**如下：
option explicit
dim wz as boolean ' 宣告變數private sub form_load()me.height = screen.height / 2me.
width = screen.width / 2end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if wz then
move screen.width / 2, screen.height / 2 ', 2 * inch, inch
else
me.move 0, 0
end if
wz = not wz
end sub
vb中如何控制字型大小，vb中如何控制字型大小
所有的控制元件都有字型屬性，找到它修改就可以了。如果需要在程式中動態修改也可以的，什麼意思？是說編寫出的運用程式的字型大小還是什麼？ctlnew.font.size 18ctlnew.font.name 宋體 ctlnew.forecolor vbhighlightctlnew.fontbold t...
在vb中如何使窗體上的文字顯示在窗體的中間
vb6.0可以抄將顯示在容器前的標籤控制元件的backstyle 屬性襲，設定為0使其透明而不遮擋後面的 內容。backstyle 屬性，返回或設定一個值，它指定 label 控制元件或 shape 控制元件的背景是透明的還是非透明的。例項 private sub form load label1....
VB控制其他視窗的按鍵，在VB中怎樣控制其它的程式的文字框和按鈕
command1 click 是模組過程，要在form1中呼叫要用全域性過程 在工程視窗上新增一個模組module1，在模組裡把窗體2的command1 click過程寫上去，再在窗體1的command1 click事件中呼叫 例 設form2的command1 click事件為 print a 則...