ｆｆ３

'AForge.Imaging.Filters をインポートします。

Public Class Form03_rinkaku

    Dim Black_white As Integer = 0 'しきい値

    Private Sub Form03_rinkaku_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim FilePath As String = "./test2.bmp"
        PictureBox1.Image = System.Drawing.Image.FromFile(FilePath)

        Black_white = CInt(TrackBar1.Value) 'しきい値
        Label1.Text = TrackBar1.Value

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'グレー画像を返す
        PictureBox2.Image = RGB_to_Gray(PictureBox1.Image.Clone) '画像

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '白黒
        PictureBox3.Image = siro_kuro(PictureBox1.Image.Clone, Black_white) '画像，白黒のしきい値

    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Black_white = CInt(TrackBar1.Value) 'しきい値
        Label1.Text = TrackBar1.Value
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim kaneru(8) As Integer 'カーネル係数

        kaneru = {0, 1, 0,
                  1, -4, 1,
                  0, 1, 0} 'カーネル係数

        kaneru = {1, 1, 1,
                  1, -8, 1,
                  1, 1, 1} 'カーネル係数
        'エッジ画像を返す
        PictureBox4.Image = rinkak_ga(PictureBox1.Image.Clone, Black_white, Module02_image_processing.kaneru2) '画像 , 白黒しきい値 ,倍率1-9 カーネル係数

    End Sub

End Class