Panorama

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von tt-Studios.

    ehm... wenn ich dich richtig verstehe willst du ein panorama bild als Backgroundimage ?

    das geht so:

    -1 du klickst auch deine WindowsForm in welche du das bild haben willst

    -2 du sichst bei dem punkt "Eigenschaften" unten rechts nach BackgroundImage (unter BackColor)

    -3 du wählst dein bild aus (ist nicht schwer XD)

    -4 jetzt wählst du den punkt "BackgroundimageLayout" aus und dort wählst du anstatt "tile" den punkt "Stretch" aus. somit kannst du dein bild zu einem panorama stretchen :D wenn das bild schon ein panorama ist dann wählst du da einfach Center aus. damit wird das bild proportional in die mitte der Form gemalt :)

    wenn du was ganz anderes meinst sry und ignorier mein beitrag ;D

    Es gibt so ein Ding, AVI in PictureBox.
    Vieleicht versuchst du das mal.
    Sollte dann auch in einem Panel gehen.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. So kann man AVI Filme in einer PictureBox abspielen lassen.
    3. Code:
    4. Imports System.Runtime
    5. Imports System.Runtime.InteropServices
    6. Imports Microsoft.VisualBasic
    7. Public Class Form1
    8. Public filename As String
    9. Public Breite As Integer
    10. Public Hohe As Integer
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. filename = "c:\filme\FILEMOVE.avi"
    13. Dim AVIInfo As New AVI(filename)
    14. With AVIInfo
    15. Breite = .Width
    16. Hohe = .Height
    17. ' MsgBox("Höhe x Breite: " & CStr(.Height) & " x " & CStr(.Width) & vbCrLf & _
    18. ' "Spieldauer: " & CStr(.Length) & " Sekunden" & vbCrLf & _
    19. ' "mm:ss: " & .FormatLength() & vbCrLf & _
    20. ' "hh:mm:ss: " & .FormatLength("HH:mm:ss"))
    21. End With
    22. End Sub
    23. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    24. filename = "C:\filme\DOWNLOAD.AVI"
    25. ' filename = "c:\filme\FILEMOVE.avi"
    26. Dim AVIInfo As New AVI(filename)
    27. With AVIInfo
    28. Breite = .Width
    29. Hohe = .Height
    30. MsgBox("Höhe x Breite: " & CStr(.Height) & " x " & CStr(.Width) & vbCrLf & _
    31. "Spieldauer: " & CStr(.Length) & " Sekunden" & vbCrLf & _
    32. "mm:ss: " & .FormatLength() & vbCrLf & _
    33. "hh:mm:ss: " & .FormatLength("HH:mm:ss"))
    34. End With
    35. End Sub
    37. Private Declare Function mciSendString Lib "winmm.dll" _
    38. Alias "mciSendStringA" ( _
    39. ByVal lpstrCommand As String, _
    40. ByVal lpstrReturnString As String, _
    41. ByVal uReturnLength As Long, _
    42. ByVal hwndCallback As Long) As Long
    43. Private Declare Function GetShortPathName Lib "kernel32" _
    44. Alias "GetShortPathNameA" ( _
    45. ByVal lpszLongPath As String, _
    46. ByVal lpszShortPath As String, _
    47. ByVal cchBuffer As Long) As Long
    48. ' AVI-File ”ffnen
    49. Private Sub AVI_Open(ByVal sFile As String)
    50. Dim sBuffer As String = Nothing
    51. sBuffer = sBuffer * 256
    52. Dim nResult As Long
    53. ' DOS-Namen ermitteln (8.3-Format)
    54. nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
    55. ' sFile = Microsoft.VisualBasic.Left(sBuffer, nResult)
    56. ' AVI öffnen
    57. ' öffnet ein Gerät und eine Multimedia-Datei
    58. mciSendString("open " & sFile & " type avivideo" & " alias myAVI", 0, 0, 0)
    59. ' Anzeige in der PictureBox
    60. mciSendString("window myAVI handle " & CStr(PictureBox1.Handle), 0, 0, 0)
    61. End Sub
    62. ' AVI in PictureBox abspielen
    63. Private Sub AVI_Play()
    64. mciSendString("play myAVI from 0", 0, 0, 0)
    65. End Sub
    66. ' Abspielvorgang stoppen
    67. Private Sub AVI_Stop()
    68. mciSendString("close myAVI", 0, 0, 0)
    69. End Sub
    70. ' MCI Schließen
    71. Private Function AVI_Close()
    72. mciSendString("close myAVI", 0, 0, 0)
    73. End Function
    75. ' Abspielvorgang beenden und MCI schlieáen
    76. Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
    77. AVI_Stop()
    78. AVI_Close()
    79. End Sub
    80. ' AVI öffnen und abspielen
    81. Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
    82. 'Dim sFile As String
    83. ' Dateiname
    84. 'sFile = filename
    85. ' MCI ”ffnen
    86. Me.Width = Breite + 80
    87. Me.Height = Hohe + 30
    88. PictureBox1.Width = Breite
    89. PictureBox1.Height = Hohe
    90. AVI_Open(filename)
    91. ' Abspielvorgang starten
    92. AVI_Play()
    93. End Sub
    94. End Class
    95. Public Class AVI
    96. ' benötigte API-Deklarationen
    97. Private Declare Auto Function AVIFileOpen Lib "avifil32" ( _
    98. ByRef ppfile As Integer, _
    99. ByVal szFile As String, _
    100. ByVal mode As Integer, _
    101. ByVal pclsidHandler As Integer) As Integer
    103. Private Declare Auto Function AVIFileRelease Lib "avifil32" ( _
    104. ByVal pfile As Integer) As Integer
    106. Private Declare Auto Function AVIFileInfo Lib "avifil32" ( _
    107. ByVal pfile As Integer, _
    108. ByRef pfi As AVIInfo, _
    109. ByVal lSize As Integer) As Integer
    111. Private Declare Auto Sub AVIFileInit Lib "avifil32" ()
    112. Private Declare Auto Sub AVIFileExit Lib "avifil32" ()
    114. ' AVI Info-Struktur
    115. <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
    116. Private Structure AVIInfo
    117. Public dwMaxBytesPerSec As Integer
    118. Public dwFlags As Integer
    119. Public dwCaps As Integer
    120. Public dwStreams As Integer
    121. Public dwSuggestedBufferSize As Integer
    122. Public dwWidth As Integer
    123. Public dwHeight As Integer
    124. Public dwScale As Integer
    125. Public dwRate As Integer
    126. Public dwLength As Integer
    127. Public dwEditCount As Integer
    128. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)> _
    129. Public szFileType As String
    130. End Structure
    132. ' Eigenschaften
    133. Private _Length As Integer
    134. Private _Width As Integer
    135. Private _Height As Integer
    137. ''' <summary>
    138. ''' Erstellt eine neue Instanz der Klasse und liest die AVI-Informationen
    139. ''' der übergebenenen AVI-Datei aus.
    140. ''' </summary>
    141. ''' <param name="Filename">Dateiname des AVI-Files</param>
    142. Public Sub New(ByVal Filename As String)
    143. Dim hFile As Integer
    144. Dim AviInfo As New AVIInfo
    146. ' Fehlerbehandlung aktivieren
    147. Try
    148. ' Initialisieren
    149. AVIFileInit()
    150. ' AVI öffnen (Handle erstellen)
    151. If AVIFileOpen(hFile, Filename, &H20, 0&) = 0 Then
    152. ' Infos lesen
    153. If AVIFileInfo(hFile, AviInfo, Marshal.SizeOf(AviInfo)) = 0 Then
    154. With AviInfo
    155. _Width = .dwWidth
    156. _Height = .dwHeight
    157. _Length = .dwLength / .dwRate * .dwScale
    158. End With
    159. End If
    160. End If
    161. Catch ex As Exception
    162. Finally
    163. ' Beenden
    164. AVIFileExit()
    165. If hFile <> 0 Then AVIFileRelease(hFile)
    166. End Try
    167. End Sub
    169. ''' <summary>
    170. ''' Gibt die Breite der animierten Bildsequenz zurück.
    171. ''' </summary>
    172. Public ReadOnly Property Width() As Integer
    173. Get
    174. Return _Width
    175. End Get
    176. End Property
    178. ''' <summary>
    179. ''' Gibt die Höhe der animierten Bildsequenz zurück.
    180. ''' </summary>
    181. Public ReadOnly Property Height() As Integer
    182. Get
    183. Return _Height
    184. End Get
    185. End Property
    187. ''' <summary>
    188. ''' Gibt die Spieldauer der animierten Bildsequenz in Sekunden zurück.
    189. ''' </summary>
    190. Public ReadOnly Property Length() As Integer
    191. Get
    192. Return _Length
    193. End Get
    194. End Property
    196. ''' <summary>
    197. ''' Gibt die Spieldauer im Format mm:ss zurück.
    198. ''' </summary>
    199. Public ReadOnly Property FormatLength() As String
    200. Get
    201. Return CDate("00:00:00").AddSeconds(_Length).ToString("mm:ss")
    202. End Get
    203. End Property
    205. ''' <summary>
    206. ''' Gibt die Spieldauer im angegebenen Format zurück.
    207. ''' </summary>
    208. ''' <param name="Format">Formatierungsstring, z.B. HH:mm:ss</param>
    209. Public ReadOnly Property FormatLength(ByVal Format As String) As String
    210. Get
    211. Return CDate("00:00:00").AddSeconds(_Length).ToString(Format)
    212. End Get
    213. End Property
    215. End Class
    218. Der Programm Code ist aus dem Netz. Ich habe ihn getestet und er funktioniert.

Facebook
Telefonspende