ビルドエラー


どこいち  2009-07-29 06:57:36  No: 142265

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


オショウ  2009-07-29 07:14:49  No: 142266

.NETの方にある、NotifyIconを使って書きなおした方が
早くて安全かと・・・

以上。参考まで


どこいち  2009-07-30 01:42:47  No: 142267

あちこち見てみましたが、到底書換は無理と思い、現状フリーソフトを利用する事としました。
どうも有り難う御座いました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加