vb.net中的VLC ActiveX搜索栏帮助

我正在制作一个视频播放器，使用名为“

AxVLCPlugin21

”的VLC ActiveX，因此希望尽可能使其成为现实。所以我想用

Trackbar1

在视频中搜索，用

Label1

搜索

0:0/0:0

格式的时间

据我所知：

Private Sub Timer1\u Tick（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理Timer1.Tick
'计时器运行时，标签文本将设置为函数formattime（）的返回值
使用TrackBar1
.最小值=0
.最大值=AxVLCPlugin21.input.Length
以
Label1.Text=formatTime（AxVLCPlugin21.input.Time）&“/”和formatTime（AxVLCPlugin21.input.Length）
尝试
TrackBar1.Value=AxVLCPlugin21.input.time
特例
结束尝试
端接头
私有子TrackBar1_Scroll（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理TrackBar1.Scroll
AxVLCPlugin21.input.Time=TrackBar1.Value
AxVLCPlugin21.playlist.play（）
端接头
函数formatTime（ByVal timeVal为整数）
Dim timeHour作为整数
作为整数的Dim timeSec
Dim timeMin作为整数
timeHour=Math.Round（timeVal\1000）
timeSec=时间小时Mod 60
如果timeSec<10，则
timeSec=“0”和timeSec
timeHour=（timeHour-timeSec）\60
timeMin=timeHour Mod 60
如果结束
如果timeMin<10，则
timeMin=“0”和timeMin
timeHour=（timeHour-timeMin）\60
如果结束
如果时间小时<0，则
返回timeHour&“：”&timeMin&“：”&timeSec
其他的
返回timeMin&“：”和timeSec
如果结束
端函数

引自

搜索栏工作正常，但包含时间的标签不工作，例如，如果视频播放时间为5分钟，播放视频时，时间在第50秒，则标签将显示

0.50/5.0

，当视频时间为2分55秒时，标签将显示

0.55/5.0

我的观点是，当视频时间超过60秒时，分钟将重置为零

代码中有问题吗？我已经包括了一些额外的信息，比如

Trackbar1\u滚动条

和

Timer1\u勾号

我还希望时间显示为

00:00/00.00

，并且函数没有小时代码，因此任何人都可以帮助我在函数中创建小时，并将时间显示为

00:00/00:00

多谢各位

---

[shannon]

谢谢@Jimi的帮助！