掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
固定長の英数字にするには？ (ID：111784)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コピペのことを考えるとテキストボックスをフックしたりしなきゃいけないと思います。 お手軽にやるならChangeイベントでチェックしたほうがイイです。 Private Sub Text1_Change() Dim sBuff As String Dim lLp&, lPos As Long Static bChk As Boolean If bChk Then Exit Sub bChk = True With Text1 sBuff = .Text lPos = .SelStart lLp = 1 Do Until (lLp > Len(sBuff)) If Not (Mid$(sBuff, lLp, 1) Like "[0-9a-zA-Z]") Then '半角英数字以外は消す。 sBuff = Left$(sBuff, lLp - 1) & Mid$(sBuff, lLp + 1) lPos = lPos - 1 Else lLp = lLp + 1 End If Loop .Text = sBuff .SelStart = lPos End With bChk = False End Sub 適当に作ってみましたが、こんな感じでいかがでしょう？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.