タスクトレイにアイコンを追加するコードの一部ですが、
元はVB6と思われますが、Visual Basic 2008で開くと
PopupMenuは、宣言されていません。
vbPopupMenuRightButtonは、宣言されていません。
のエラーが出ています。
何故かわかるでしょうか？
Private Sub Form1_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Dim Button As Short = eventArgs.Button \ &H100000
Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
Dim x As Single = VB6.PixelsToTwipsX(eventArgs.X)
Dim y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
'ここにユーザーがアイコンに対して行ったことがらが通知されます。
'具体的な内容は、引数 X に渡されます。
Select Case x \ VB6.TwipsPerPixelX
Case WM_LBUTTONDBLCLK
'左ダブルクリック
'ウィンドウの表示。
Me.Visible = True
'UPGRADE_WARNING: Form メソッド Form1.ZOrder には新しい動作が含まれます。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"' をクリックしてください。
Me.BringToFront()
CTrayIcon.Visible = False
Case WM_RBUTTONDBLCLK
'右ダブルクリック
'(誰がやるんだ、そんなこと？)
Case WM_LBUTTONDOWN
'左ボタン押された
Case WM_RBUTTONDOWN
'右ボタン押された
Case WM_LBUTTONUP
'左ボタン離れた
Case WM_RBUTTONUP
'右ボタン離れた
'ポップアップメニューを表示します。
'UPGRADE_ISSUE: 定数 vbPopupMenuRightButton はアップグレードされませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"' をクリックしてください。
'UPGRADE_ISSUE: Form メソッド Form1.PopupMenu はアップグレードされませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"' をクリックしてください。
PopupMenu(mnuTaskTray, vbPopupMenuRightButton)
End Select
'何もされなくて、ただマウスカーソルが上にのっかっているときには
'ツールチップを使って時刻を表示する。
'時刻を設定。
CTrayIcon.ToolTip = TimeString
End Sub
.NETの方にある、NotifyIconを使って書きなおした方が
早くて安全かと・・・
以上。参考まで
あちこち見てみましたが、到底書換は無理と思い、現状フリーソフトを利用する事としました。
どうも有り難う御座いました。