投稿日 | : 2003/12/19(Fri) 14:33 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 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