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

投稿日: 2004/09/08(Wed) 15:00
投稿者ふぉん
Eメール
URL
タイトルFlexGridの水平スクロール

OS:WinXP SP1
VB:6.0 SP6

FlexGridコントロールに列を1個設定して(行数は1個以上)、セルに文字を表示させています。
で、私が問題にしているのは、その文字の長さがコントロールの幅より長くなった時には、
その文字が隠れてしまって見れないということです。

例えばフォームにFlexGridを貼り付けて以下のコードを実行すると、
設定した文字"ABCDEFGHIJKLMNOPQRSTUVWXYZ"は半分程度しか見ることができません。
水平スクロールバーも設定しているのですが、出てきてくれません。
(複数列表示していて、全セル幅がコントロール幅を超えると出てきてくれるようです。)

Private Sub Form_Load()
    With MSFlexGrid1
        '***** コントロールの大きさを設定する *****
        .Height = 2000
        'コントロールの幅は次のセル幅よりも小さくする
        .Width = 2000
                
        'セルの設定
        .FixedRows = 0
        .FixedCols = 0
        .Cols = 1
        .Rows = 1
        'セル幅はコントロール幅よりも大きくする
        .ColWidth(0) = 4000
        'セルに文字を設定する
        .TextMatrix(0, 0) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        'スクロールバーは水平垂直共に設定する
        .ScrollBars = flexScrollBarBoth
    End With
End Sub

どうにかして、セルの文字を全て見ることが出来るでしょうか?

どうかよろしくお願いします


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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