メディアプレイヤーの上に線を描く (ID:100934)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すみません、送信ボタンをダブルクリックしてしましました。
削除できねーahh

とりあえず俺はこんな感じに作ってみました。
描いて(半透明状態)->ホイールクリック(透明状態)
メディアプレイヤー上で描けるかは不明です。

Option Explicit
Private Declare Function SetWindowPos _
                Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
                ByVal x As Long, ByVal y As Long, ByVal Cx As Long, _
                ByVal Cy As Long, ByVal wFlags As Long) As Long

Private Const conHwndTopmost = -1
Private Const conHwndNoTopmost = -2
Private mode_ As Boolean

Private Sub Form_Load()
SetWindowPos Me.hWnd, conHwndTopmost, _
                 Me.Left / Screen.TwipsPerPixelX, _
                 Me.Top / Screen.TwipsPerPixelY, _
                 Me.Width / Screen.TwipsPerPixelX, _
                 Me.Height / Screen.TwipsPerPixelY, 0
Me.Top = 0
Me.Left = 0
KTrans1.LayeredFlag = 1
KTrans1.TransMode = 4
End Sub

Private Sub InkPicture1_MouseDown(ByVal Button As MSINKAUTLibCtl.InkMouseButton, ByVal Shift As MSINKAUTLibCtl.InkShiftKeyModifierFlags, ByVal pX As Long, ByVal pY As Long, Cancel As Boolean)
If Button = IMF_Middle Then
    If mode_ = False Then
        KTrans1.LayeredFlag = 0
        KTrans1.TransMode = 4
        mode_ = True
    Else
        KTrans1.LayeredFlag = 1
        KTrans1.TransMode = 4
        mode_ = False
    End If
End If
If Button = IMF_Right Then
    End
End If
End Sub

Private Sub InkPicture1_MouseWheel(ByVal Button As MSINKAUTLibCtl.InkMouseButton, ByVal Shift As MSINKAUTLibCtl.InkShiftKeyModifierFlags, ByVal Delta As Long, ByVal x As Long, ByVal y As Long, Cancel As Boolean)
If Button = IMF_Middle Then
    KTrans1.LayeredAlpha = KTrans1.LayeredAlpha + Delta
End If
End Sub

Private Sub InkPicture1_Stroke(ByVal Cursor As MSINKAUTLibCtl.IInkCursor, ByVal Stroke As MSINKAUTLibCtl.IInkStrokeDisp, Cancel As Boolean)
KTrans1.LayeredFlag = 1
KTrans1.TransMode = 4
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る