Shell проблем...

Private Sub Command1_Click()

  Shell List2.List(List2.ListIndex)

End Sub



Private Sub Command2_Click()

  End

End Sub



Private Sub Form_Load()

  List1.AddItem "Worms 3D"

  List1.AddItem "Fifa 2004"

  List1.AddItem "Freedom Fighters"

  List2.AddItem "c:\games\worms\worms2.exe"

  List2.AddItem "D:\Games\Fifa 2004\fifa2004.exe"

  List2.AddItem "D:\Games\Freedom Fighters\Freedom.Exe"

End Sub



Private Sub Image1_Click()



End Sub



Private Sub List1_Click()

  Select Case List1.ListIndex

    Case 0

      Image1.Picture = _

        LoadPicture("D:\FTP\!Games\Full Games\Worms 3D\Worms 3D Cover Ftont.jpg")

    Case 1

      Image1.Picture = _

        LoadPicture("D:\FTP\!Games\Full Games\Fifa 2004\Fifa 2004 cover front.jpg")

    Case 2

      Image1.Picture = _

        LoadPicture("D:\FTP\!Games\Full Games\Freeadom fighters\Freedom Fighters Cover Front.jpg")

    Case 3

      Image1.Picture = _

        LoadPicture("")

  End Select

  

  List2.ListIndex = List1.ListIndex

  Image1.Visible = True

End Sub

Значи опитвам се да си напиша програма с която да си стартирам игрите и
програмите в сличая игрите... Направил съм така че като селектирам игра от
List Box-a да ми показва облошката във Image1 също така и като натисна
команд бутона да ми пуска селектираната от мен игра... това добре но като
ми пусне играта и след няколко секунди ме изхвърля за какво става така някои
може ли да ми помогне ???

Понеже ти обещах да проверя, и се ровя от време на време по клубовете в другите портали, ето какво ти намерих.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

(ByVal HWND As Long, ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long 



Private Sub Command1_Click() 

  Call ShellExecute(0&, vbNullString, "C:\Program Files\GetRight\getright.exe", _

    vbNullString, vbNullString, vbNormalFocus) 

End Sub 

Оттук нататък ще се оправиш. Основата вече я написахме. ;о) Просто заместваш Shell със ShellExecute.

----------------------------------
помислих, хареса ми, помислих пак...

според мен проблема не е в програмата. По-рано и аз правих програма на същия принцип, само че без иконки и с един лист бокс. Всичко си беше на 6.
Ако искаш мога да ти пратя кода да го видиш

Да ако може постни кода да го разгледам, че и с това което ми го прати Щиpлиц нещо не се получава, пак ме изхвърля от игрите...

Благодаря предварително