Ingen VB nørder tilbage

Evt. kommentarer og svar må i gerne komme med her

(start program)

Private Sub Form_Load()
  Shell "c:\Programmer\Visual Basic\VB98.exe", vbNormalFocus
                                              'vbHide
                                              'vbMaximizedFocus
                                              'vbMinimizedFocus
                                              'vbMinimizedNoFocus
                                              'vbNormalFocus
                                              'vbNormalNoFocus
End Sub

Du kan ikke regne med at få et svar/kommentar på 2 eller 4 timer, der kan godt gå et par dage. ;-)

Takker hvad hvis jeg skal åbne en mappe?
(du får dine 35 point svaret, når der er kommet et svar til det andet sp. :))

(start program/mappe)

'---------------------------------- Form1 ----------------------------------
'--- I topen af Form1 ---
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
'--- I topen af Form1 ---

Public Function ShellExe(path As String)
  ShellExecute Me.hwnd, vbNullString, path, vbNullString, vbNullString, 1
End Function

Private Sub Form_Load()
  ShellExe "c:\Programmer\Visual Basic\VB98.exe"
  ShellExe "c:\Programmer\"
End Sub
'---------------------------------- Form1 ----------------------------------

med hensyn til active skin, er du nybegynder i vb ellers kan du da selv lave skins til dine programmer:

http://home.get2net.dk/sjh/eksperten/soundnam.jpg
http://home.get2net.dk/sjh/eksperten/soundnam.zip (kun exefil + skins)

Hej Ducks.

Jeg tror spørgsmålet om start af eksternt program er stillet 10 gange det sidste år. Jeg har selv svaret på det to gange.  Der er jo en søgefunktion på eksperten.  Hvis blot de som stiller spørgsmål skriver hvad det drejer sig om, så giver søgefunktionen også gode træffere.

M.v.h.  Jørn

dim x
x = shell("c:\Programmer\Visual Basic\VB98.exe", vbNormalFocus)

eller noget lign