Sera a tutti vorrei far partire un video a schermo pieno, preciso che mi serve per il gioco che sto realizando.
il code che uso è questo:
il problema e che mi da errore in AppPath , come posso risolvere il problema?codice:#Region "library" Imports Microsoft.DirectX Imports Microsoft.DirectX.Direct3D Imports Microsoft.DirectX.DirectDraw Imports Microsoft.DirectX.DirectInput Imports Microsoft.DirectX.DirectSound Imports System Imports System.IO Imports System.Net #End Region Public Class video Public Shared video As AudioVideoPlayback.Video Dim durata As Integer Dim conta As Integer Dim AppPath As Integer Private Sub video_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Windows.Forms.Cursor.Hide() 'Video di Introduzione video = New AudioVideoPlayback.Video(AppPath() & "\Data\VIDEO\filmatoeagle.wmv", False) video.Owner = Me durata = video.Duration Timer1.Start() video.Play() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick conta += 1 If conta = durata Then Timer1.Stop() video.Dispose() End If End Sub