'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