Panorama
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
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 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 -
deutschland-panorama.de/staedte/bamberg/ps/1_110_04.php
sowas meine ich brauch natürlich nicht so genau sein nur grob und ich wollte frasgen ob das überhaupt geht (glaube eher nich)
freue mich auf antworten -
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
- So kann man AVI Filme in einer PictureBox abspielen lassen.
- Code:
- Imports System.Runtime
- Imports System.Runtime.InteropServices
- Imports Microsoft.VisualBasic
- Public Class Form1
- Public filename As String
- Public Breite As Integer
- Public Hohe As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- filename = "c:\filme\FILEMOVE.avi"
- Dim AVIInfo As New AVI(filename)
- With AVIInfo
- Breite = .Width
- Hohe = .Height
- ' MsgBox("Höhe x Breite: " & CStr(.Height) & " x " & CStr(.Width) & vbCrLf & _
- ' "Spieldauer: " & CStr(.Length) & " Sekunden" & vbCrLf & _
- ' "mm:ss: " & .FormatLength() & vbCrLf & _
- ' "hh:mm:ss: " & .FormatLength("HH:mm:ss"))
- End With
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- filename = "C:\filme\DOWNLOAD.AVI"
- ' filename = "c:\filme\FILEMOVE.avi"
- Dim AVIInfo As New AVI(filename)
- With AVIInfo
- Breite = .Width
- Hohe = .Height
- MsgBox("Höhe x Breite: " & CStr(.Height) & " x " & CStr(.Width) & vbCrLf & _
- "Spieldauer: " & CStr(.Length) & " Sekunden" & vbCrLf & _
- "mm:ss: " & .FormatLength() & vbCrLf & _
- "hh:mm:ss: " & .FormatLength("HH:mm:ss"))
- End With
- End Sub
- Private Declare Function mciSendString Lib "winmm.dll" _
- Alias "mciSendStringA" ( _
- ByVal lpstrCommand As String, _
- ByVal lpstrReturnString As String, _
- ByVal uReturnLength As Long, _
- ByVal hwndCallback As Long) As Long
- Private Declare Function GetShortPathName Lib "kernel32" _
- Alias "GetShortPathNameA" ( _
- ByVal lpszLongPath As String, _
- ByVal lpszShortPath As String, _
- ByVal cchBuffer As Long) As Long
- ' AVI-File ”ffnen
- Private Sub AVI_Open(ByVal sFile As String)
- Dim sBuffer As String = Nothing
- sBuffer = sBuffer * 256
- Dim nResult As Long
- ' DOS-Namen ermitteln (8.3-Format)
- nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
- ' sFile = Microsoft.VisualBasic.Left(sBuffer, nResult)
- ' AVI öffnen
- ' öffnet ein Gerät und eine Multimedia-Datei
- mciSendString("open " & sFile & " type avivideo" & " alias myAVI", 0, 0, 0)
- ' Anzeige in der PictureBox
- mciSendString("window myAVI handle " & CStr(PictureBox1.Handle), 0, 0, 0)
- End Sub
- ' AVI in PictureBox abspielen
- Private Sub AVI_Play()
- mciSendString("play myAVI from 0", 0, 0, 0)
- End Sub
- ' Abspielvorgang stoppen
- Private Sub AVI_Stop()
- mciSendString("close myAVI", 0, 0, 0)
- End Sub
- ' MCI Schließen
- Private Function AVI_Close()
- mciSendString("close myAVI", 0, 0, 0)
- End Function
- ' Abspielvorgang beenden und MCI schlieáen
- Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
- AVI_Stop()
- AVI_Close()
- End Sub
- ' AVI öffnen und abspielen
- Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
- 'Dim sFile As String
- ' Dateiname
- 'sFile = filename
- ' MCI ”ffnen
- Me.Width = Breite + 80
- Me.Height = Hohe + 30
- PictureBox1.Width = Breite
- PictureBox1.Height = Hohe
- AVI_Open(filename)
- ' Abspielvorgang starten
- AVI_Play()
- End Sub
- End Class
- Public Class AVI
- ' benötigte API-Deklarationen
- Private Declare Auto Function AVIFileOpen Lib "avifil32" ( _
- ByRef ppfile As Integer, _
- ByVal szFile As String, _
- ByVal mode As Integer, _
- ByVal pclsidHandler As Integer) As Integer
- Private Declare Auto Function AVIFileRelease Lib "avifil32" ( _
- ByVal pfile As Integer) As Integer
- Private Declare Auto Function AVIFileInfo Lib "avifil32" ( _
- ByVal pfile As Integer, _
- ByRef pfi As AVIInfo, _
- ByVal lSize As Integer) As Integer
- Private Declare Auto Sub AVIFileInit Lib "avifil32" ()
- Private Declare Auto Sub AVIFileExit Lib "avifil32" ()
- ' AVI Info-Struktur
- <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
- Private Structure AVIInfo
- Public dwMaxBytesPerSec As Integer
- Public dwFlags As Integer
- Public dwCaps As Integer
- Public dwStreams As Integer
- Public dwSuggestedBufferSize As Integer
- Public dwWidth As Integer
- Public dwHeight As Integer
- Public dwScale As Integer
- Public dwRate As Integer
- Public dwLength As Integer
- Public dwEditCount As Integer
- <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)> _
- Public szFileType As String
- End Structure
- ' Eigenschaften
- Private _Length As Integer
- Private _Width As Integer
- Private _Height As Integer
- ''' <summary>
- ''' Erstellt eine neue Instanz der Klasse und liest die AVI-Informationen
- ''' der übergebenenen AVI-Datei aus.
- ''' </summary>
- ''' <param name="Filename">Dateiname des AVI-Files</param>
- Public Sub New(ByVal Filename As String)
- Dim hFile As Integer
- Dim AviInfo As New AVIInfo
- ' Fehlerbehandlung aktivieren
- Try
- ' Initialisieren
- AVIFileInit()
- ' AVI öffnen (Handle erstellen)
- If AVIFileOpen(hFile, Filename, &H20, 0&) = 0 Then
- ' Infos lesen
- If AVIFileInfo(hFile, AviInfo, Marshal.SizeOf(AviInfo)) = 0 Then
- With AviInfo
- _Width = .dwWidth
- _Height = .dwHeight
- _Length = .dwLength / .dwRate * .dwScale
- End With
- End If
- End If
- Catch ex As Exception
- Finally
- ' Beenden
- AVIFileExit()
- If hFile <> 0 Then AVIFileRelease(hFile)
- End Try
- End Sub
- ''' <summary>
- ''' Gibt die Breite der animierten Bildsequenz zurück.
- ''' </summary>
- Public ReadOnly Property Width() As Integer
- Get
- Return _Width
- End Get
- End Property
- ''' <summary>
- ''' Gibt die Höhe der animierten Bildsequenz zurück.
- ''' </summary>
- Public ReadOnly Property Height() As Integer
- Get
- Return _Height
- End Get
- End Property
- ''' <summary>
- ''' Gibt die Spieldauer der animierten Bildsequenz in Sekunden zurück.
- ''' </summary>
- Public ReadOnly Property Length() As Integer
- Get
- Return _Length
- End Get
- End Property
- ''' <summary>
- ''' Gibt die Spieldauer im Format mm:ss zurück.
- ''' </summary>
- Public ReadOnly Property FormatLength() As String
- Get
- Return CDate("00:00:00").AddSeconds(_Length).ToString("mm:ss")
- End Get
- End Property
- ''' <summary>
- ''' Gibt die Spieldauer im angegebenen Format zurück.
- ''' </summary>
- ''' <param name="Format">Formatierungsstring, z.B. HH:mm:ss</param>
- Public ReadOnly Property FormatLength(ByVal Format As String) As String
- Get
- Return CDate("00:00:00").AddSeconds(_Length).ToString(Format)
- End Get
- End Property
- End Class
- Der Programm Code ist aus dem Netz. Ich habe ihn getestet und er funktioniert.
-
Wow danke für deine hilfreiche Antwort natürlich bedanke ich mich auch bei dir teddygun300
-
-
teddygun300 schrieb:
für den anfang würde ich mir aber ein paar weniger bilder nehmen als auf der internetseite da XD
-
Benutzer online 1
1 Besucher
-
Ähnliche Themen
-
Tsuyo - - Off-Topic
-
MarkusxX25 - - Off-Topic
-
AKW Fukushima Daiichi - Kernschmelze?
mcandy007 - - Off-Topic
-
-
1 Benutzer hat hier geschrieben
- Gast (7)