- 343 名前：319 mailto:sage [2007/02/01(木) 18:45:02 ]
- Form1.Line (Sx, Sy)-(Sx + box, Sy + box), C, BF
を書き換えて
Dim g As Graphics
g.DrawLine(New Pen(Color.C), Box, Box, Sx + Box, Sy + Box)
~~~~~~~~~~
というトンデモコードを書いちゃいましたが~~~にエラーが出ちゃいます
手前の
R = Int(16 * Rnd()) - 1
If R < 1 Then C = QBColor(0) Else C = QBColor(R)
からして物故割れてるのでしょうか･･･？
