VB150例_Example001-悬挂式窗口

bsmtlxw · 发表于 2006-7-3 13:22:00

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1815
ClientLeft = 60
ClientTop = 345
ClientWidth = 2565
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "Form1.frx":0000
ScaleHeight = 1815
ScaleWidth = 2565
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox Check1
Appearance = 0 'Flat
BackColor = &H00FF0000&
Caption = "悬挂式窗口"
ForeColor = &H80000008&
Height = 495
Left = 0
MaskColor = &H00FFFFFF&
TabIndex = 0
Top = 1320
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
Dim res As Long
If Check1.Value = 1 Then
res = SetWindowPos(Me.hwnd, HWND_TOPMOST, _
0, 0, 0, 0, Flags)
Else
res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, _
0, 0, 0, 0, Flags)

End If
End Sub

源码下载：

[replyview] [upload=rar]viewFile.asp?ID=17[/upload]
[/replyview]

[此贴子已经被作者于2006-7-3 13:23:41编辑过]

xuliang987 · 发表于 2007-5-16 20:23:00

学习中

liming117117 · 发表于 2009-1-5 19:59:00

[em06]

ryanxyz · 发表于 2009-7-10 19:42:00

謝謝分享

chxping · 发表于 2009-7-12 14:19:00

T12341 · 发表于 2009-8-11 13:03:00

不看不知道啊，太厉害了，谢谢

liuzhyb · 发表于 2009-9-2 09:32:00

学习学习

		自动登录	找回密码
密码			注册哦

VB150例_Example001-悬挂式窗口

本帖子中包含更多资源