Visual Basic Tips

マウスカーソル位置の取得

マウスカーソルの位置にフォームを配置したい時なんかによく使います。取得したｘ座標、ｙ座標の値にScreen.TwipsPerPixel? を掛けているのはGetCursorPos関数がピクセル値を返却する為、Twipに変換しています。

Private Sub Form_Load()
　　Dim Pos As Mxy
　　Dim i As Integer

　　GetCursorPos Pos

　　Form1.Top = Screen.TwipsPerPixelY * Pos.y 'カｰソルの位置にForm1表示
　　Form1.Left = Screen.TwipsPerPixelX * Pos.x 'カｰソルの位置にForm1表示
End Sub


'-------------------------------------------------------------
'
'-------------------------------------------------------------
Declare Sub GetCursorPos Lib "user32" (lpmxy As Mxy)

'カーソル位置格納領域
Type Mxy
　x As Long
　y As Long
End Type


DownLoad vbtips005.lzh 2KB (VB6.0)