|
ｿｽ@ｿｽｿｽMDIｿｽqｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅ前ｿｽﾊにゑｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ATTU 2005/07/15(ｿｽｿｽ) 00:40:35
MDIｿｽqｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅ前ｿｽﾊに表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽI
ｿｽqｿｽtｿｽHｿｽ[ｿｽｿｽ.TopMost = True ｿｽﾆゑｿｽｿｽﾄゑｿｽKｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾈフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽﾅ前ｿｽﾊになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽﾌ設抵ｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾂ具ｿｽｿｽｿｽ OS:Win2003 VB:.net2003ｿｽﾅゑｿｽ
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾋゑｿｽ 2005/07/15(ｿｽｿｽ) 10:07:15
ｿｽEｿｽ[ｿｽｿｽｿｽAｿｽdｿｽlｿｽﾈのゑｿｽｿｽoｿｽOｿｽﾈのゑｿｽｿｽBｿｽBｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽAPIｿｽｿｽgｿｽｿｽｿｽﾄ、f2ｿｽｿｽTopMostｿｽﾉ設定しｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽｿｽｿｽｿｽｿｽｿｽB(^^;
Public Class Form1
Inherits System.Windows.Forms.Form
Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, _
ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Private Const SWP_NOSIZE As Long = &H1 ' ｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽﾈゑｿｽ
Private Const SWP_NOMOVE As Long = &H2 ' ｿｽﾊ置ｿｽｿｽﾏ更ｿｽｿｽｿｽﾈゑｿｽ
ｿｽ@Dim f2 As New Form2
Dim f3 As New Form3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
f2.MdiParent = Me
f3.MdiParent = Me
f2.Show()
f3.Show()
SetWindowPos(f2.Handle, -1, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
End Class
ｿｽQｿｽﾔ目の茨ｿｽｿｽｿｽｿｽﾉ０ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍトｿｽbｿｽvｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでコｿｽ[ｿｽhｿｽﾍ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽBｿｽBｿｽBｿｽB
ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽｿｽgｿｽｿｽｿｽｿｽf2.Activate()ｿｽﾈどとゑｿｽｿｽ驍ｩｿｽAｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽA
f2.Activate()ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ驍ｩｿｽAｿｽｿｽｿｽｿｽﾈ手しｿｽｿｽｿｽBｿｽBｿｽBｿｽBorz
K.J.K. 2005/07/15(ｿｽｿｽ) 10:20:07
MDIｿｽqFormｿｽﾍ、ｿｽqWindowｿｽﾅゑｿｽｿｽｿｽｿｽﾄ、TopLevelWindowｿｽﾅはなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽA
SetWindowPosｿｽﾍ最前ｿｽﾊゑｿｽﾅ背ｿｽﾊ設抵ｿｽｿｽけ難ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾅ前ｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、Owned Windowｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾗゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾄ、
Child Windowｿｽｿｽｿｽｿｽｿｽｿｽﾅ用ｿｽｿｽｿｽｿｽﾌは不ｿｽKｿｽﾘでゑｿｽｿｽｿｽﾋ。
ATTU 2005/07/15(ｿｽｿｽ) 12:08:15
ｿｽqｿｽtｿｽHｿｽ[ｿｽｿｽ.TopMost = True ｿｽﾍ出ｿｽｿｽｿｽﾈゑｿｽｿｽﾆの趣ｿｽｿｽﾅ会ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾋろさｿｽｿｽ
APIｿｽﾖ撰ｿｽｿｽﾜで載ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
K.J.K.ｿｽｿｽｿｽｿｽ
ｿｽqｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽﾄではなゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽlｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾋゑｿｽ 2005/07/15(ｿｽｿｽ) 13:46:49
>MDIｿｽqFormｿｽﾍ、ｿｽqWindowｿｽﾅゑｿｽｿｽｿｽｿｽﾄ、TopLevelWindowｿｽﾅはなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽA
>SetWindowPosｿｽﾍ最前ｿｽﾊゑｿｽﾅ背ｿｽﾊ設抵ｿｽｿｽけ難ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ識ｿｽIｿｽﾉ考ｿｽｿｽｿｽｿｽｿｽTopMostｿｽﾌ鯉ｿｽｿｽtｿｽｿｽｿｽ轤ｵｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽMSDNｿｽｿｽSetWindowPosｿｽﾌ撰ｿｽｿｽｿｽﾌなゑｿｽｿｽﾅ「HWND_TOPMOSTｿｽvｿｽﾌ撰ｿｽｿｽｿｽｿｽ
>ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽﾅ前ｿｽﾊウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾅはなゑｿｽｿｽｿｽｿｽﾗてのウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ前ｿｽﾉ挿ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾍ、ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾅなゑｿｽｿｽﾆゑｿｽｿｽﾉゑｿｽﾅ前ｿｽﾊに表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽｿｽﾅゑｿｽ
>Places the window above all non-topmost windows.
>The window maintains its topmost position even when it is deactivated.
ｿｽﾆなゑｿｽｿｽﾄまゑｿｽｿｽB
Dim r As Boolean
r = SetWindowPos(f2.Handle, -1, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
ｿｽﾆゑｿｽｿｽﾆ関撰ｿｽｿｽﾍ一応ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ搾ｿｽｿｽｿｽｿｽｿｽｿｽ痰､ｿｽﾈ、TopMostｿｽﾉはなゑｿｽﾈゑｿｽｿｽｿｽｿｽﾇ。
