投稿日 | : 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
どうにかして、セルの文字を全て見ることが出来るでしょうか?
どうかよろしくお願いします