浏览器

开发平台：

Visual Basic

frmFloatSearch.frm：源码内容

							VERSION 5.00
Begin VB.Form frmFloatSearch 
   BorderStyle     =   5  'Sizable ToolWindow
   ClientHeight    =   2325
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   1575
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   1575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox List1 
      Height          =   2220
      IntegralHeight  =   0   'False
      Left            =   120
      Style           =   1  'Checkbox
      TabIndex        =   0
      Top             =   60
      Width           =   2475
   End
End
Attribute VB_Name = "frmFloatSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Deactivate()
Unload Me
End Sub
Private Sub Form_Load()
SetPos
End Sub
Private Sub Form_LostFocus()
Unload Me
End Sub
Private Sub Form_Resize()
List1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Public Sub SetPos()
Dim tpt As POINTAPI
Call GetCursorPos(tpt)
'tPt.x = tPt.x
'tPt.y = tPt.y - 10
If tpt.x * 15 + Me.Width > Screen.Width Then
    tpt.x = (Screen.Width - Me.Width) / 15
End If
If tpt.x < 0 Then tpt.x = 0
If tpt.y * 15 + Me.Height > Screen.Height Then
    tpt.y = (Screen.Height - Me.Height) / 15
End If
If tpt.y < 0 Then tpt.y = 0
Me.Move tpt.x * 15, tpt.y * 15 + 300
End Sub

						