VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/11/04(Tue) 11:58 |
| 投稿者 | ： 大久保 |
| ＵＲＬ | ： |
| タイトル | ： リッチテキストボックス同時スクロールについて |
はじめまして、大久保と申します。
２つのリッチテキストボックスをマウスのスクロールボタンと連動して表示させたいのですが、ずれてしまいます。ご教授お願い致します。
[source]
Public Function WindowProc(ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim lngResult As Long
Dim lngwParam As Long
Dim lngNowPos As Long
Dim udtPoint As tagPOINT
Dim lngWin32apiResultCode As Long
Static flg As Boolean
If flg = False Then
flg = True
Select Case uMsg
Case WM_VSCROLL, WM_MOUSEWHEEL
lngWin32apiResultCode = SendMessage(hWnd, EM_GETSCROLLPOS, 0, udtPoint)
With Form1.RichTextBox2
lngWin32apiResultCode = SendMessage(.hWnd, EM_SETSCROLLPOS, 0, udtPoint)
End With
End Select
flg = False
End If
WindowProc = CallWindowProc( _
glngHwnd, hWnd, _
uMsg, wParam, lParam)
End Function
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）