行数に加え文字数も考慮

◇-?|行数に加え文字数も考慮-cho(2004/6/23-15:35)No.142943
　┗?!|Re:行数に加え文字数も考慮...-龍矢(2004/6/23-16:43)No.142945

142943	?\|行数に加え文字数も考慮	cho URL	2004/6/23-15:35
メーカー名：EPSON エプソン OS名：Windows2000 パソコン名：VB-640E ソフト関連： Access97 -- http://pasokoma.jp/bbs6/lg141998.html からの引き続きの質問 (似た現象に陥っており質問をする場合も含みます) 書き込みありがとうございます。書き込みを元にいろいろ試してみましたが、なかなかうまくいきません。フォームのテキストボックスに入力していくと、改行すれば次の行に進みますが、改行せずに入力していくと、テキストボックスの横幅にあわせて次の行に進みます。（例えば、フォームの見た目上10文字まで入力でき、11文字目は横幅がないので、次の行に進んでしまう）この場合、改行はしていないので、改行コード数を検索してもゼロですが、フォームからの見た目上は2行になります。一行15文字で10行以内という制限を加えるには、どうしたらよいのでしょう。

142945	?!\|Re:行数に加え文字数も考慮	龍矢	2004/6/23-16:43
記事番号142943へのコメント横の文字数をカウントする変数を一つ追加することで解決できると思います。 VBで判定する場合のプログラム例 Dim i As Integer Dim gyou As Integer Dim moji As Integer gyou=0 moji=0 for i=0 to LAN(データフィールド）　　　　moji=moji+1　’横文字数のカウント　　　　If Mid(データフィールド,i,1)=Chr(13)　Or moji>15 Then 　　　　　　　　gyou=gyou+1　’改行のカウント　　　　　　　　moji=0　’横文字数のリセット　　　　End If Next If gyou>10 then 　　　　MsgBox ("行数がオーバーしています") End If iはFor文のための変数、gyouは行数の保存する変数、mojiは横の文字数の一時的に保存する変数として宣言してます。

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言
○	数度目	2004/07/01/(木) 10:48:45	返事が遅くなりました、すいませんです。回答ありがとうございました。参考にしながら、うまく動作するよう試しています。超初心者ですが、がんばっって、やってみます!!MSIE6/Win2000