显示频道

2018-06-17 17:13:00来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

'说明:表单一个;命令按钮一个为CmdShowChannel

OptionExplicit

PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong

PrivateSubCmdShowChannel_Click()

DimretValAsLong

retVal=ShellExecute(Me.hwnd,"Open","查看频道.scf","","",1)

EndSub->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:利用INI文件给程序创建动态菜单

下一篇:用VB实现全屏幕图形界面及动态功能提示