ビルドエラー (ID:142265)

名前

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

本文 タスクトレイにアイコンを追加するコードの一部ですが、 元は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