在视频播放之后,可以通过如下方式读取源视频的宽度和高度,然后设置其还原为原始的大小.
         private void ResizeOriginal()
         {
             int intWidth = axWindowsMediaPlayer1.currentMedia.imageSourceWidth;
             int intHeight = axWindowsMediaPlayer1.currentMedia.imageSourceHeight;
             axWindowsMediaPlayer1.Width = intWidth + 2;
             axWindowsMediaPlayer1.Height = intHeight + 2;
         }

打开媒体文件并播放:

         Dim filePath As String
         With Me.OpenFileDialog1
             .Title = "打开语音文件"
             .CheckPathExists = True
             .CheckFileExists = True
             .Multiselect = False
             .Filter = "mp3文件(*.mp3)|*.mp3|所有文件(*.*)|*.*"
             If .ShowDialog = DialogResult.Cancel Then
                 Exit Sub
             End If
             filePath = .FileName
         End With
         Me.Text = "PC复读机-文件 " & filePath
         AxWindowsMediaPlayer1.URL = filePath
         Try
             Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
         Catch ex As Exception
             MsgBox("对不起，不能播放此格式语音文件", MsgBoxStyle.OKOnly, "PC复读机")
             Exit Sub
         End Try

注意:

AxWindowsMediaPlayer1.URL 中URL是表示要播放的文件名,取消了原来的Name属性.

AxWindowsMediaPlayer1.Ctlcontrols.play()播放,同样还有Pause,Stop等其他属性.

AxWindowsMediaPlayer1.settings.balance表示媒体播放的声道设置,0表示均衡,-1和1表示左右声道.

AxWindowsMediaPlayer1.currentMedia.duration 表示要播放的文件的时间长度.可用它获取文件长度.

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition表示正在播放的文件的当前播放位置,可用这个属性来对媒体文件进行前进后退等设置.如

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition+1 表示前进1个时间单位.

AxWindowsMediaPlayer1.settings.rate播放速率,一般乘以16后再显示kbps单位.

注意:在上面程序中,如果在后面加上一个：

msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )

则显示结果很可能为0，因此，这时候很可能获取不到文件的播放时间长度，容易出错。所以在利用的时候可以加一个timer控件：

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         EndPoint = AxWindowsMediaPlayer1.currentMedia.duration
         If EndPoint = 0 Then Exit Sub '可能因为媒体文件的打开需要一定时间，这里等待媒体文件的打开

         msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )

End Sub

此时msgbox便会显示文件播放长度。

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents txtPath As System.Windows.Forms.TextBox
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents lblprompt As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.txtPath = New System.Windows.Forms.TextBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
        Me.lblprompt = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"Pull&Peel", "BookBend Stress", "Abrasion Stress", "Pen Stress", "Page Turning Stress"})
        Me.ComboBox1.Location = New System.Drawing.Point(144, 16)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(360, 21)
        Me.ComboBox1.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(16, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(112, 24)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Machine:"
        '
        'txtPath
        '
        Me.txtPath.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtPath.Location = New System.Drawing.Point(144, 79)
        Me.txtPath.Name = "txtPath"
        Me.txtPath.Size = New System.Drawing.Size(360, 26)
        Me.txtPath.TabIndex = 2
        Me.txtPath.Text = ""
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(8, 72)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(120, 40)
        Me.Button1.TabIndex = 3
        Me.Button1.Text = "Browse..."
        '
        'Button2
        '
        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button2.Location = New System.Drawing.Point(184, 128)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(160, 48)
        Me.Button2.TabIndex = 4
        Me.Button2.Text = "Translate"
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.ProgressBar1.Location = New System.Drawing.Point(0, 183)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(536, 15)
        Me.ProgressBar1.TabIndex = 5
        Me.ProgressBar1.Visible = False
        '
        'lblprompt
        '
        Me.lblprompt.ForeColor = System.Drawing.Color.Red
        Me.lblprompt.Location = New System.Drawing.Point(112, 183)
        Me.lblprompt.Name = "lblprompt"
        Me.lblprompt.Size = New System.Drawing.Size(352, 16)
        Me.lblprompt.TabIndex = 6
        Me.lblprompt.Text = "reading from txt file..."
        Me.lblprompt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblprompt.Visible = False
        '
        'frmFileToExcel
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(536, 198)
        Me.Controls.Add(Me.lblprompt)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.txtPath)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.ProgressBar1)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmFileToExcel"
        Me.Text = "Translator(Only For MCT's Machine)"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim strPath As String

    Private FileInput As FileStream
    Private BinaryInput As BinaryReader
    Dim Index As Integer
    Dim myExcelArray(0) As Array '需要写入EXCEL的数组的数组
    Dim myYArray(65000, 0) As Single '将.TXT文件中的数据读入此数组.
    Dim collumns(255) As String '对应于EXCEL中的列
    Dim myYDataArray(0, 0) As Single '将myYArray(65000, 0)中的实际数据转入此数组. 以便写入EXCEL中的数据是实际读出来的数据
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"
        Me.OpenFileDialog1.ShowDialog()
        strPath = Me.OpenFileDialog1.FileName
        Me.txtPath.Text = strPath
    End Sub
    Private Function ReadFile() As Boolean
        Try
            lblprompt.Visible = True
            Me.lblprompt.Refresh()
            Me.ProgressBar1.Visible = True
            Me.ProgressBar1.Maximum = 100
            Me.ProgressBar1.Minimum = 0
            Me.ProgressBar1.Value = 0
            Index = 0
            Try
                If (FileInput Is Nothing) = False Then
                    FileInput = Nothing
                End If
                If (BinaryInput Is Nothing) = False Then
                    BinaryInput = Nothing
                End If
                If FileInput Is Nothing Then
                    FileInput = New FileStream(strPath, FileMode.Open, FileAccess.Read)
                End If
                If BinaryInput Is Nothing Then
                    BinaryInput = New BinaryReader(FileInput)
                End If
            Catch ex As IOException
                MessageBox.Show("Open File: " & strPath & " Failed!", "Open File Failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
                FileInput.Close()
                BinaryInput.Close()
                lblprompt.Visible = False
                Return False
            End Try
            Dim i As Integer
L:          Try

                If Me.ComboBox1.SelectedIndex = 0 Or Me.ComboBox1.SelectedIndex = 1 Then
                    Dim cycPos As Long
                    cycPos = 65001 * Index
                    i = 0
                    Do
                        FileInput.Seek((i + cycpos) * 50, SeekOrigin.Begin)
                        BinaryInput.ReadInt32()
                        myYArray(i, 0) = BinaryInput.ReadSingle()
                        i += 1
                    Loop
                Else
                    Dim cycPos As Long
                    cycPos = 65001 * Index
                    i = 0
                    Do
                        FileInput.Seek((i + cycPos) * 20, SeekOrigin.Begin)
                        myYArray(i, 0) = BinaryInput.ReadSingle()
                        i += 1
                    Loop
                End If
            Catch ex As Exception
                ReDim myYDataArray(i - 1, 0) '取出实际有用数据
                Array.Copy(myYArray, 0, myYDataArray, 0, i)
                ReDim Preserve myExcelArray(Index)
                myExcelArray(Index) = myYDataArray.Clone '将读出来的数据数组存入用来保存写入EXCEL中的数组的数组
                Array.Clear(myYArray, 0, myYArray.Length)
                Array.Clear(myYDataArray, 0, myYDataArray.Length)
                Index += 1
                If i > 65000 Then
                    GoTo L
                End If
            End Try
            Me.ProgressBar1.Value = 30
            FileInput.Close()
            BinaryInput.Close()
            lblprompt.Visible = False
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            lblprompt.Visible = False
        End Try
        Return True
    End Function
    Private Sub ToExcel()
        '定义相关参数
        Dim m_objExcel As Application
        Dim m_objBook As Workbook
        Dim m_objSheet As _Worksheet

        m_objExcel = CreateObject("Excel.Application")
        m_objBook = m_objExcel.Workbooks.Add
        m_objSheet = m_objBook.Worksheets(1)

        Dim m_objRange As Range
        Dim i As Integer

此代码为边学边试, 写出来的.  在学的过程中,我一直有个问题想问:
如何能将一个一维数组直接写入EXCEL中的某一列中.为何非要用到二维数组来进行.
不明. 如有知道的朋友,请告之.
谢谢!
 

　　好女人应该有一个温柔的胸怀，能让身心俱疲的男人在你的温柔里如沐春雨。女人温柔的胸怀是男人暖暖的家。

　　好女人应该是善解人意、通情达理。在男人需要理解和帮助的时候，以自己柔弱的肩膀撑起男人疲惫的脊梁。

　　好女人应该是理家的一把好手。她一定能做得一手好菜。最好还能为他织一件幸福的毛衣。让外出的男人时时想着家，家里有自己惦记的浓浓温情。

　　好女人应该为男人留一方自己的天空。尊重他即是尊重自己。有时候，做朋友比作妻子更重要。

　　好女人应该为晚归的男人留一盏温馨灯。它能加快男人回家的步履，驱走男人心中夜归的寒意。

　　好女人不仅知道女人的礼仪。更应该知道男人的领带是他品味的象征。

　　好女人有理由让自己的男人每天都精神饱满。不求每天光艳亮丽，也要每天朴素而整洁。那是女人自己的另一张脸。

　　好女人在男人失意的时候，不应该说：“你看你多没用，看人家如何如何。”如果这样，你以前所有的好都打了折扣。好女人应该知道在他失意的时候说什么，要知道你是他潜力的源泉。而当他飞黄腾达的时候，你要学会享受。过份的节俭是你的愚蠢。你要做一个时尚的女人。但不能奢侈过度，你花的是他的心血钱。没有一个男人不喜欢自己老婆光艳亮丽的。以后的日子里，就算他有钱有这样的贱心恐怕也没那样的贱胆。因为他知道你在他的心中是无可替代的.　不能常常说男人的缺点，那样会使他很反感——我那么差，你还缠着我干嘛？除非你真的很想离开他，否则不要这样去伤他的自尊心。(懂得就不该伤害，可能该去安抚而不是指出)

　　不要对小事情斤斤计较，连他迟一点点回你的电话都大发雷霆，他会觉得你不懂得体谅他人，不通情达理，没法跟你生活一辈子。(善解人意，谅解可能会比计较来的好些)

　　不要对男人逼供，每个人都可以有自己的秘密，他不想说的就让他沉默吧。有些事情说出来，只会大家都很受伤。(对，我老爱问些什么，结果反而不开心，改的了就好了)

　　爱情不是游戏，爱情很脆弱，不要去考验你的他，其实，没有多少男人是可以禁得起真正的考验的。本来风平浪静，一旦你使用一些小机谋去考验他，反而可能激起千层浪，一发不可收拾。例如常常以分手相要挟，例如派个美女好友进行色诱进行考验，这只会让他讨厌你。(这我可干不出了，色诱太威胁了.)

　　不要利用自己的吵闹功力，厉害的女人只会让男人避而远之。温柔和撒娇才是法宝，可怜兮兮需要保护的女孩最讨男人喜欢。(温柔哦...我不太会啊..但可以试试!会很恶心被鄙视哦!)

　　不要企图捆住男人，时时查他的行踪，翻查他私人的东西。男人会认为失去了自由，没有男人心甘情愿为了一个女人放弃自由。(我给你自由，只有不要迷失自我就可以)

　　不要耍小聪明，他比你聪明，他只会在心里嘲笑你。傻傻的女孩会让男人有优越感，他们会觉得这样的女孩很可爱。(我是真的挺聪明的，怎么办..呵呵)

　　不要显得很坚强。适当地用眼泪，但不能滥用。微微抽泣，或者转身默默掉泪，或含泪而强颜欢笑，都会令男人心生爱怜之心。(眼泪哦!我总是流不完...该如何是好呢?)

不要过度地撒娇，适度就好，否则就变得毫不讲理。而且时机要恰当，不要在他心烦意乱的时候还不识趣的乱说话。(我不会..沉默是金，但可能我自己说的太少了)

　　一点点醋劲会让他觉得你在乎他，但不要无缘无故的疑神疑鬼。要信任他，爱情总是建立在信任基础之上的。(我有时会吃醋那..可是我尽力克制自己了...)

　　不要过于频繁的吵架，即使是小的吵架，凡事都是积少成多的。偶尔的小吵架，不是要你去责备他，而是要去显得委屈和悲伤，让他更懂得爱怜你。吵架要给自己留后路，不要把事情做绝，不要把话说绝。(不吵了不吵了...我再不吵架了)

　　不要只在他的生活中扮演一种角色，要懂得看时机行事，时而如母亲般呵护，时而像女儿般依偎，时而像偶像一般崇拜，时而像老师一样成熟。(呵呵，我知道)

　　不要粘着他，对他若即若离，让他牵挂你，然后他才会珍惜你的温柔妩媚。(他会吗?恩)

　　不能对别的男人也像对他一样。要让他知道，你的所有一切，只为了他才这样。在你身边，让他觉得他是特别的，他就会不离开你。(我很毅气的，朋友也很重要啊..看来要不一样也麻烦，我尽力)

　　不能穿着太暴露和花哨，只会降低你在他心中的地位。一个男人，如果他对你真心，都希望你是个能出得厅堂的大方得体的女人，他把你带出去他会有面子。(哦..我觉得还可以啦..我就爱穿了那)

　　不要因为熟悉，不重视自己的打扮，即使在家里也不要邋邋遢遢。高雅美丽的女人永远令人舒服和心动，还要透出一种含蓄的性感。(这个我很注意的)

　　不要整天板着脸，故装忧郁，有趣的女人令人愉快。谁都希望能开心快乐的生活，不要让男人觉得跟你在一起很无聊。(我忧郁才忧郁，从不故做忧郁，我不希望他给我带来忧郁)

　不要陷在爱情里出不来，爱情一开始靠激情，但要维持就要靠智慧，要用理智控制自己的行为，聪明的女人才能得到自己想要的幸福。往往女人在热恋是会变得很愚蠢，最后导致失去自己爱的人。男人如果远走高飞，如果你真的爱他，不要令寻新欢，这回让他真的离开你。(我明白我是谁?)

　　千万不要在爱情中丧失理智。(永恒的聪明，可是也不能一辈子)

　　不要朝三暮四，专一的女人男人才感动心要与之过一辈子。(开始专一了，不变了)

　　不要不在乎他的付出，他是爱你的，爱的方式可能不一样，但你一定要珍惜他对你的爱。(我在乎)

　　不要拿别的男人与你的他做比较，尤其不要赞扬他人贬低他。(永远是你最厉害)

　　不要过分赞扬他的外貌，男人不希望以外貌赢得女人的爱。尤其是一个他想一辈子在一起的女人，如果只爱他的外表，他会感到不安全。(虽然长的不错，但是喜欢被疼)

　　不要对他坦白你的恋爱史，即使要说，也不要仔细描述，没有男人受得了你还非常怀念你以前的恋人。(愿意忘记一切，从开始到现在)

　　不要以为你不能理解的就是错误的，男人和女人是不同的。不要企图改变他，如果他事事真的都顺着你，那你还会喜欢他吗。(我不会，我会指出错误的)

　　不要以为他不细心，不要随便乱说话，即使是小事也要仔细考虑(现在开始好了，相信自己)

二、男人篇：如果做一个好男人

　　1、有一个相爱的人是最好的。但是不要为了没有，就像个皇帝一样把身边的女子当成嫔妃来选，这是对你智商的侮辱。难道你没有判断力吗？

　　2、打什么都别打女人。打了，你就什么理由都没有了。

　　3、伤什么都别伤女人的心。伤了一个女人的心，你身边可能会有200个女人恨你。

　　4、不要用女朋友的数量来显示你的魅力。你完全可以用事业和业绩来展示你的优秀。

　　5、再不漂亮的女人跟你说话时，也请你不要三心二意，敲桌子发短信转头看别的女人，你会因此失去很多风度。

　　6、喝点酒是可以的，但是不必逢喝必醉。没有女人喜欢一个整日醉醺醺的男人，尽管你说那是你的应酬，你躲不开。

　　7、学会帮女人做家务。一个回家就只是躺在沙发上等待老婆开饭的男人，会让婚姻生活淡的比白开水还无味。

　　8、陪你心爱的人逛街，微笑着对她逛街的耐力表示赞赏。

　　9、如果你爱一个人，请你温柔的呵护她；如果不爱，直说。女人都很傻的，从她爱上你的那一刻，便身心俱付。但是要小心这种无怨无悔，最后也可能由于你的自我满足却不愿意负责任毁掉你的人生。

　　10、帮你爱的人买礼物。你赚钱为了什么？况且一个真正爱你的人是不会乱花你的钱的。如果你很不幸遇见一个挥霍无度的女子，请她离开你，她不爱你，包括你的钱。

　11、不要在任何女人说黄色段子。让别人将你看成一个没有修养的人实在是件得不偿失的事情。

　　12、可以下班后在外面逗留。但是你心里要想着，如果你爱的人也和你一样长久逗留在外面，你是什么感觉？

　　13、不要真的以为得不到的才是最好的。得不到的东西，当你穷尽心思得到后，可能会更失望，还不如好好珍惜现在拥有的。

　　14、记住一个原则：女士优先。

　　15、你工作太忙，但是打个电话给你心爱的人，不会花掉你太多时间或者令你死掉。

　　16、女人是用来疼的。如果你没有把握让一个女人幸福，请你闭口说爱她。

　　17、女人化妆不碍你的事。即使对方化的浓妆让你睁不开眼，也要微笑着给你的建议，而不是有厌恶的表情。

　　18、女人问你想吃什么，不要说随便。告诉他你喜欢吃她的做的某个菜，这样你不仅能吃的可口，还会得到很多温柔和笑容。