行数に加え文字数も考慮



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

▲このページのトップに戻る
142943?|行数に加え文字数も考慮cho URL2004/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は横の文字数の一時的に保存する変数として宣言してます。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

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

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