| 投稿日 | ： 2003/12/19(Fri) 13:08 |
| 投稿者 | ： プリン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: MSFlexGridの囲み線を引くことはできたのですが |
わかりにくくてすみません。コードを書きました。
Private Sub MSFlexGrid1_Click()
Dim intCol As Integer ,intCol2 As Integer '列
Dim intRow As Integer, intRow2 As Integer '行
intRow = MSFlexGrid1.Row
intCol = MSFlexGrid1.Col
①Call SetKeisen(2, intRow, intCol)
intRow2 = intRow
intCol2 = intCol
②’Call SetKeisen(9, intRow2, intCol2)
End Sub（Form_Load 等省略）
花ちゃんのプログラム（MSFlexGridで指定セル範囲に罫線を設定）を使って、
①で囲み枠を描くことはできたのですが、次にクリックした時には①で引いた線を消して、
新たな場所に囲み線を引きたいのです。
そこで、列と行を別の変数にとって Select Case の DrStyに 9 を追加し、
picture1.Cls を設定しましたが、それでは上書きされてしまいました。
箇条書きにすると、
１．例えばMSFlexGrid1上で（2行目、3列目）をクリックした時→（2行目、3列目）に囲み線をひく
２．次に（5行目、1列目）をクリックした時→（2行目、3列目）の囲み線をけして、
（5行目、1列目）に囲み線を引く。
長くなってすみません。