2017-06-04 38 views
0

嗨,伙计们我有一个叫做PlayVideo的功能,它可以在窗体上的按钮的'onclick事件'中工作。如何解析一个字符串从文本框到onclick事件的功能

“onclick事件”是=PlayVideo("C:\Users\Public\Videos\Sample Videos\Lake.wp4")

我需要与任何路径名是在当时的TBox1的“onclick事件”来代替路径名。

的Tbox1被格式化因此字符串是相同的,即:(“H:\暴风雨Weather.mp4”)

我只是不确定如何安装它,所以它工作在“onclick事件”或作为一个子。

谢谢任何​​帮助表示赞赏。

+0

难道你不能只用'= PlayVideo([TBox1])'? – YowE3K

+0

是的,谢谢你,我没有()周围的字段名称,但功能允许一个错误例程,并不能解决如何添加/全屏后没有引号。打开媒体播放器全屏模式似乎不起作用,无论如何,从这里调用它。 – Exi

回答

1

将按钮的OnClick事件更改为“[事件过程]”。这将在文件后面的模块中创建一个例程,如下所示。其余的粘贴。

Private Sub YourButtonName_Click() 
    Dim file_ As String 
     file_ = Me.TBox1.Value 

    'Validate file exists 
    If Len(Dir(file_)) > 0 Then 
     PlayVideo file_ 
    End If 
End Sub 
+0

感谢工作了一件事更多的事情我将如何添加/全屏幕结束它没有引号。 – Exi

+0

did not给全屏无论如何认为vbMaximizedFocus在功能的工作也不得不继续寻找,但再次感谢您的帮助,至少现在它的作品。 – Exi