显示频道
'说明:表单一个;命令按钮一个为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-> 上一篇:解决VisualBasic非正常退出一例 下一篇:Shell 更多相关文章
|
推荐文章
精彩文章
|