フレックスグリッドからのデータ取得について (ID:120803)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 WindowsXP & VB6(SP6)です。 早速ですが、 『フォームにフレックスグリッドとコマンドボタンを貼り付け、 ボタンを押すか選択した行をダブルクリックすると 対象の行のデータを取得し、別のフォームを開き、そこへ 取得したデータを表示する』 といったことをやろうとしているのですが、解決できない 問題が２つ程あり悩んでいます。 何卒ご助力の程、よろしくお願いいたします。 １つ目：一番上に固定行を１行配置しているのですが、 ここをダブルクリックしてもデータを取得し、別フォームを 開いてしまいます。そのとき表示されるデータは１行目 のデータです。 固定行がクリックされたときは無視するようにできないの でしょうか？ ２つ目：選択している行がなくても、ボタンを押すと別フォーム を開きデータを表示してしまいます。 選択している行がない場合は、ボタンを押しても何もしない ようにするということはできないのでしょうか？ '*********************************** 'フレックスグリッドのプロパティ '固定行 : 1行 '固定列 : 1行 '強調表示 : 2-With Focus 'アクティブセル : 0-None '*********************************** '以下記述している全コード Dim data As Integer '別フォームに表示するデータ Private Sub Command1_Click() MSFlexGrid1.Col = 1 data = MSFlexGrid1.Text Form2.Show Form2.Text1.Text = data End Sub Private Sub Form_Load() With MSFlexGrid1 'グリッドにデータを表示 For i = 1 To 10 .Col = 1 .Row = i .Text = i Next End With End Sub Private Sub MSFlexGrid1_DblClick() Command1_Click End Sub '以上、よろしくお願いいたします。