Private Sub ListBox_kika_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Select_hin = ListBox_kika.text '選択した品名規格の分類 If Select_hin <> "" Then Form_hin.Show vbModal '入力画面表示 End…

' 画像加工Module Module02_image_processing Friend kaneru1() As Integer = {0, 1, 0, 1, -4, 1, 0, 1, 0} 'カーネル係数 Friend kaneru2() As Integer = {1, 1, 1, 1, -8, 1, 1, 1, 1} 'カーネル係数 ' ガウスぼかし処理(From GaussianBlur) Public Funct…

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _Partial Class Form03_rinkaku Inherits System.Windows.Forms.Form 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disp…</system.diagnostics.debuggernonusercode()></global.microsoft.visualbasic.compilerservices.designergenerated()>

'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" …

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _Partial Class Form02_GaussianBlur Inherits System.Windows.Forms.Form 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If…</system.diagnostics.debuggernonusercode()></global.microsoft.visualbasic.compilerservices.designergenerated()>

Public Class Form02_GaussianBlur Dim bbb As Bitmap = New Bitmap("./test1.bmp") Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load init_label() PictureBox1.Image = bbb End Sub ' ラベル初期値設定 Private Sub init_la…