- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - （建议采用1024×768分辨率，以达到最佳视觉效果） Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
显示频道
作者：黑客防线网安VB教程基地 来源：黑客防线网安VB教程基地 浏览次数：0 |
黑客防线网安网讯：'说明：表单一个；命令按钮一个为CmdShowChannel OptionExplicit PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOpe...
'说明：表单一个；命令按钮一个为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->
黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-14524-1.html
新闻栏目
| 我要申请本站：N点 | 黑客防线官网 | |
| 专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479 |