VB 小程序

时间:2011-12-21 14:44:59
【文件属性】:

文件名称:VB 小程序

文件大小:5KB

文件格式:ZIP

更新时间:2011-12-21 14:44:59

VB

VB小程序 Private Sub Form_Paint() '使窗体始终置于最前面 If PtInRect(MyRect, MyPoint.X, MyPoint.Y) = 0 Then SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, _ Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _ Form1.Height \ Screen.TwipsPerPixelY, 0 End If End Sub


【文件预览】:
lx1.frx
Form2.frm
lx1.vbp
lx1.frm

网友评论