Lage prog. der en film popper opp.

[Radi]

Jeg lurer på hvordan jeg kan lage et program som har en film som popper opp.

Hadde det gått ann å laget noe sånt i visual basic.

Hvis ikke, hvilket program da ? Og hvor får jeg lastet det ned ?

 

Takk for alle svar !!

[trrunde]

shell kommandoen kan brukes så åpnes avspillingsprogrammet for video, og spiller av filmen.

[chod]

du prøver igjen ja Radi, er du heilt dum eller?

Det var vel ein grunn til at ditt forige emne blei stengt, sjølv om du no ikkje spør om det samme, er det jo heilt åpenlyst at du prøver på det samme.

tulling

Endret 4. juli 2005 av chod

[data971]

Ikke for å si imot Jankee og chod men vis du skal vise en film kan du jøre som Trrunde bruk Shell komandoen eks:

 

Private Sub Form_Load()
Me.Hide
Timer1.Interval = 50000 'Dette vil gjøre sånn at koden kjører etter 50 sekunder! 1000 =  1sekund.
End Sub

 

Private sub Timer1_Timer()
Shell "C:\Documents and settnings\EnBruker\Mine dokumenter\EnMappe\Blod.mpeg
'Koden over ^ Er et eksempel. Du endrer alt etter Shell til filen du vil spille av!
Timer1.Enabled = False
End sub

 

Du kan også skrive om koden over ^ slik at programet avslutter etter det har startet filmen, det kan jo kansje være lurt:

 

Private sub Timer1_Timer()
Shell "C:\Documents and settnings\EnBruker\Mine dokumenter\EnMappe\Blod.mpeg
End
End sub

 

'OBS: Jeg bruker "VB 6.0" Har ikke testet dette! Men skal virke!

Endret 4. juli 2005 av data971

[aadnk]

Du kan ikke benytte Shell-kommandoen for å eksevere filer - denne kommandoen fungere utenlukkende på applikasjoner. En må i stedet benytte ShellExecute:

 

' Benyttes for å eksekvere en fil

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

 

' Applikasjonen vises som normalt

Const SW_SHOWNORMAL = 1

 

Public Sub ExecuteFile(sFile As String, Optional Flag As Long = SW_SHOWNORMAL)

 

    ' Denne kommandoen vil eksekvere den korrekte applikasjonen med filstien

    ShellExecute Me.hwnd, vbNullString, sFile, vbNullString, vbNullString, Flag

 

End Sub

 

For å åpne en fil kjører du følgende kommandolinje:

 

ExecuteFile "K:\Filmer\EnFilm.avi"

[Radi]

Er det noen som kan forklare meg det aadnk sa ?

Jeg er ikke så god på å bruke Visual basic.

[GenericName]

...

Endret 11. januar 2011 av Token

[GeirGrusom]

DirectShow