17328.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 34 行

HTML
34 行
字号 
<html>  <head>    <title>NSB:为何有些中文字无法储存 ?</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>NSB:为何有些中文字无法储存 ?</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:clt001@ma.kswan.org.tw">sam</a> on August 16, 1999 at 07:06:12:<p>Hi,你好<br>    我写一个程式，各使用 Print 与 MsgBox，<br>    为何用 Print 显示皆正常，可是 MsgBos <br>    显示时却漏了一些字。<br> <br>    Print 显示 :<br> <br>    秋季果实成熟时采收<br>    炒至焦黄<br>    用时捣碎<br>    春、秋二季采挖<br>    以秋采者为佳<br> <br>    MsgBox 显示 :<br>    秋季果实/炒至/用时/春、秋<br>    <p>    请问为什么会这样呢？不是说 NS Basic<br>    使用中文都没问题吗？那又该如何修改<br>    呢？谢谢！<br> <br>    以下是程式的内容：<br> <br>addObject "filesystem"<br>addObject "file"<br>addObject "commandButton","cmdWrite",5,85,70,20<br>cmdWrite.text="WriteFields"<br> <br>on error resume next<br> <br>  Dim myArray<br>  ReDim myArray(5)<br> <br>  myArray(1) = "秋季果实成熟时采收" <br>  myArray(2) = "炒至焦黄" <br>  myArray(3) = "用时捣碎" <br>  myArray(4) = "春、秋二季采挖" <br>  myArray(5) = "以秋采者为佳"<br>  <br>print myArray(1)<br>print myArray(2)<br>print myArray(3)<br>print myArray(4)<br>print myArray(5)<br> <br>Sub cmdWrite_Click()<br>  WriteUsingControl<br>  ReadUsingControl<br>  killfocus<br>End Sub<br> <br>Sub cmdWrite_Click()<br>  WriteUsingControl<br>  ReadUsingControl<br>  killfocus<br>End Sub<br> <br>Sub WriteUsingControl()<br> <br>  file.Open "\My Documents\Temp\Test.txt", 2 'fsModeOutput<br>  file.WriteFields myArray<br>  file.Close<br>End Sub<br> <br>Sub ReadUsingControl()<br>  Dim myArray, msgString, i<br>  file.Open "\My Documents\Temp\Test.txt", 1 'fsModeInput<br>  myArray = file.InputFields(5)<br>  msgString = myArray(1)<br>  For i = 2 To UBound(myArray, 1)<br>    msgString = msgString & " / " & myArray(i)<br>  Next<br>  msgbox msgString,0,"Contents of Test.txt"<br>  file.Close<br>End Sub<br> <br> <br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17328--><!--top: 17391--><li><a href="17391.html">File object 的 bug</a> <b>小吴</b> <i>08:10:07 8/17/99</i>(<!--responses: 17391-->0)<ul><!--insert: 17391--></ul><!--end: 17391--><!--top: 17372--><li><a href="17372.html">Re: NSB:为何有些中文字无法储存 ?</a> <b>小琳</b> <i>19:59:06 8/16/99</i>(<!--responses: 17372-->1)<ul><!--insert: 17372--><!--top: 17389--><li><a href="17389.html">Re: NSB:为何有些中文字无法储存 ?</a> <b>中药 Sam</b> <i>07:53:04 8/17/99</i>(<!--responses: 17389-->0)<ul><!--insert: 17389--></ul><!--end: 17389--></ul><!--end: 17372--></ul><!--end: 17328--><br><hr size=7 width=75%><p></body></html>

17328.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 17328.html 源码文件，采用 HTML 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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