📄 vb制作简单模拟器教程入门版（一）.htm
字号:
<html><head><title>VB制作简单模拟器教程入门版（一） </title><meta content="text/html; charset=gb2312" http-equiv="Content-Type"><style type=text/css>td { font-family: "宋体"; font-size: 10.5pt}body { font-family: "宋体"; font-size: 10.5pt}A:link {COLOR: #000000; TEXT-DECORATION: none}A:visited {COLOR: #808080;TEXT-DECORATION: none}A:hover {COLOR: #ff0000; TEXT-DECORATION: underline}</style><script language="javascript"><!-- var str; var temp; var message; function viewit(str){ temp = 'view?forum=emuhome&file='+str; window.open(temp," ","width=700,height=480,scrollbars=yes,"); } var Then = new Date(); Then.setTime(Then.getTime() + 60*60*1000*24*2); document.cookie="loginuser=guest87681;path=/;expires="+Then.toGMTString(); function viewonline(){ var session; session=parent.session; this.location = 'http://bbs.xilu.com/cgi-bin/bbs/tools/showonline?&session='+session; } function resetit(){ document.postform.nickname.value=parent.nickname; document.postform.passwd.value=parent.passwd; document.postform.email.value=parent.email; } var adminnick = ''; var adminpass =''; function delit(str){ var message; var temp; if (adminnick == '' || adminpass == ''){ if (str == ''){ alert('文件号不对'); return; } message = '请输入版主代号(只需输入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminnick = temp; } message = '请输入版主密码(只需输入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminpass = temp; } } else { message = '注意:您是否要删除此贴?'; if (!confirm(message)) { return; } } this.location = 'del?forum=emuhome&message='+str+'&passwd='+adminpass+'&nick='+adminnick; return; } function refinebbs(str){ var message; var temp; if (adminnick == '' || adminpass == ''){ if (str == ''){ alert('文件号不对'); return; } message = '请输入版主代号(只需输入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminnick = temp; } message = '请输入版主密码(只需输入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminpass = temp; } } this.document.refine.nickname.value = adminnick; this.document.refine.passwd.value = adminpass; this.document.refine.messageno.value = str; this.document.refine.submit(); return; } function tomail(str){ message = '请输入Email地址:'; temp =prompt(message, ''); if (temp == null){ return; } else { this.location = 'tomail?forum=emuhome&message='+str+'&email='+temp; } } function tobbs(str){ message = '请输入将要转移的bbs英文代号:'; temp =prompt(message, ''); if (temp == null){ return; } else { this.document.tobbsform.forum.value = 'emuhome'; this.document.tobbsform.message.value = str; this.document.tobbsform.copyto.value = temp; this.document.tobbsform.submit(); } } function payment(){ this.document.tougao.submit(); } function scorebbs(str){ this.document.score.quality.value=str; this.document.score.submit(); }//--></script><form name="refine" action="refinebbs?forum=emuhome" method="post" ><input type="hidden" name="nickname" value=""><input type="hidden" name="passwd" value=""><input type="hidden" name="messageno" value=""></form><form name="tougao" action="http://bbs.xilu.com/cgi-bin/tougao/sendfile" method="post" target="_blank"><input type="hidden" name="etitle" value="emuhome"><input type="hidden" name="subject" value="VB制作简单模拟器教程入门版（一）"><input type="hidden" name="nickname" value="真的是假mm"><input type="hidden" name="messageno" value="180726"></form><form name="tobbsform" action="http://bbs.xilu.com/cgi-bin/bbs/tobbs" method="post" target="bbsview"><input type="hidden" name="forum" value=""><input type="hidden" name="copyto" value=""><input type="hidden" name="message" value="180726"></form><form name="score" action="view?forum=emuhome&message=180726" method="post" target="bbsview"><input type="hidden" name="quality" value=""></form></head><body background="http://" bgcolor="#ECEBF1" link=#000000 vlink=#808080><p><a name="top"></a></p><table border="0" width="100%" cellpadding="2" cellspacing="0"> <tr> <td width="50%" bgcolor="#8BB4F1"><p align="left"> </font><a href=bbs?forum=emuhome target=_parent><font color="#FFFFFF"> 【 模拟之家BBS[emuhome.xilubbs.com] 】</font></a></td> <td align="right" bgcolor="#8BB4F1" width="50%">字节: <font color="yellow">1k</font> 点击:<font color="blue">65</font>次 <img src="/img/bbs/goodbbs.gif" width="15" height="16" border=0><font color="#FF80FF">0</font> <img src="/img/bbs/badbbs.gif" width="15" height="16" border=0>0 序号:<font color="red"><b>180726</b></font></td> </tr></table><table border="0" cellPadding="0" cellSpacing="1" width="100%"><TBODY> <tr> <td width="100%"><img src="/img/bbs/mood9.gif" width="15" height="15"><b>VB制作简单模拟器教程入门版（一） </b></td> </tr></TBODY></table><TABLE bgColor=#aaddff border=1 borderColor=#ffffff borderColorLight=#57542b cellPadding=0 cellSpacing=0 width="100%"><TBODY> <tr> <td width="11%" align="center" height="14"><a href="/cgi-bin/bbs/personregist?forum=emuhome" target=_blank title="成为本版会员"><font color=#008080>注册成员</font></a></td> <td align="center" width="10%"><a href="javascript:parent.screen();" target="bbsview" title="全屏与半屏之间转换"><font color=#008080>全/半屏</font></a></td> <td align="center" width="6%"><a href="javascript:tobbs('180726');" title="将该贴转向其他版"><font color=#008080>转移</font></a></td> <td align="center" width="6%"><a href="javascript:tomail('180726');" title="将该贴发往E-Mail"><font color=#008080>打包</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=new" title="发布新贴子"><font color=#008080>发贴</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=180726&font=10.5" title="回复这个贴子"><font color=#008080>回复</font></a></td> <td align="center" width="6%"><a href="javascript:payment();" title="将该文章投稿"><font color=#008080>投稿</font></a></td> <td align="center" width="6%"><a href="http://bbs.xilu.com/cgi-bin/bbs/tuijian?etitle=emuhome&messageno=180726"><font color=#008080>推荐</font></a></td> <td align="center" width="6%"><a href="javascript:parent.delit('180726');" title="将该贴删除"><font color=#008080>删除</font></a></td> <td width="11%" align="center" height="14"><a href="javascript:parent.refinebbs('180726');"><font color="#008080">精品收藏</font></a></td> <td align="center" width="10%" height="14"><a href="javascript:viewonline();" title="网灵通,网上联络的好工具!" ><font color=#008080>在线网友</font></a></td> <td align="center" width="10%" height="14"><a href="bbs?forum=emuhome" target=_parent title="刷新BBS"><font color=#008080>BBS索引</font></a></td> <td align="center" width="6%"><a href="http://xiluhelp.xilubbs.com" target=_blank title="关于BBS功能的详细说明"><font color=#008080>帮助</font></a></td> </tr></TBODY></table><table width="100%" border="1" bgcolor="#bbccff" bordercolorlight="#57542b" bordercolor="#ffffff" cellpadding="0" cellspacing="0"> <tr> <td width="80%">作者:<a href="http://www.xilu.com/cgi-bin/passmail?nick=真的是假mm" target=_blank title="单击给他发信"><font color=#000000>真的是假mm</font></a><span style="font-family: 宋体; font-size: 9pt">(<a href="javascript:parent.viewip('180726');" title="点击这里,版主可以察看IP."><font color=#000000>xxx.xxx.xxx.xxx</font></a>)</span> 07.15 00:33 </td> </tr> </tr></table><br>第一讲 如何用VB编程打开一个网页：
<br> 由于是为做模拟器做铺垫，所以就不介绍别的方法，只介绍一种最简单的用webbrowser控件实现（实际是其他的方法我还没有学会）。
<br> 下面我们就开始步入模拟器的大门了：
<br> 一、先打开VB新建一个工程
<br> 二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件
<br> 三、找到Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。
<br> 四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中
<br> 五、在Form1中添加如下代码：
<br> '－－－－－－－－－－开始－－－－－－－－－－－
<br>Private Sub Command1_Click()
<br> WebBrowser1.Navigate "emuhome.xilubbs.com"
<br>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -