| |
以下のとおりにLineﾒｿｯﾄﾞを利用して、３ﾎﾟｲﾝﾄの罫線を出力しようとしていますが、ﾎﾟｲﾝﾄが変わりません。何故でしょうか？
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim intColor As Integer, i As Integer
Dim SngTOP As Single, SngHEIGHT As Single
Dim SngLEFT(5) As Single
Me.ScaleMode = 7
SngTOP = Me.ScaleTop + 12
SngLEFT(1) = Me.ScaleLeft + 0#
SngLEFT(2) = Me.ScaleLeft + 3.7
SngLEFT(3) = Me.ScaleLeft + 17.8
SngHEIGHT = Me.ScaleHeight - 100
intColor = RGB(0, 0, 0)
Me.DrawWidth = 3
Me.Line (SngLEFT(1), SngTOP)-(SngLEFT(3), SngHEIGHT), intColor, B
Me.DrawWidth = 3
For i = 2 To 4
Me.Line (SngLEFT(i), SngTOP)-(SngLEFT(i), SngHEIGHT), intColor
Next i
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
