VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/09/08(Wed) 15:00 |
| 投稿者 | ： ふぉん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： FlexGridの水平スクロール |
ＯＳ：WinXP SP1
ＶＢ：6.0 SP6
FlexGridコントロールに列を１個設定して（行数は１個以上）、セルに文字を表示させています。
で、私が問題にしているのは、その文字の長さがコントロールの幅より長くなった時には、
その文字が隠れてしまって見れないということです。
例えばフォームに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
どうにかして、セルの文字を全て見ることが出来るでしょうか？
どうかよろしくお願いします
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）