显示频道
'说明：表单一个；命令按钮一个为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非正常退出一例
精彩图集
精彩文章