VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/03/04(Thu) 15:57 |
| 投稿者 | ： 春まだか |
| ＵＲＬ | ： |
| タイトル | ： APIで出来ました！ |
> ここの逆引きヘルプの［リッチ及びテキストボックス内の総行数・現在行・
> 現在桁の取得（０７６）］では参考になりませんか？
ねろさん、花ちゃんありがとうございました。
結局
Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim lpPoint As POINTAPI
dim r
dim xx , yy
r = GetCaretPos(lpPoint)
xx = lpPoint.x * Screen.TwipsPerPixelX + RichTextBox1.Left
yy = lpPoint.y * Screen.TwipsPerPixelY + RichTextBox1.Top
Label1.Top = yy
Label1.Left = xx
となりました。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）