显示频道
'说明:表单一个;命令按钮一个为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->
OptionExplicit
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
PrivateSubCmdShowChannel_Click()
DimretValAsLong
retVal=ShellExecute(Me.hwnd,"Open","查看频道.scf","","",1)
EndSub->
- 上一篇:Shell
- 下一篇:解决VisualBasic非正常退出一例
精彩图集
精彩文章