以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]VB代码转FT代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53681)
--  作者：zyqzyy
--  发布时间：2014/7/13 13:33:00
--  [求助]VB代码转FT代码

   请教了：这个代码如何转为FT代码？

private void ResizeOriginal()
         {
             int intWidth = axWindowsMediaPlayer1.currentMedia.imageSourceWidth;
             int intHeight = axWindowsMediaPlayer1.currentMedia.imageSourceHeight;
             axWindowsMediaPlayer1.Width = intWidth + 2;
             axWindowsMediaPlayer1.Height = intHeight + 2;
         }

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
--  作者：有点甜
--  发布时间：2014/7/13 14:01:00
--  

 这个Timer1_Tick就是窗口的计时器。

 

 直接写就行了，把axWindowsMediaPlayer1改成对应的控件。
--  作者：zyqzyy
--  发布时间：2014/7/13 14:09:00
--  
提示：语句不以出现在方法体内 和 应为语句结束
--  作者：有点甜
--  发布时间：2014/7/13 14:11:00
--  

Exit Sub 

改成

 

Return