显示频道

　2006-02-27 11:42:11　来源：WEB开发网　　　

核心提示：'说明：表单一个；命令按钮一个为CmdShowChannelOptionExplicitPRivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVal

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