文件名称: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