VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/10/11(Tue) 16:00
投稿者： ダンボ
ＵＲＬ：
タイトル： 【報告】Balloonオブジェクト

> GODさん、どうもありがとうございます。
> > Balloonオブジェクトを使うとか。(アシスタントも一緒に表示されるけど。)

OKを押さないと消えないようなので、ちょっと意図しているバルーンヘルプには向かないけれど、
ReadMeとしては格好良いかなと、Aboutに実装してみました。

わお、文字数が多すぎて1画面に収まらないと暴走(一瞬表示されてすぐ消える)します。。。orz
このReadmeの場合は1045字が限界でした。画面設計しないと、使えん。

(今回はAssistantを使わないことにしましたので返信不要です。)

      Dim balBalloon        As Balloon
      Dim strMessage        As String
      Dim strHeading        As String
      Dim i As Integer, R As Range, C As Range
    
    strHeading = "○○○○ Ver." & VER & "について"
    Set R = Worksheets("ReadMe").UsedRange
    For Each C In R
      strMessage = strMessage & vbCrLf & vbCrLf & C.Value
    Next C
    strMessage = Left(strMessage, 1045)

    With Application.Assistant
          Set balBalloon = .NewBalloon
          With balBalloon
              .BalloonType = msoBalloonTypeButtons
              .Button = msoButtonSetOK
              .Heading = strHeading
              .Icon = msoIconTip
              .Mode = msoModeModal
              .Text = strMessage
          End With
          balBalloon.Show
    End With

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -