出版社にも本の中での誤記等について問い合わせが来ているようです。(申し訳ない!)
■P.147に「Pingファイルを簡単に...」との記述がありますが、PNGファイルの誤りですよね。
【誤記】間違いですね。PNGです。
■p.169 drawbitmap 関数は追加入力しなくてはいけないのでは? 10/12 追記
【誤記】drawbitmap関数がすべてグレーアウトしていますが、本当はすべて変更対象行(白文字)でですね。
Private Sub drawbitmap()
Dim g As Graphics = CreateGraphics()
g.DrawImage(bmp, 0, 0)
g.Dispose()
End Sub
■P.168の Form1_MouseMove プロシージャ内の
Dim pen As New Pen(Color.Blue, 6)
の記述が、P.171では、
Dim pen As New Pen(col, r)
になっていますが、その説明がありません。
【誤記】P171 の Dim pen As New Pen(col, r) の行がグレーアウトしていますが、本当は変更対象行(白文字)でですね。
Dim pen As New Pen(Color.Blue, 6) Dim pen As New Pen(col, r)
■P.175~176の複数コントロールのイベントを1つの関数に集約する方法についての説明が、分かり辛いです。
実際には他5色の場合は、プロパティウィンドウのイベントで、MenuColor_Click を選択しました。
【誤記】P175のソースコードは1行目がグレーアウトしていますが、本来は下記のようにMenuBlack.Click以降が変更行になります。
Private Sub MenuColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuRed.Click, MenuBlack.Click, MenuBlue.Click, MenuGreen.Click, MenuWhite.Click, MenuYellow.Click
■P.180の説明で、実際のフィルターの定義とコードの順番が違っています。
【バグ】ご指摘の通り、順番が間違っていました。正しい順番は Jpeg-Bmp-Gif-Png の順になります。 ただし、修正されるのであれば、Filter Index を使わずにこのように変更してください。 これだとコードの可読性もよくなり、間違いが少なくなります。
Select Case Me.SaveFileDialog1.Filter Case "JPG" fmt = Imaging.ImageFormat.Jpeg Case "GIF" fmt = Imaging.ImageFormat.Gif Case "PNG" fmt = Imaging.ImageFormat.Png Case "BMP" fmt = Imaging.ImageFormat.Bmp Case Else fmt = Imaging.ImageFormat.Jpeg End Select
ということで、そのあとの文章は「この1,2,3… というのは、FileSaveDialogのフィルタの順番です。」が「SaveFileDialog1.Filterにフィルタで設定した文字列(拡張子指定ではない方)が格納されるので、指定されたフィルタに合わせて、保存する形式を指定します。」という説明になりますね。
つまづかれた方、ごめんなさい。また、おかしなところがあればご連絡ください。 |