| 魔界の仮面弁士 さん
返答して頂きましてありがとうございました。
>手元の VB4 + Win7 だと問題が確認できませんでした。
はい、問題ないことが分りましたので、何か設定、使い方に問題があるのでしょうか？。
Windows XP/7 (32bit) / VB6.0(SP6)で確かめました。
>どういう文字列を設定して、
>何行目を取得したときに、
>どういう結果になってしまうのか、
>具体的な情報を頂けると助かります。
はい、分りました。
Text1
↓
あいうえお
かきくけこ
さしすせそ
たちつてと
Text2
↓
1入力(1行目)
Command1
↓
クリック
範囲選択
↓
あいうえお
かきく
Text2
↓
2入力(2行目)
Command1
↓
クリック
範囲選択
↓
さしすせそ
た
Text1
↓
111111111
222222222
333333333
444444444
555555555
Text2
↓
1入力(1行目)
Command1
↓
クリック
範囲選択
↓
111111111
Text2
↓
2入力(2行目)
Command1
↓
クリック
範囲選択
↓
222222222
>引数の txtBox は ByRef にする必要は無いような…。(本題とは無関係の事ですが)
問題ないとのことでありますので参考と同じくこのままにしておきます。
>Win95/98/98SE/ME で動作しなくても構わないのであれば、
はい、Win95/98/98SE/ME で動作することはありません。
>SendMessageA ではなく SendMessageW での実装に切り替えてみては如何でしょうか。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
"SendMessageA"⇒"SendMessageW" 1箇所
"SendMessageA"⇒"SendMessageW"に変更しますと以下に変わりました。
Text2
↓
1入力(1行目)
Command1
↓
クリック
範囲選択
↓
あいうえお
Text2
↓
2入力(2行目)
Command1
↓
クリック
範囲選択
↓
さしす
以上につき説明が不十分な所があり返答して頂けますと幸いであります。
|