📄 qqexp023.html
字号:
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html">
<meta name="Generator" content="千千VB站 VB函数清单">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>千千VB站 VB函数清单</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#2020A0" vlink="#FF0000" alink="#FF0000">
<marquee><b><blink><font color="#000000">由指定的装置输出</font></blink></b></marquee>
<center>
<hr width="100%" szie="4">
</center>
<p> Print这个含数在BASIC里是什么东西呢!?由屏幕印资出料吗!?我们说：「错」，Print由指定的装置输出，平常的预设是由屏幕输出，所以在VB里使用Print时，结果会显示在Form上。<br>
Print "倩倩"<br>
Form会显示出"倩倩"字串
<p> MyVal = 9876543210<br>
Print MyVal<br>
MyStr = Hex(100)<br>
Form会显示出9876543210数字
<p> Print 1 * 2 / 3 - 4 + 5<br>
Form会显示出1.66666666666数字
<p> 因预设是屏幕，故会由Form输出，我们可以藉由Open来帮我们指定输出装置。<br>
<font color="#0000FF">Open</font> "C:\Test.Tmp" <font color="#0000FF">For
Output As</font> #1<font color="#90EE90"> </font><font color="#009900">'当Open后方装置名称接文件名时，输出装置改成磁盘机</font><br>
Print #1, "倩倩" <font color="#009900">'输出至指定装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#90EE90"> </font><font color="#009900">'关闭输出装置回到屏幕</font>
<p> <font color="#0000FF">Open</font> "prn" <font color="#0000FF">For
Output As</font> #1<font color="#90EE90"> </font><font color="#009900">'输出至标准列印装置</font><br>
Print #1, "倩倩" <font color="#009900">'输出至指定装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#90EE90"> </font><font color="#009900">'关闭输出装置回到屏幕</font><br>
印表机控制权被Windows的印表机管理员拿走，结果无反应
<p> <font color="#0000FF">Open</font> "lpt1" <font color="#0000FF">For
Output As</font> #1<font color="#009900"> '输出至平行埠1</font><br>
Print #1, "倩倩"<font color="#009900">
'输出至指定装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#90EE90"> </font><font color="#009900">'关闭输出装置回到屏幕</font><br>
调用lpt1时，因对lpt1送出资料後，装置一直没有回应而使程序陷入无穷回圈里，须以ctrl+alt+del关闭程序
<p> <font color="#0000FF">Open</font> "aux" <font color="#0000FF">For
Output As</font> #1<font color="#009900"> '输出至辅助输出装置</font><br>
Print #1, "倩倩"<font color="#009900">
'输出至指定装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#009900"> '关闭输出装置回到屏幕</font><br>
倩倩姐的电脑没有AUX，VB说 I/O设备存取失败
<p> <font color="#0000FF">Open</font> "com1" <font color="#0000FF">For
Output As</font> #1<font color="#90EE90"> </font><font color="#009900">'输出至序列埠1</font><br>
Print #1, "倩倩"<font color="#009900">
'输出至指定装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#90EE90"> </font><font color="#009900">'关闭输出装置回到屏幕</font><br>
倩倩的电脑Com1接鼠标，Com1在一个时间内只能做单向资料传输，因此出资讯後电脑不检查是否有回应。鼠标不属於输出装置，因此鼠标没有任何反应（难到滑数还会自动跑走，废话）
<p> <font color="#0000FF">Open</font> "nul" <font color="#0000FF">For
Output As</font> #1<font color="#009900"> '输出至虚拟装置</font><br>
Print #1, "倩倩"<font color="#009900">
'输出到虚拟装置</font><br>
<font color="#0000FF">Close</font> #1<font color="#009900"> '关闭输出装置回到屏幕</font><br>
这个装置本来就不会有任何反应
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -