Har börjat göra ett gränssnitt med två listor. I den vänstra listan jag lagt in bilmärken, med Items, och med dubbelklick ska jag kunna flytta ett element till den högra listan.
Jag får det inte att funka för när jag dubbelklickar så läggs nåt helt annat till i vänster lista. Har nån ett förslag på lösning?
/Arne

Nåt helt annat? Förhoppningsvis nåt som finns i listan, va?
Hur ser din kod i DoubleClick eventet ut?

Troligtvis använder du SelectedItem, men du har ingen/fel SelectedItem när du dubbelklickar.
Prova att sätta SelectedItem i din MouseDown, eller att använda HitTest på din musposition för att får rätt värde. Även parametern e (inkommande) kan vara värd att kika på.

/micke

Har försökt att få det att funka men eftersom jag är gröngöling på detta så vill det sig inte. Här är koden men DoubleClick eventet är tomt nu.

/Arne

Public Class frmMain
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents lstBil1 As System.Windows.Forms.ListBox
Friend WithEvents lstBil2 As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lstBil1 = New System.Windows.Forms.ListBox
Me.lstBil2 = New System.Windows.Forms.ListBox
Me.SuspendLayout()
'
'lstBil1
'
Me.lstBil1.Items.AddRange(New Object() {"Volvo", "Ford", "Saab", "Opel", "Fiat", "Skoda", "Seat", "BMW", "Merzedes", "VW"})
Me.lstBil1.Location = New System.Drawing.Point(56, 148)
Me.lstBil1.Name = "lstBil1"
Me.lstBil1.Size = New System.Drawing.Size(120, 95)
Me.lstBil1.TabIndex = 0
'
'lstBil2
'
Me.lstBil2.Location = New System.Drawing.Point(264, 148)
Me.lstBil2.Name = "lstBil2"
Me.lstBil2.Size = New System.Drawing.Size(120, 95)
Me.lstBil2.TabIndex = 1
'
'frmMain
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.Purple
Me.ClientSize = New System.Drawing.Size(448, 382)
Me.Controls.Add(Me.lstBil2)
Me.Controls.Add(Me.lstBil1)
Me.Name = "frmMain"
Me.Text = "Listor"
Me.ResumeLayout(False)

End Sub

#End Region



Private Sub lstBil1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstBil1.DoubleClick

End Sub
End Class