VB6 MSFlexGridとPictureBox

質問

お世話になります。
Visual Basic6.0(SP6)で開発している素人です。

（質問1）
PictureBoxのBackColorが変色できません。
Picture1.BackColor = &H80FF80　'緑色。色は問いません。
PictureBoxは色の変更はできないものなんでしょうか？

（質問２）
MSFlexGridでexcelの内容をセル指定して表示できたのですが、
指定のMSFlexGridの行の色を変えられません。20行3列で、○行目の1～3列を
色を変えたいです。
MSFlexGrid1.Row = 2
MSFlexGrid1.BackColorSel = QBColor(11)
MSFlexGrid1.CellForeColor = QBColor(11)

いづれもうまくいきませんでした。。。

（質問３）
MSFlexGridでexcelの内容をセル指定して表示できたのですが、行の高さを
変更できません。

MSFlexGrid1.RowHeight(-1) = 800　　'標準の行高さ指定（-1で全部を変更）
と、やっても
MSFlexGrid1 .RowHeight(0) = 800 '0行目の高さを800に
MSFlexGrid1 .RowHeight(1) = 800 '1行目の高さを800に
と、やっても
一番上の行しか高さが変わりません。

優先順位は 質問3 ＞ 質問１ ＞ 質問2 です。
急いでいますので、どなたかお願いします！

回答No.1

piroin654 · ベストアンサー

以下のような感じ。

(1)PictureBoxの背景色

Private Sub Command1_Click()
'白
Picture1.BackColor = RGB(255, 255, 255)
'赤
'Picture1.BackColor = RGB(255, 0, 0)
End Sub

(2)MSFlexGridのCellの背景色

Private Sub Command2_Click()
Dim i As Long
With MSFlexGrid1
For i = 0 To 2
'##緑##
.Row = 2
.Col = i
.CellBackColor = RGB(0, 255, 0)
Next i

'##赤##
'.Row = 2
'.Col = 2
'.CellBackColor = RGB(255, 0, 0)
End With
End Sub

(3)MSFlexGridのCellの高さ

Private Sub Command3_Click()

Dim i As Integer
Dim str As String

With MSFlexGrid1
For i = 1 To MSFlexGrid1.Rows - 1
.Row = i
.Col = 1
str = MSFlexGrid1.Text
'三倍に
.RowHeight(.Row) = .RowHeight(.Row) * 3
Next i
End With
End Sub

お礼

piroin654様
前回に引き続き二回目の迅速な回答ありがとうございます。
やりたいことが出来ました。MSFlexGridは古いようで調べてもわからず困ってました。
本当にありがとうございました！

回答No.3

piroin654

No1の「(3)MSFlexGridのCellの高さ」の

＞Dim i As Integer

を

Dim i As Long

としてください。

回答No.2

piroin654

No1の(3)の

.RowHeight(.Row) = .RowHeight(.Row) * 3

を

.RowHeight(.Row) = 800

と指定してもいいです。