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…

'Bitmap処理の高速化 Imports System.DrawingImports System.Drawing.Imaging Public Class Module01_BitmapPlus ''' <summary> ''' オリジナルのBitmapオブジェクト ''' </summary> Private _bmp As Bitmap = Nothing ''' <summary> ''' Bitmapに直接アクセスするためのオブジェクト ''' </summary>…

Public Class Form01_s Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form02_GaussianBlur.Show() End Sub Private Sub Form01_s_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class

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

'CSVボタンPrivate Sub csv_btn_Click() Call CSV_btn_Function End Sub 'QRボタンPrivate Sub QR_btn_Click() Call QR_btn_FunctionEnd Sub

Option Explicit 'このソフトのみの関数 '基本設定（出力先のシート名など）Public Sub Standard_Set() Set ws_set = Worksheets("設定") '設定シート Set ws_Out = Worksheets(ws_set.Range("E1").Value) '出力シート Set non_Lock_rng = ws_Out.Range(ws_s…

'変数設定 Public CountData_AllField() As String '入力カウント '全項目のカウントPublic CountData_HinCode() As String '入力カウント '品目コード毎のカウントPublic CountData_zai() As String '入力カウント '在庫種類と品目コード毎のカウントPublic…

'データ削除ボタンPrivate Sub btn_kesu_Click() Dim text_n As String Dim Row_n As Integer Dim rc As Integer '選択行の取得 Row_n = Get_Select_Row() 'メッセージ text_n = text_n & "下記のデータを削除しますか？" & vbCrLf & vbCrLf text_n = text_n…

'データ削除 '一つ下の行の値を，消す行に上書きすることで消す，それを最終行まで繰り返して1行ずつ繰り上げていくPublic Sub Row_kesu(Row_n As Integer) '消す行 'このブックの基本設定（出力先のシート名など） Call Standard_Set Dim i As Integer Dim …

Bitmap処理を高速化する

Option Explicit '新規ボタンPrivate Sub New_btn_Click() 'このブックの基本設定（出力先のシート名など） Call Standard_Set If CountRow >= LimitRow Then '入力データ数の上限超え MsgBox "最後の行に入力があります" Else Call FormInputShow_Function(…

Option Explicit Dim Page_n As Integer 'ページ 'フォーム表示時Private Sub UserForm_Initialize() Page_n = 1 'ページ Label_Page.Caption = "ページ：" & CStr(Page_n) 'リストボックスの準備 Call ListBox_junbi End Sub '決定ボタンPrivate Sub btn_ke…

'更新ボタンPrivate Sub update_btn_Click() Dim Row_n As Integer '編集対象行 'このブックの基本設定（出力先のシート名など） Call Standard_Set '更新対象行の選択 If ActiveCell.Row < StartRow Then 'フォーカスある行が最初の行より上 Row_n = StartR…

'フォーム表示時Private Sub UserForm_Initialize() TextBox_omakase.SetFocus 'リストボックスへセルの値を設定 Call Set_ListBox_Cell(ListBox_Select, ws_Select, "C") 'リストボックスEnd Sub Private Sub btn_Cancel_Click() Unload MeEnd Sub Private …

Hello World