龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

显示频道

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
'说明:表单一个;命令按钮一个为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->

精彩图集

赞助商链接