| 投稿日 | ： 2003/12/19(Fri) 14:33 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: MSFlexGridの囲み線を引くことはできたのですが |
前回クリックした位置が保持されていません。変数の宣言場所を変更して下さい。
Option Explicit
Private intRow2 As Integer, intCol2 As Integer '行
Private intCol As Integer, intRow As Integer '列
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.Row = intRow2
MSFlexGrid1.Col = intCol2
If MSFlexGrid1.CellPicture Then
Call SetKeisen(9, intRow2, intCol2)
End If
Call SetKeisen(2, intRow, intCol)
intRow2 = intRow
intCol2 = intCol
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
intRow = MSFlexGrid1.Row
intCol = MSFlexGrid1.Col
End Sub