⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 01_9_13_18.asp.html

📁 有用的VC教程,包括编程思想编程技巧程序效率等方面的指导
💻 HTML
📖 第 1 页 / 共 3 页
字号:
🔍
123 
     hDC=GetDC(hWnd);</td></tr></table><table width=100% ><tr><td class=a14>
     //清除底行</td></tr></table><table width=100% ><tr><td class=a14>
SetRect(&rc,0,GetSystemMetrics(SM_CYSCREEN)-25,</td></tr></table><table width=100% ><tr><td class=a14>
GetSystemMetrics(SM_CXSCREEN),</td></tr></table><table width=100% ><tr><td class=a14>
GetSystemMetrics(SM_CYSCREEN));</td></tr></table><table width=100% ><tr><td class=a14>
     FillRect(hDC,&rc,GetStockObject(BLACK_BRUSH));</td></tr></table><table width=100% ><tr><td class=a14>
     //输出文本</td></tr></table><table width=100% ><tr><td class=a14>
     SetTextColor(hDC,RGB(255*rand(),</td></tr></table><table width=100% ><tr><td class=a14>
        255*rand(),255*rand()));</td></tr></table><table width=100% ><tr><td class=a14>
     SetBkColor(hDC,RGB(0,0,0));</td></tr></table><table width=100% ><tr><td class=a14>
     TextOut(hDC,xpos,GetSystemMetrics(SM_CYSCREEN)-25,</td></tr></table><table width=100% ><tr><td class=a14>
     	SlideText,strlen(SlideText));</td></tr></table><table width=100% ><tr><td class=a14>
     xpos=(xpos+10)%GetSystemMetrics(SM_CXSCREEN);</td></tr></table><table width=100% ><tr><td class=a14>
     ReleaseDC(hWnd,hDC);</td></tr></table><table width=100% ><tr><td class=a14>
     break;</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
    case WM_DESTROY:</td></tr></table><table width=100% ><tr><td class=a14>
     DeleteObject(hBmp);</td></tr></table><table width=100% ><tr><td class=a14>
     KillTimer(hWnd,timerID);</td></tr></table><table width=100% ><tr><td class=a14>
        PostQuitMessage (0);</td></tr></table><table width=100% ><tr><td class=a14>
        return 0;</td></tr></table><table width=100% ><tr><td class=a14>
	}</td></tr></table><table width=100% ><tr><td class=a14>
	return DefScreenSaverProc</td></tr></table><table width=100% ><tr><td class=a14>
    (hWnd,message,wParam,lParam);</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
BOOL WINAPI ScreenSaverConfigureDialog</td></tr></table><table width=100% ><tr><td class=a14>
(HWND hWnd,UINT message,WPARAM wParam,</td></tr></table><table width=100% ><tr><td class=a14>
LPARAM lParam)</td></tr></table><table width=100% ><tr><td class=a14>
{	switch (message)</td></tr></table><table width=100% ><tr><td class=a14>
    {</td></tr></table><table width=100% ><tr><td class=a14>
	case WM_INITDIALOG:</td></tr></table><table width=100% ><tr><td class=a14>
     LoadString(hMainInstance,idsAPPName,</td></tr></table><table width=100% ><tr><td class=a14>
        szSection,sizeof(szSection));</td></tr></table><table width=100% ><tr><td class=a14>
     strcpy(SlideText,"欢迎使用屏幕保护程序!");</td></tr></table><table width=100% ><tr><td class=a14>
     GetPrivateProfileString(szSection,</td></tr></table><table width=100% ><tr><td class=a14>
    szEntry,SlideText,</td></tr></table><table width=100% ><tr><td class=a14>
     SlideText,sizeof(SlideText),szIniFileName); </td></tr></table><table width=100% ><tr><td class=a14>
     SetDlgItemText(hWnd,IDC_EDIT,SlideText);</td></tr></table><table width=100% ><tr><td class=a14>
     SetFocus(GetDlgItem(hWnd,IDC_EDIT));</td></tr></table><table width=100% ><tr><td class=a14>
     return FALSE;</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
	case WM_COMMAND:</td></tr></table><table width=100% ><tr><td class=a14>
     switch(wParam)</td></tr></table><table width=100% ><tr><td class=a14>
     {</td></tr></table><table width=100% ><tr><td class=a14>
     case IDOK:</td></tr></table><table width=100% ><tr><td class=a14>
     //取EDIT控件文本数据并写入control.ini文件</td></tr></table><table width=100% ><tr><td class=a14>
GetDlgItemText(hWnd,IDC_EDIT,</td></tr></table><table width=100% ><tr><td class=a14>
SlideText,sizeof(SlideText));</td></tr></table><table width=100% ><tr><td class=a14>
     WritePrivateProfileString(szSection,</td></tr></table><table width=100% ><tr><td class=a14>
        szEntry,SlideText,szIniFileName);</td></tr></table><table width=100% ><tr><td class=a14>
     EndDialog(hWnd,TRUE);</td></tr></table><table width=100% ><tr><td class=a14>
     return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
     case IDCANCEL:</td></tr></table><table width=100% ><tr><td class=a14>
     EndDialog(hWnd,FALSE);</td></tr></table><table width=100% ><tr><td class=a14>
     return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
     case IDABOUT:</td></tr></table><table width=100% ><tr><td class=a14>
     //调用ABOUT对话框</td></tr></table><table width=100% ><tr><td class=a14>
     DialogBox(hMainInstance, </td></tr></table><table width=100% ><tr><td class=a14>
     MAKEINTRESOURCE(DLG_ABOUT),</td></tr></table><table width=100% ><tr><td class=a14>
     hWnd,(FARPROC)AboutDialog);</td></tr></table><table width=100% ><tr><td class=a14>
     return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
     }</td></tr></table><table width=100% ><tr><td class=a14>
     break;</td></tr></table><table width=100% ><tr><td class=a14>
	}</td></tr></table><table width=100% ><tr><td class=a14>
	return FALSE;</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
BOOL WINAPI RegisterDialogClasses</td></tr></table><table width=100% ><tr><td class=a14>
(HINSTANCE hInstance)</td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
	return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
BOOL WINAPI AboutDialog</td></tr></table><table width=100% ><tr><td class=a14>
(HWND hWnd,UINT message,WPARAM wParam,</td></tr></table><table width=100% ><tr><td class=a14>
LPARAM lParam)</td></tr></table><table width=100% ><tr><td class=a14>
{	</td></tr></table><table width=100% ><tr><td class=a14>
	switch (message)</td></tr></table><table width=100% ><tr><td class=a14>
    {</td></tr></table><table width=100% ><tr><td class=a14>
	case WM_INITDIALOG:</td></tr></table><table width=100% ><tr><td class=a14>
     return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
	case WM_COMMAND:</td></tr></table><table width=100% ><tr><td class=a14>
     switch(wParam)</td></tr></table><table width=100% ><tr><td class=a14>
     {</td></tr></table><table width=100% ><tr><td class=a14>
     case IDOK:</td></tr></table><table width=100% ><tr><td class=a14>
     EndDialog(hWnd,TRUE);</td></tr></table><table width=100% ><tr><td class=a14>
     return TRUE;</td></tr></table><table width=100% ><tr><td class=a14>
     }</td></tr></table><table width=100% ><tr><td class=a14>
     break;</td></tr></table><table width=100% ><tr><td class=a14>
	}</td></tr></table><table width=100% ><tr><td class=a14>
	return FALSE;</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr>
      <td class=a14> 最后，编译连接并将生成的MiniSaver.EXE更名为MiniSaver.SCR拷入WINDOWS目录。此时可以使用配置对话框了。 
      </td>
    </tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr>
      <td class=a14>&nbsp; </td>
    </tr></table><table width=100% ><tr><td class=a14>
</td></tr>
</table><br>
<style>.a1{font-size:1}</style>
<table width=100% ><tr><td align=right>（网页编辑：<a href='mailto:liu_yang@ccw.com.cn'>风之翼</a>）</td></tr></table>
</td><td class=a1 bgcolor=#f46240>&nbsp;</td>
<td valign=top width=138 align=right><table width=98% ><tr><td>
<form action='/app/gsearch1.asp' name=pdn><table width=100% ><tr><td>应用与方案
频道全文检索</td></tr>
<tr><td><input type="text" name="textfile" size=15 value=频道内检索 onfocus="this.value=''">
	<input border=0 src="../../../../../images/jian.gif" name="I1" type="image" align=absmiddle>
</td></tr>
</table>
</form>
<form name=srch action="/search/which.asp" method=post onsubmit="JavaScript:return chk()">
<table width=100% >
  <tr><td><select size="1" name="func">
  <option selected value="2">主题检索</option>
  <option value="1">周报全文检索</option>
  <option value="3">模糊词检索</option>
</select></td></tr>
  <tr><td><input type="text" name="SrchStr" size=15 value="输入待检索的词"
  onfocus="this.value=''">
  <input src="../../../../../images/jian.gif" name="I1" type="image" align="absMiddle" border=0>
  </td></tr>
</table>
<script language="JavaScript">
function chk()
{if (!document.srch.SrchStr.value){
alert("请输入需检索的词！");	
document.srch.SrchStr.focus();
return false;
}
else{if (document.srch.SrchStr.value.length>30){
alert("检索的词请不要超过30个字符！");
document.srch.SrchStr.focus();
return false;
}
}
}
</script></form>
<table width=100% ><tr><td class=f colspan=2><b>相关文章</b></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_17.asp.html'>自己动手制作一款简洁实用的图片浏览器</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_16.asp.html'>用VC进行屏幕截取编程</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_15.asp.html'>用VC＋＋6.0制作图片屏幕保护程序</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_13.asp.html'>创建不在任务条中显示窗口按钮的应用</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_12.asp.html'>在工具条上放置窗口及其它</a></td></tr>
</table>
</td></tr></table></td></tr></table><br>
<table align=center width=680><tr><td align=right>
<form name=mail method=post action='/pub/subMail.asp' onsubmit='JavaScript: return chkField(this)'>
<INPUT type='hidden' name='rec' value='24108'>
您的姓名：<INPUT type="text" name=myName size=10>&nbsp;
您朋友的E-mail：<INPUT type="text" name=friendMail size=10>&nbsp;
<INPUT type="submit" value="推荐给好友">
</form>
</td></tr>
<tr><td align=right>
<b>[<a href="javascript:window.close()">关闭窗口</a>]</b>
</td></tr>
</table>
<script language="javascript">
function chkField(fmObj)
{if (!fmObj.friendMail.value){
	alert("请输入您朋友的E-mail！");
	fmObj.friendMail.focus();
	return false;
}
	return true;
}
</script>
<table align=center width=680>
<tr><td><hr size=1 width=660 color=#f46240></td></tr>
</table><br>
<p align=center>Copyright(C) ccw.com.cn,All rights reserved</p>
<p align=center><b>中国计算机世界出版服务公司版权所有</b></p>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -