ビルドエラー (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

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

戻る