首页 > 学院 > 开发设计 > 正文

显示频道

2019-11-18 17:51:41
字体:
来源:转载
供稿:网友
'说明:表单一个;命令按钮一个为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->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表