タイトル : Re^4: ListBoxのToolTipText表示 投稿日 : 2009/07/14(Tue) 16:15 投稿者 : まなぶ
理解不足、確認不足でした。 お恥ずかしい限りです。 良きアドバイスをありがとうございます。 早速、アドバイスを基に作成したのですが、表示が上手く行きません。 ToolTipTextで表示したいのですが、表示させるテキストが長く画面に 表示しきれないので、複数行で表示するようにしたいのです。 リストをクリックした場合は複数行で表示できたのですが、アドバイスを 基に作成した場合は表示できません。 ちなみに、アドバイスを基に作成した1行表示(通常のToolTipText表示)は 表示できました。また、変数「TipText」は取得できています。 頼ってばかりになりますが、もう1度ヒントをいただけますか? よろしくお願いします。 **************************************************************************** Private Sub lstLOG_MouseMove(Index As Integer, Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim MPos As POINTAPI Dim Ind As Long Set mclsToolTip = New clsToolTip '通常のToolTipText表示 'TipText = List.List(ListIndex) GetCursorPos MPos Ind = LBItemFromPt(List.hWnd, MPos.X, MPos.Y, False) If Ind <> -1 Then Debug.Print Ind, List.List(Ind) TipText = List.List(Ind) '通常のToolTipText表示 'List.ToolTipText = TipText '複数行のToolTipText表示 With mclsToolTip Call .mCreate(List.hWnd) Call .mToolAdd(1, TipText) .pMaxWidth = 1000 End With End If End Sub **************************************************************************** |