显示频道
2006-02-27 11:42:11 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣椤愯姤鎱ㄥ鍡楀幊缂傚倹姘ㄩ幉绋款吋閸澀缃曢梻鍌欑濠€閬嶆惞鎼淬劌绐楅柡宥庡亞娑撳秵銇勯弽顐沪闁绘挶鍎甸弻锝夊即閻愭祴鍋撻崷顓涘亾濮樼偓瀚�

核心提示:'说明:表单一个;命令按钮一个为CmdShowChannelOptionExplicitPRivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVal
'说明:表单一个;命令按钮一个为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->
更多精彩
赞助商链接