?? 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%">字節(jié): <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="將該貼發(fā)往E-Mail"><font color=#008080>打包</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=new" title="發(fā)布新貼子"><font color=#008080>發(fā)貼</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="網(wǎng)靈通,網(wǎng)上聯(lián)絡的好工具!" ><font color=#008080>在線網(wǎng)友</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="單擊給他發(fā)信"><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編程打開一個網(wǎng)頁：
<br> 由于是為做模擬器做鋪墊，所以就不介紹別的方法，只介紹一種最簡單的用webbrowser控件實現(xiàn)（實際是其他的方法我還沒有學會）。
<br> 下面我們就開始步入模擬器的大門了：
<br> 一、先打開VB新建一個工程
<br> 二、在工具條上點右鍵選部件（我用的是中文版VB）或者選工程菜單，點部件
<br> 三、找到Microsoft Internet Controls，在前面打挑，然后確認就可以看到在工具條上多出來一個地球樣的圖標，我們以后的實現(xiàn)就都圍繞著他來進行了。
<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 + -