显示频道_visualbasic教程

说明：表单一个；命令按钮一个为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->