全て
| カテゴリ未分類
| 通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
| ネットワーク
| Azure
| AWS
| JP1
| セキュリティ
| JavaScript
| Google Cloud
| データベース
| ASP.MET
| 画像アップローダ
| 小説
2010.04.15
カテゴリ： カテゴリ未分類
Public Class Form1
Dim pos As Point
Private Sub Button1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
CType(sender, Button).Top = Me.PointToClient(Cursor.Position).Y - pos.Y
CType(sender, Button).Left = Me.PointToClient(Cursor.Position).X - pos.X
Application.DoEvents()
End If
End Sub
pos = New Point(e.X, e.Y)
Dim btn As Button
btn = New Button
btn.Top = Button1.Top
btn.Left = Button1.Left
btn.Parent = Me
btn.BringToFront()
AddHandler btn.MouseMove, AddressOf Me.Button1_MouseMove
btn.Focus()
End Sub
End Class
Dim pos As Point
Private Sub Button1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
CType(sender, Button).Top = Me.PointToClient(Cursor.Position).Y - pos.Y
CType(sender, Button).Left = Me.PointToClient(Cursor.Position).X - pos.X
Application.DoEvents()
End If
End Sub
pos = New Point(e.X, e.Y)
Dim btn As Button
btn = New Button
btn.Top = Button1.Top
btn.Left = Button1.Left
btn.Parent = Me
btn.BringToFront()
AddHandler btn.MouseMove, AddressOf Me.Button1_MouseMove
btn.Focus()
End Sub
End Class
お気に入りの記事を「いいね！」で応援しよう
Last updated
2010.04.15 21:57:52
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
