VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/09/07(Wed) 14:48
投稿者： まさ
ＵＲＬ：
タイトル： お礼と報告

すいません、いろいろ事情がありまして、お礼と報告が１ヶ月後になってしまいました。
この問題を解決するのに、次のようなFunctionを作ることで解決しましたので報告です。

Public Function IsTByte(Value As String) As Boolean  '全角・半角チェックをする関数

    Dim LetterCount As Long        '文字列の文字数
    Dim ByteCount As Long            '文字列のバイト数

    LetterCount = Len(Value) '文字数の確認

    ByteCount = LenB(StrConv(Value, vbFromUnicode))  'バイト数の確認

    If LetterCount <> ByteCount Then IsTByte = True  '半角文字列（文字数=バイト数）

End Function

> 何処がいけなかったのでしょう？
> どのように解決したのか報告するのも、大切です。
自己解決で満足してしまっていました。
どこがいけなかったのかというと、プログラム内で GoTO文でのエラー処理を行っていたのですが、
同じエラー処理に間違えて２箇所もGoTo文があったため、２つ共のエラーが表示されていました。
なので、１つ消すという凡ミスでした。(^_^;)

黒影さん、本当に遅くなりましたが、ご教授ありがとうございました。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -