[リストへもどる]
一括表示
投稿時間：2003/08/22(Fri) 15:14
投稿者名：みつお
Ｅメール：
ＵＲＬ　：
タイトル：MSFlexGridで選択されていないときの処理
いつもお世話になります。
今日はMSFlexGridについて質問があります。
MSFlexGridで、どこの行も選択されていなければという処理を
やりたくて

If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) <> "" Then
　　何も選択されていないときの処理
end if

としたのですが、なぜかMSFlexGrid1.Rowに10という値が入ってきてしまいます。
おそらくこの10とはMSFlexGrid1の最後の行だと思われます。
どなたか方法を知っている方、ご教授願います。

投稿時間：2003/08/22(Fri) 15:35
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: MSFlexGridで選択されていないときの処理
> MSFlexGridで、どこの行も選択されていなければという処理を
どこの行もと言う事は１行すべて選択という事でしょうか？
セル個別ならMSFlexGridは必ずどこかのセルが選択状態になっております。

> If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) <> "" Then
これはセルが空白かを調べておられるようですが？
何をされたいのでしょうか？

投稿時間：2003/08/22(Fri) 15:41
投稿者名：みつお
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: MSFlexGridで選択されていないときの処理
> > MSFlexGridで、どこの行も選択されていなければという処理を
> どこの行もと言う事は１行すべて選択という事でしょうか？
> セル個別ならMSFlexGridは必ずどこかのセルが選択状態になっております。
>
> > If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) <> "" Then
> これはセルが空白かを調べておられるようですが？
> 何をされたいのでしょうか？

わかりにくい説明ですみません。
おっしゃる通り１行全てということになります。
”どこも行選択がされていなければ”という処理をしたいのです。
よろしくお願いします。

投稿時間：2003/08/22(Fri) 16:04
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: MSFlexGridで選択されていないときの処理
これではどうですか？

Private Sub Command1_Click()
    If MSFlexGrid1.Col = 1 And MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 Then
        MsgBox "行が選択されてます"
    Else
        MsgBox "行は選択されていません"
    End If
End Sub

投稿時間：2003/08/22(Fri) 16:40
投稿者名：みつお
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: MSFlexGridで選択されていないときの処理
お世話になります。

> これではどうですか？
>
> Private Sub Command1_Click()
>     If MSFlexGrid1.Col = 1 And MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 Then
>         MsgBox "行が選択されてます"
>     Else
>         MsgBox "行は選択されていません"
>     End If
> End Sub

花ちゃんさん、いつもありがとうございます。
MSFlexGrid1.Col = 1のところをMSFlexGrid1.Col = 0に変更したらうまくいきました。
まだこの処理の意味がわかってないので解析しようと思います。
本当にありがとうございました。

投稿時間：2003/08/22(Fri) 16:51
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: MSFlexGridで選択されていない（修正）
> MSFlexGrid1.Col = 1のところをMSFlexGrid1.Col = 0に変更したらうまくいきました。

失礼しました。固定列がないのですね。下記に修正して下さい。

Private Sub Command1_Click()
    If MSFlexGrid1.Col = MSFlexGrid1.FixedCols And MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 Then
        MsgBox "行が選択されてます"
    Else
        MsgBox "行は選択されていません"
    End If
End Sub

投稿時間：2003/08/22(Fri) 17:17
投稿者名：みつお
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: MSFlexGridで選択されていない（修正）
> > MSFlexGrid1.Col = 1のところをMSFlexGrid1.Col = 0に変更したらうまくいきました。
>
> 失礼しました。固定列がないのですね。下記に修正して下さい。

いえいえ、とんでもないです。
しかし、この１行だけで原因がわかってしまうのもすごいですね。
私も早くこのくらいの解析をできるようになりたいです。

>
> Private Sub Command1_Click()
>     If MSFlexGrid1.Col = MSFlexGrid1.FixedCols And MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 Then
>         MsgBox "行が選択されてます"
>     Else
>         MsgBox "行は選択されていません"
>     End If
> End Sub

修正させていただきました。
無事、正常な処理を行っています。
本当にありがとうございます。