绐椾綋濮嬬粓浣嶄簬鍓嶇鎬庝箞寮勫晩锛?/span> [闂鐐规暟锛?0鍒哴
鍒濆vb鍋氫簡鐢ㄤ簬鐢诲浘鐨勫伐鍏锋爮锛屾兂璁╄繖涓獥浣撴€绘槸鍦ㄦ墍鏈夌獥浣撴渶鍓嶇锛岃鎬庝箞寮勫晩锛熷府甯繖浜嗭紒 --------------------编程问答-------------------- 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)Public Sub SetWindowTop(frm As Form)
SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, 3
End Sub
鐢ㄦ硶锛?br /> call setwindowtop(form1) --------------------编程问答-------------------- 鐢ˋPI鍑芥暟:setwindowspos
--------------------编程问答-------------------- 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)
Public Sub SetWindowTop(frm As Form)
SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, 3
End Sub
鐢ㄦ硶锛?br /> call setwindowtop(form1) --------------------编程问答-------------------- Private Sub Form_load()
Dim retValue As Long '娉ㄦ剰鍦?nbsp;VB 涓繍琛屾椂锛屽彲鑳戒笉琛岋紝浣嗙紪璇戞垚EXE鍚庡氨鍙互浜?br /> retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 270, SWP_SHOWWINDOW)
End Sub --------------------编程问答-------------------- 涓婇潰鐨勫嚱鏁伴兘缁欎綘鍐欏嚭鏉ヤ簡 杩樹笉浼氱敤鍚? --------------------编程问答-------------------- 锛?锛夊惎鍔ˋPI娴忚鍣紝閫氳繃璇ユ祻瑙堝櫒澶嶅埗鈥淪etWindowPos鈥濆嚱鏁扮殑澹版槑璇彞銆?br /> 锛?锛夊惎鍔╒isual Basic锛屾柊寤轰竴涓爣鍑咵XE宸ョ▼銆?br /> 锛?锛変娇鐢ㄢ€滃伐绋嬧€潀鈥滄坊鍔犳ā鍧椻€濊彍鍗曢」锛屾坊鍔犱竴涓柊鐨勬ā鍧楁枃浠躲€?br /> 锛?锛夋墦寮€妯″潡鐨勪唬鐮佺獥鍙ｏ紝灏嗏€淪etWindowPos鈥濆嚱鏁扮殑澹版槑璇彞绮樿创杩涘幓銆?br /> 锛?锛夋墦寮€Form1绐椾綋鐨勪唬鐮佺獥鍙ｏ紝缂栧啓濡備笅绋嬪簭銆?br />
Private Sub Form_Load()
retnum = SetWindowPos(Me.hwnd, -1, 600, 200, 100, 100, &H40)
If retnum = 0 Then
MsgBox "椤跺眰绐楀彛璁剧疆澶辫触锛?, vbOKOnly + vbExclamation
End If
End Sub
锛?锛夎繍琛岀▼搴忋€?br /> --------------------编程问答-------------------- 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)
--------------------编程问答-------------------- 鏅曪紝锛?0鍒嗘姠鎴愯繖鏍凤紝浣曞繀鍛㈠悇浣嶏細锛? --------------------编程问答-------------------- 鐧惧害涓€涓嬩笉灏卞ソ浜嗭紵鏄忚繖 --------------------编程问答-------------------- 椤朵竴涓?
