锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net图片播放器 vb打开图片

IT技术mciSendStrin

用VB.NET 做个多媒体播放器?。能播放ATI格式的文件能看MTV就行了方法只是添加一个播放器控件，再改它的属性就可以了.
添加播放器控件的方法：在窗体设计模式中 ， 右键单击”工具箱”－＞”WINDOWS 窗体” ， 选择”添加／移除项”，再选择”COM组件”标签找到”WINDOWS MEDIA PLAYER”项，选上.最后把添加了控件放到窗体中就行了.
我没有ATI格式的文件也不知道MEDIA PLAYER能放不 ， 不行的话用别的控件试试，比如REALPLAYER.
邮件我已经发过去了.
简单的播放器用vb.net怎么做啊右击工具箱/部件/WindowsMediaPlayer
//类模块Mmedia
Option Explicit
'-----------------------------------------------------
'Name:MMedia.cls
'Author:Peter Wright, For BG2VB4BG2VB5
'
'Notes:A multimedia class, which when turned
':into an object lets you load and play
':multimedia files, such as sound and
':video.
'-----------------------------------------------------
' -=-=-=- PROPERTIES -=-=-=-
' FilenameDetermines the name of the current file
' LengthThe length of the file (Read Only)
' PositionThe current position through the file
' StatusThe current status of the object (Read Only)
' WaitTrue/False...tells VB to wait until play done
' -=-=-=- METHODS -=-=-=-=-
' mmOpen FilenameOpens the requested filename
' mmCloseCloses the current file
' mmPausePauses playback of the current file
' mmStopStops playback ready for closedown
' mmSeek PositionSeeks to a position in the file
' mmPlayPlays the open file
'-------------------------------------------------------------
' NOTES
' -----
'
' Open a file, then play it. Pause it in response to a request
' from the user. Stop if you intend to seek to the start and
' play again. Close when you no longer want to play the file
'--------------------------------------------------------------
Private sAlias As String' Used internally to give an alias name to
' the multimedia resource
Private sFilename As String' Holds the filename internally
Private nLength As Single' Holds the length of the filename
' internally
Private nPosition As Single' Holds the current position internally
Private sStatus As String' Holds the current status as a string
Private bWait As Boolean' Determines if VB should wait until play
' is complete before returning.
'------------ API DECLARATIONS -------------
'note that this is all one code line:
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
Public Sub mmOpen(ByVal sTheFile As String)
' Declare a variable to hold the value returned by mciSendString
Dim nReturn As Long
' Declare a string variable to hold the file type
Dim sType As String
' Opens the specified multimedia file, and closes any
' other that may be open
If sAlias"" Then
mmClose
End If
' Determine the type of file from the file extension
Select Case UCase$(Right$(sTheFile, 3))
Case "WAV"
sType = "Waveaudio"
Case "AVI"
sType = "AviVideo"
Case "MID"
sType = "Sequencer"
Case Else
' If the file extension is not known then exit the subroutine
Exit Sub
End Select
sAlias = Right$(sTheFile, 3)Minute(Now)
' At this point there is no file open, and we have determined the
' file type. Now would be a good time to open the new file.
' Note: if the name contains a space we have to enclose it in quotes
If InStr(sTheFile, " ") Then sTheFile = Chr(34)sTheFileChr(34)
nReturn = mciSendString("Open "sTheFile" ALIAS "sAlias _
" TYPE "sType" wait", "", 0, 0)
End Sub
Public Sub mmClose()
' Closes the currently opened multimedia file
' Declare a variable to hold the return value from the mciSendString
' command
Dim nReturn As Long
' If there is no file currently open then exit the subroutine
If sAlias = "" Then Exit Sub
nReturn = mciSendString("Close "sAlias, "", 0, 0)
sAlias = ""
sFilename = ""
End Sub
Public Sub mmPause()
' Pause playback of the file
' Declare a variable to hold the return value from the mciSendString
' command
Dim nReturn As Long
' If there is no file currently open then exit the subroutine
If sAlias = "" Then Exit Sub
nReturn = mciSendString("Pause "sAlias, "", 0, 0)
End Sub
Public Sub mmPlay()
' Plays the currently open file, from the current position
' Declare a variable to hold the return value from the mciSendString
' command
Dim nReturn As Long
' If there is no file currently open, then exit the routine
If sAlias = "" Then Exit Sub
' Now play the file
If bWait Then
nReturn = mciSendString("Play "sAlias" wait", "", 0, 0)
Else
nReturn = mciSendString("Play "sAlias, "", 0, 0)
End If
End Sub
Public Sub mmStop()
' Stop using a file totally, be it playing or whatever
' Declare a variable to hold the return value from mciSendString
Dim nReturn As Long
【vb.net图片播放器 vb打开图片】' If there is no file currently open then exit the subroutine
If sAlias = "" Then Exit Sub
nReturn = mciSendString("Stop "sAlias, "", 0, 0)
End Sub
Public Sub mmSeek(ByVal nPosition As Single)
' Seeks to a specific position within the file
' Declare a variable to hold the return value from the mciSendString
' function
Dim nReturn As Long
nReturn = mciSendString("Seek "sAlias" to "nPosition, "", 0, 0)
End Sub
Property Get Filename() As String
' Routine to return a value when the programmer asks the
' object for the value of its Filename property
Filename = sFilename
End Property
Property Let Filename(ByVal sTheFile As String)
' Routine to set the value of the filename property, should the programmer
' wish to do so. This implies that the programmer actually wants to open
' a file as well so control is passed to the mmOpen routine
mmOpen sTheFile
End Property
Property Get Wait() As Boolean
' Routine to return the value of the object's wait property.
Wait = bWait
End Property
Property Let Wait(bWaitValue As Boolean)
' Routine to set the value of the object's wait property
bWait = bWaitValue
End Property
Property Get Length() As Single
' Routine to return the length of the currently opened multimedia file
' Declare a variable to hold the return value from the mciSendString
Dim nReturn As Long, nLength As Integer
' Declare a string to hold the returned length from the mci Status call
Dim sLength As String * 255
' If there is no file open then return 0
If sAlias = "" Then
Length = 0
Exit Property
End If
nReturn = mciSendString("Status "sAlias" length", sLength, 255, 0)
nLength = InStr(sLength, Chr$(0))
Length = Val(Left$(sLength, nLength - 1))
End Property
Property Let Position(ByVal nPosition As Single)
' Sets the Position property effectively by seeking
mmSeek nPosition
End Property
Property Get Position() As Single
' Returns the current position in the file
' Declare a variable to hold the return value from mciSendString
Dim nReturn As Integer, nLength As Integer
' Declare a variable to hold the position returned
' by the mci Status position command
Dim sPosition As String * 255
' If there is no file currently opened then exit the subroutine
If sAlias = "" Then Exit Property
' Get the position and return
nReturn = mciSendString("Status "sAlias" position", sPosition, 255, 0)
nLength = InStr(sPosition, Chr$(0))
Position = Val(Left$(sPosition, nLength - 1))
End Property
Property Get Status() As String
' Returns the playback/record status of the current file
' Declare a variable to hold the return value from mciSendString
Dim nReturn As Integer, nLength As Integer
' Declare a variable to hold the return string from mciSendString
Dim sStatus As String * 255
' If there is no file currently opened, then exit the subroutine
If sAlias = "" Then Exit Property
nReturn = mciSendString("Status "sAlias" mode", sStatus, 255, 0)
nLength = InStr(sStatus, Chr$(0))
Status = Left$(sStatus, nLength - 1)
End Property
//窗体fm
Dim m As New Mmedia
Dim fn
Private Sub Command1_Click()
On Error GoTo r
dlg.ShowOpen
fn = dlg.Filename
m.mmOpen fn
r:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo rp
m.mmPlay
rp:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command3_Click()
On Error GoTo rap
m.mmPause
rap:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command4_Click()
On Error GoTo racp
m.mmStop
racp:
If Err Then MsgBox Err.Description
End Sub
vb.net中的mediaplay控件播放视频有图像无声音，何解？该控件调用的是你的电脑上的播放器
Windows Media Player本身支持的视频格式很少（有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz.vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ），而且您的计算机上面必须安装很多解码器才能完全支持这些格式,所以您下载的电影有可能不能播放 。
如果您想让Windows Media Player支持不仅以上格式，而且支持几乎所有视频格式，就请您下载安装完美解码这款软件，安装完后，在Windows Media Player的主菜单（鼠标右键Windows Media Player窗口的顶端）当中选择工具--选项--DVD选项卡--高级--在弹出来的对话框中选择“编码解码器”选项卡，在右面一侧把显示“未启用”字样的全部改为“libavcodec”字样 ， 单击确定，然后，您会发现Windows Media Player支持很多格式（包括播放DVD、3GP）
用VB.NET编多媒体播放器我这里有一段前段时间写的测试代码，使用WMPLib类，中间有你需要的功能 ， 你可以参考下:
使用wmp.currentMedia.duration和wmp.currentMedia.durationString分别以double和string获得当前媒体的播放时间，使用wmp.settings.volume设置音量大小，使用wmp.controls.currentPosition设置当前播放时间点
Imports WMPLib
Public Class FrmMain
Dim WithEvents wmp As WMPLib.WindowsMediaPlayer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wmp = New WMPLib.WindowsMediaPlayer()
TextBox1.Text = TextBox1.TextvbCrLf"当前播放状态:"wmp.status
wmp.uiMode = "Mini"
wmp.settings.balance = 1
wmp.enableContextMenu = True
wmp.fullScreen = False
wmp.windowlessVideo = True
wmp.enabled = True
Dim wmpMediaList As IWMPPlaylist = wmp.newPlaylist("默认播放列表", "")
Dim wmpMedia As IWMPMedia = wmp.newMedia(My.Computer.FileSystem.CurrentDirectory"\Human.mp3")
With wmpMediaList
.appendItem(wmpMedia)
End With
'wmp.URL = "\\192.168.1.247\sharoncn\music\Human.mp3"
wmp.currentMedia = wmpMedia
wmp.settings.autoStart = True
tBarPlay.Value = https://www.04ip.com/post/0
ListBox1.Items.Add(wmpMediaList.name)
ListBox1.SelectedIndex = 0
ListBox2.Items.Add(wmpMediaList.Item(0).name)
ListBox2.SelectedIndex = 0
tbar.Maximum = 100
tbar.Value = https://www.04ip.com/post/50
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub wmp_PlayStateChange(ByVal NewState As Integer) Handles wmp.PlayStateChange
tBarPlay.Maximum = wmp.currentMedia.duration * 10
Label1.Text = "总时间:"wmp.currentMedia.durationString
TextBox1.Text = TextBox1.TextvbCrLf"当前播放状态："NewState
If NewState = 1 Then
wmp.controls.play()
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.SelectionStart = Len(TextBox1.Text)
TextBox1.ScrollToCaret()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = "当前播放进度:"wmp.controls.currentPositionString
tBarPlay.Value = https://www.04ip.com/post/CInt(wmp.controls.currentPosition * 10)
End Sub
Private Sub tbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbar.Scroll
wmp.settings.volume = tbar.Value
End Sub
Private Sub tBarPlay_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBarPlay.Scroll
wmp.controls.currentPosition = tBarPlay.Value / 10
End Sub
End Class
vb.net图片播放器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb打开图片、vb.net图片播放器的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：老人手机怎么插卡，老年手机怎么插卡

    下一篇：历史策略角色扮演游戏，策略角色扮演类游戏