VB編程問題（置於前臺）

窗體上放置壹個Timer（Timer1），然後在窗體代碼中寫入如下代碼：

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)

Dim

SetTop

Private

Sub

Form_Load()

Timer1.Enabled

=

True

Timer1.Interval

=

10

End

Sub

Private

Sub

Timer1_Timer()

SetTop

=

SetWindowPos(Me.hwnd,

-1,

0,

0,

0,

0,

3)

End

Sub

內容屬引用,原文地址:

/question/62437495.html

上一篇:彈出窗口告白編程

下一篇:川崎機械手防碰撞失靈