Image map ili grafički buttoni u VB2005?

Code:

Public Shared ReadOnly Property MousePosition As Point

Code:

Dim value As Point

value = Control.MousePosition

Code:

  Public Shared ReadOnly Property MousePosition() As Point

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Dim value As Point

        value = Control.MousePosition

        MsgBox(value)

    End Sub

Code:

------ Build started: Project: DeviceApplication2, Configuration: Release Any CPU ------
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Vbc.exe /noconfig /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Generic,System.Drawing,System.Diagnostics,System.Windows.Forms /nowarn:42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 /nostdlib /rootnamespace:DeviceApplication1 /sdkpath:"C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE" /netcf /doc:obj\Release\DeviceApplication2.xml /define:"CONFIG=\"Release\",TRACE=-1,_MyType=\"WindowsForms\",PLATFORM=\"AnyCPU\",WindowsCE=TRUE" /reference:"C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE\Microsoft.WindowsCE.Forms.dll","C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE\System.dll","C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE\System.Drawing.dll","C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE\System.Windows.Forms.DataGrid.dll","C:\Program Files\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE\System.Windows.Forms.dll" /main:DeviceApplication1.Form1 /debug:pdbonly /filealign:512 /optimize+ /out:obj\Release\DeviceApplication2.exe /resource:obj\Release\DeviceApplication1.Form1.resources /resource:obj\Release\DeviceApplication1.Resources.resources /target:winexe Form1.vb Form1.Designer.vb "My Project\AssemblyInfo.vb" "My Project\Resources.Designer.vb"
C:\Documents and Settings\Danko Vukovic\My Documents\Visual Studio 2005\Projects\DeviceApplication2\DeviceApplication2\Form1.vb(37) : error BC30126: 'ReadOnly' property must provide a 'Get'.
C:\Documents and Settings\Danko Vukovic\My Documents\Visual Studio 2005\Projects\DeviceApplication2\DeviceApplication2\Form1.vb(40) : error BC30634: Statement cannot appear within a property body. End of property assumed.
========== Build: 0 succeeded or up-to-date, 1 failed, 0 skipped ==========

Code:
    
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Dim value As Point

        value = Control.MousePosition

        MsgBox(value)

End Sub

Code:

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Dim value As Point

        value = PictureBox1.MousePosition

        MsgBox(value.ToString)

End Sub

Code:

    private void Form1_MouseDown(object sender, MouseEventArgs e)
        {
            MessageBox.Show(e.X.ToString() + " - " + e.Y.ToString());
        }

Code:

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        Label4.Text = "X." & e.X & vbCrLf & "Y." & e.Y

    End Sub

Code:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace clickablePictureBox
{
    public partial class Form1 : Form
    {
        int mouseX;
        int mouseY;

        public Form1()
        {
            InitializeComponent();

            mouseX = 0;
            mouseY = 0;

            imageBox.MouseMove += new MouseEventHandler(imageBox_MouseMove);
            imageBox.Click += new EventHandler(imageBox_Click);

        }

        void imageBox_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            mouseX = e.X;
            mouseY = e.Y;
        }

        void imageBox_Click(object sender, EventArgs e)
        {
            String tipText = String.Format("({0}, {1})",mouseX, mouseY);

            MessageBox.Show(tipText);
        }

    }
}

Code:

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    Label1.Text = Control.MousePosition.X & " " & Control.MousePosition.Y
End Sub