1樓：網友
option explicit
使指定滾明視窗總在最前。
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_nomove = h2
const swp_nosize = h1
const swp_nozorder = h8
sub setformtopmost(theform as form)
setwindowpos , hwnd_topmost, 0, 0, 0, 0, _
swp_nozorder + swp_nomove + swp_nosize
end sub
sub form_load()
setformtopmost me ''數梁只薯備運需要改動這裡，me換成你想放在最前的窗體名。
end sub
vb 窗體再次獲得焦點時，變數重置
2樓：歷又
**出錯了。還是查查吧。
3樓：金金海
你可以定義乙個全域性的公共變數來實現。
public a
private sub form_1 load()a=0end sub
sub 按鈕。click()
a=a+1end sub
如果你form2 unload 後被啟用的不是form1，則在被啟用的form的load事件中應該將a的值 置為0.方法同上面form1 load 一樣。
4樓：網友
**有問題了。我們查不出來。
5樓：網友
在視窗1按鈕中這樣寫就不會重置了。
i=i+1,i
vb 窗體置前問題
6樓：網友
這需要在form2中呼叫api。
在form2中新增如下**：
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
private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
private sub form_load()
form_load過程中：
dim me_hwnd as long
me_hwnd = findwindow(vbnullstring,setwindowpos me_hwnd, -1, ,3
end sub
vb怎麼設定窗體置前?
7樓：網友
在窗體1或者窗體2的某個事件里加：窗體。
vb控制**接觸後重置窗體
8樓：網友
你的意識是**恢復到原來的位置吧？ 那麼只需要將屬性設定成false.
在變數中儲存兩張**的left和top屬性，相碰時再恢復成這個值就可以了。
9樓：網友
重置是什麼意思？恢復到初始狀態？
vb窗體置前會使窗體覆蓋右鍵選單
10樓：網友
你要穩定的視窗置前有兩中方式，一種在顯示時設定窗體的擁有者，如： ,form1。這樣使窗體form2始終在form1上面。
還有通過api設定窗體在最前面：
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
private const hwnd_topmost = -1
private const hwnd_notopmost = -2
dim newform as form
private sub command1_click() '窗體置前。
setwindowpos , hwnd_topmost, 0, 0, 0, 0, swp_nomove + swp_nosize
end sub
private sub command2_click() '取消置前。
setwindowpos , hwnd_notopmost, 0, 0, 0, 0, swp_nomove + swp_nosize
end sub
private sub command3_click() '新建窗體。
set newform = new form1
dim item as control
for each item in
falsenext "窗體置前問題"
end sub
把**複製到窗體中，新增三個按鈕。
11樓：涐吢銥舊囿儚
窗體置前，只需要一次就行了，幹嗎還那麼高的頻率來「置前」？？
也許是你的邏輯上有一些不合理的地方。
26歲前一直相親，一直失敗，一直沒有男朋友，一直單身。現在30了，不
你這樣程式化的挑，要是能挑到好男人，那才是見鬼了，一個好男人，基本都是通過婚姻啊，事業啊，等等一系列的生活經歷，才成熟成長起來成為好男人的，你可以回頭看看你身邊你覺得是好男人的，他們在二愣時期是不是也很二啊，還有就是，一個好男人的身邊，肯定都有一個不簡單的女人，只有通過這個不簡單的女人，才塑造了這個...
發現女友和前度一直都還有聯絡,發現女友和前度一直有聯絡，我該怎麼辦？？
你好bai 關於這個問題嘛 嘿嘿 都說女人很du難猜透zhi 作為一個女的 她會dao那樣做的原因專 可能是因為她想讓你吃吃醋 雖然這屬種做法是很無聊 但是可能她是想讓你更在乎她 或者是 你前面也說了 那個男的是她得初戀 不管初戀美不美好,都是有點留戀的 有聯絡其實也沒什麼 主要是看他們兩個人聊天的...
如何對付一直糾纏的前男朋友，被前男友還一直糾纏怎麼辦？
置之不理，你越有反應他越覺得還有戲，要冷暴力對之，女人最可怕的不是一版哭二鬧三上吊，而是狠下權心不理一個人。這個男人這樣子說好聽點叫痴情，難聽點就是不成熟，既然愛你，幹嘛還要去幹擾你的生活，而且還打擾到了你的家人，你的朋友。樓主先打個 跟他談談，告訴他給你帶來的困擾，如果他執迷不悟，那樓主，你就狠下...