テキストをマウスで反転させた位置を調べるには (ID:120203)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 これでよいのでは Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) dim i%,j% i = text1.SelStart j = text1.SelLength End Sub