Shell Subitem

[madrofiel]

Hey,

Ik ben bezig om een soort van "Game Starter" te maken en nu zit ik met een klein probleempje en ik dacht dat jullie het misschien zouden weten. Ik heb het hele web afgezocht naar dit en ik heb niks gevonden.

Kijk hier zie de form ervan, nu wil ik dat als ik dubbel klik op een app dat hij dan de subitem ervan als Shell gebruikt.

 dim x
x = Shell(?????)

Wat moet ik op die vraagtekens zetten?

 

[Spiderman]

Hoi madrofiel,

Zoiets:

    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Dim itemPoint As Point = ListView1.PointToClient(Cursor.Position)

        ' This is the item that was double-clicked
        Dim selectedItem As ListViewItem = ListView1.GetItemAt(itemPoint.X, itemPoint.Y)

        Dim prc As New Process
        prc.StartInfo.FileName = selectedItem.SubItems(1).Text
        prc.Start()
    End Sub

 

[madrofiel]

hmm als ik nu dubbel klik erop dan start het wel maar ik moet wel op die link drukken hoe kan ik dat uitschakelen dat als ik op die hele item druk dat hij dan start?


EDIT: hij doet het al xD heb gewoon verkeerd zitten kijken

 

[Spiderman]

ListView1.FullRowSelect = True

of False 'whatever you want'

Je kunt het ook instellen bij de properties

 

[madrofiel]

k, ik heb nu dat starten voor mekaar maar nu kom ik op een ander probleem -.- als ik OpenFileDialog1 heb en dan open ik een .exe file die word dan in de lijst gezet maar dan heb je de code OFD.filename maar als ik dit doe (2x) dan krijg ik in bijde columns de hele filepath, ik wil alleen de naam en dan filepath dus wat moet ik dan als eerste doen?

    Private Sub AddGameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGameToolStripMenuItem.Click
        With OFD
            .ShowDialog(Me)
            If .FileName <> "" Then
                Dim lijst As ListViewItem = New ListViewItem()
                lijst.Text = .FileName
                lijst.SubItems.Add(.FileName)
                ListView1.Items.Add(lijst)

                lijst = Nothing
            End If
        end with
    End Sub
End Class

dit is de code tot nu.

 

[Spiderman]

Hoi madrofiel,

Zie code in rood:

Private Sub AddGameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGameToolStripMenuItem.Click
        With OFD
            .ShowDialog(Me)
            If .FileName <> "" Then
                Dim lijst As ListViewItem = New ListViewItem()
                lijst.Text = [COLOR="Red"]System.IO.Path.GetFileNameWithoutExtension(.FileName)[/COLOR]
                lijst.SubItems.Add(.FileName)
                ListView1.Items.Add(lijst)

                lijst = Nothing
            End If
        end with
    End Sub