千葉県柏市のシステム開発 Spread i-Vision | システム開発のための.NETプログラミング

千葉県柏市のシステム開発 Spread i-Visionによる、VB.NETのプログラミング関係の特集となります。

一般的な「システム開発の必要性など」の話や、「システム開発の流れ」の話は、

個別にリンク先をご覧下さい。

ここは、実際のプログラムのトピックスとなります。

※C#のソースも記載しても良いのですが、時間の都合上、VBのみとさせていただきます。

※言語に関わらず、システム開発の際には、内容を理解しておくと便利です

理解しているようで、できていない「画像処理」

OpenCLなどを使用して作成した事はあるけど、具体的にどのような内部処理がされているか

理解されている方が少ないので、サンプルコードを記載してあります。

実務でよく使用していた内容ですので、覚えておいて損はありません。

画像処理の初心者の方や、一般的な処理はできるがカスタマイズした処理が厳しい方

などに向けた内容となっています。

以下のコンテンツをご利用いただく前に、必ず「サンプルコードのご利用について」をご確認願います。

描画関係の基本

基礎編

１．線分を描画する（再描画なし）

システム開発の【Spread i-Vision】

線分を描画する（再描画なし）

https://www.spreadi-vision.com/drawline-4

事前準備・フォームにPictureBoxを貼り付ける・フォームのサイズを(300 , 300)に設定する・PictureBoxのDockプロパティをFillに設定するPublic Class Form1　Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles 　　PictureBox1.MouseClick　　Dim g As Graphics = Graphics.FromHwnd(PictureBox1.Handle)　　Dim linePen As Pen = New Pen(Color.Green, 3)　　g.DrawLine(linePen, 20, 50, 70, 120)　　g.Dispose()　　linePen.Dispose()　End SubEnd Classこれで、起動後Pictur...

２．線分を描画する（再描画あり）

システム開発の【Spread i-Vision】

線分を描画する（再描画あり）

https://www.spreadi-vision.com/drawline-5

こちらでは、線分を描画することはできたものの、ウィンドウが重なったりすると、描画された線分が消えてしまいました。描画した線分が消えない（消えても再度書き直す）ためのコードです。事前準備はこちらを参照。Public Class Form1　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint　　Dim linePen As Pen = New Pen(Color.Green, 3)　　e.Graphics.DrawLine(linePen, 20, 50, 70, 120)　End SubEnd ClassPaintイベントを使用することにより、描画が必要なタイミングで、...

３．一時的に線を描画する

システム開発の【Spread i-Vision】

一時的に線を描画する

https://www.spreadi-vision.com/drawline-3

一時的に直線を描画したいときもあると思います。ReversibleLineなどもありますが、今回はPaintイベントを使用したタイプで作成してみました。マウスクリック→ムーブ→クリックで、直線を描画します。（事前準備はこちら）Public Class Form1　Private ClickCount As Integer　Private stX As Integer, stY As Single　Private enX As Integer, enY As Single　Private linePen As Pen = New Pen(Color.Green, 3)　Private Sub PictureBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseCli...

４．次々と直線を描画する

システム開発の【Spread i-Vision】

次々と直線を描画する

https://www.spreadi-vision.com/drawline-2

「一時的に線を描画する」を発展させました。2点クリックで、次々と直線を描画していきます。（事前準備はこちら）※フォームのリサイズなどでも描画は消えませんPublic Class Form1　Private ClickCount As Integer　Private Lines(0) As Line　Private Structure Line　　Dim stX As Integer　　Dim stY As Integer　　Dim enX As Integer　　Dim enY As Integer　End Structure　Private linePen As Pen = New Pen(Color.Green, 3)　Private Sub PictureBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ...

５．次々と直線を描画する（ver2）

システム開発の【Spread i-Vision】

次々と直線を描画する（ver2）

https://www.spreadi-vision.com/drawlinever2

「次々と直線を描画する」をちょっとだけ発展させてみました。事前準備は大量にあるため、一番下に書きます。直線の太さと色を指定し、次々と直線を描画していきます。一時的な線が一番上に表示されるように、Paintイベント中で、描画順を変更しております。※フォームのリサイズなどでも描画は消えませんPublic Class Form1　Private ClickCount As Integer　Private Lines(0) As Line　Private Structure Line　　Dim stX As Integer　　Dim stY As Integer　　Dim enX As Integer　　Dim enY As Integer　　Dim col As Color　　Dim ...

６．ラバーバンド (Paintイベント処理)

システム開発の【Spread i-Vision】

ラバーバンド (Paintイベント処理)

https://www.spreadi-vision.com/rubber-band

事前準備・フォームにPictureBoxを貼り付け、DockプロパティをFillにする・BackColorをWhiteにする・サイズはお好みでクリック2回指定で四角形を描画していきます。（1回目のクリックで始点を指定、2回目のクリックで終点を指定）Public Class Form1　Private ClickCount As Integer　Private rect(0) As Rectangle　Private StX As Integer　Private StY As Integer　Private linePen As Pen = New Pen(Color.Green, 1)　Private Sub PictureBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1....

７．ラバーバンド (Paintイベント処理)(ver2)

システム開発の【Spread i-Vision】

ラバーバンド (Paintイベント処理)(ver2)

https://www.spreadi-vision.com/rubber-band2

事前準備は前回と同じです。（こちら）今回は、描画した四角形を毎回消去します。前回と同じように、クリック2回で四角形を描画します。　Public Class Form1　Private ClickCount As Integer　Private rect(0) As Rectangle　Private StX As Integer　Private StY As Integer　Private linePen As Pen = New Pen(Color.Green, 1)　Private Sub PictureBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseClick　　If ClickCount = 0 Then　　　ClickCount = 1　　　ReDim rect(1)　　　StX...

８．画像を表示する

システム開発の【Spread i-Vision】

画像を表示する

https://www.spreadi-vision.com/show-image

事前準備フォームにPictureBoxを貼り付ける。PictureBoxのDockプロパティをFillにする。C:\にsample.bmpを適当に作成する。Public Class Form1　Private bmp As Bitmap = New Bitmap("C:\sample.bmp")　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint　　e.Graphics.DrawImage(bmp, 0, 0, PictureBox1.Width, PictureBox1.Height)　End SubEnd Class元は475x380のサイズですが、フォーム内にきっちり収まっています。また、e.Graphics…の部分を、e.Graphics.DrawIm...

９．Bitmapに自由線を描画し表示する

システム開発の【Spread i-Vision】

Bitmapに自由線を描画し表示する

https://www.spreadi-vision.com/drawline-on-bitmap

事前準備・フォームにPictureBoxを貼り付ける・PictureBoxのDockプロパティをFillにする・PictureBoxのBackColorプロパティをWhiteにするマウスダウン～ムーブにて自由線を描画します。Public Class Form1　Private bmp As Bitmap　Private StX As Single, StY As Single　Private EnX As Single, EnY As Single　Private mDown As Boolean = False　Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load　　bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)　End Sub　Private Sub...

１０．Bitmapに自由線を描画し表示する(ver2)

システム開発の【Spread i-Vision】

Bitmapに自由線を描画し表示する(ver2)

https://www.spreadi-vision.com/drawline-on-bitmap2

事前準備などはこちら。Public Class Form1　Private bmp As Bitmap　Private StX As Single, StY As Single　Private EnX As Single, EnY As Single　Private mDown As Boolean = False　Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load　　bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)　End Sub　Private Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown　　mDown = True　　StX = e.X : StY = e.Y　　EnX...

LockBits編

１１．画像を読み込み編集する1 (LockBits)

システム開発の【Spread i-Vision】

画像を読み込み編集する1 (LockBits)

https://www.spreadi-vision.com/lockbits-1

【事前準備】・フォームにictureBoxを貼り付け、DockプロパティをFillにする。C:\aaabc.bmpを読み込み表示する。(32bppのBitmap)また、読み込む際に、特定の色の値を編集する。【ソースコード】Imports System.Drawing.ImagingPublic Class Form1　Private bmp As New Bitmap("C:\aaabc.bmp")　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　Dim bmpSr As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.ReadWrite, ...

１２．画像を読み込み編集する2 (LockBits)

システム開発の【Spread i-Vision】

画像を読み込み編集する2 (LockBits)

https://www.spreadi-vision.com/lockbits-2

【事前準備】・フォームにパネルを貼り付け、DockプロパティをTopにする。・その中に、ボタンを１つ貼り付ける・Pictureboxをパネルの外に貼り付け、DockプロパティをFillにする。ボタンをクリックするごとに、読み込んだ画像のAlphaを半分にしたり、元に戻したりします。【ソースコード】Imports System.Drawing.ImagingPublic Class Form1　Private bmp As Bitmap　Private cCnt As Short = 0　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　bmp = New Bitmap(Pictur...

１３．画像を読み込み編集する3 (LockBits)

システム開発の【Spread i-Vision】

画像を読み込み編集する3 (LockBits)

https://www.spreadi-vision.com/lockbits-3

事前準備こちらのボタンを4つ貼り付けたバージョンです。各ボタンを押下するごとに、BGRの各成分が0になります。ボタン4を押すと、画像が元に戻ります。【ソースコード】Imports System.Drawing.ImagingPublic Class Form1　Private bmp As New Bitmap("C:\aaa.jpg")　Private btn(2) As Control　Private cCnt As Short = 0　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint　　If bmp Is Nothing Then Exit Sub　　e.Graphics.DrawImage(bmp, 0, 0, PictureBox1.W...

１４．16色Bitmapを作成し描画する(LockBits使用)

システム開発の【Spread i-Vision】

16色Bitmapを作成し描画する(LockBits使用)

https://www.spreadi-vision.com/lockbits-bitmap

事前準備・フォームにテキストボックスとボタンを貼り付ける・その下にPictureBoxを貼り付ける・PictureBoxのBackColorプロパティをWhiteにするテキストボックスの中に数字を1～15を入れ、ボタンをクリックすることで、カラーパレットのインデックスをセットします。その後、マウスドラッグで描画します。【ソースコード】Imports System.Drawing.ImagingPublic Class Form1　Private Col(15) As Color　Private Palette As ColorPalette　Private ind As Integer = 0　Private mDownFlg As Boolean = False　Private stX As Integer, ...

１５．GrayScale変換を行う(LockBitsバージョン)

システム開発の【Spread i-Vision】

GrayScale変換を行う(LockBitsバージョン)

https://www.spreadi-vision.com/lockbits-grayscale

概要グレースケール変換のLockBitsバージョンです。24bppのBitmap(sBmp)を8bppのBitmap(dBmp)に変換しています。GetPixel/SetPixelバージョンはこちら。(事前準備や解説も、上記を参照してください。)【ソースコード】Option Strict OnImports System.Drawing.ImagingPublic Class Form1　Private sBmp As Bitmap = New Bitmap("C:\aaa.jpg")　Private dBmp As Bitmap　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint　　If dBmp Is Nothing Then Exit Sub　　e.Gr...

１６．32bppビットマップに描画し、4bpp(16色)ビットマップに保存する

システム開発の【Spread i-Vision】

32bppビットマップに描画し、4bpp(16色)ビットマップに保存する

https://www.spreadi-vision.com/32bpp-4bpp-bitmap

32bppBitmapに描画し、4bppBitmap(16色)に保存する。事前準備・フォームにMenuStripを貼り付ける。・その中に、色-(赤、青、緑、黒)と保存を加える・その下に、296 x 238のPictureBoxを貼り付ける【ソースコード】Imports System.Drawing.ImagingPublic Class Form1　Private sBmp As Bitmap　Private StX As Single, StY As Single　Private EnX As Single, EnY As Single　Private mDown As Boolean = False　Private Col(15) As Color　Private p As Pen　Private ColPalette As ColorPalette　Private srBytes() As Byte　Public S...

１７．透過Gifを作成する

システム開発の【Spread i-Vision】

透過Gifを作成する

https://www.spreadi-vision.com/transparent-gif

概要透過Gifを作成する。背景が透明なGifを作成します。32bppのビットマップを作成し、それを8bpp(256色)に変換し、Gifとして保存します。事前準備はこちらを参照して下さい。ソースコードImports System.Drawing.ImagingPublic Class Form1　Private sBmp As Bitmap　Private StX As Single, StY As Single　Private EnX As Single, EnY As Single　Private mDown As Boolean = False　Private Col(255) As Color　Private p As Pen　Private ColPalette As ColorPalette　Private srBytes() As Byte　Private Sub Form1_Load(ByVal s...

１８．画像のRGB情報を読み取る

システム開発の【Spread i-Vision】

画像のRGB情報を読み取る

https://www.spreadi-vision.com/getpixel

事前準備・フォームにPictureBoxを貼り付け、DockプロパティをFillにする。マウスのある点上のRGB情報を読み取り、フォームのタイトル欄に表示します。早い処理は必要ないので、LockBitsではなく、GetPixelを使用しました。Public Class Form1　Private bmp As Bitmap = New Bitmap("C:\sample.bmp")　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　Me.Size = bmp.Size　End Sub　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArg...

１９．GrayScale変換を行う

システム開発の【Spread i-Vision】

GrayScale変換を行う

https://www.spreadi-vision.com/grayscale

GrayScale変換を行う式は、Y = 0.299 * R + 0.587 * G + 0.114 * Bで表せます。今回は、かなり手抜きのグレースケール変換を行います。事前準備・フォームにピクチャーボックスを貼り付け、DockプロパティをFillにする。Public Class Form1　Private sBmp As Bitmap = New Bitmap("C:\aaa.jpg")　Private Sub Picture_Box(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint　　e.Graphics.DrawImage(sBmp, 0, 0)　End Sub　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As ...

その他

２０．矢印の大きさを変更する

システム開発の【Spread i-Vision】

矢印の大きさを変更する

https://www.spreadi-vision.com/adjustablearrowcap

事前準備フォームにPictureBoxを貼り付け、DockをFillにする。BackColorをWhiteにする。Imports System.Drawing.Drawing2DPublic Class Form1　Private myArrowS As New AdjustableArrowCap(10, 6)　Private customArrowS As CustomLineCap = myArrowS　Private myArrowE As New AdjustableArrowCap(20, 10, False)　Private customArrowE As CustomLineCap = myArrowS　Private capPen As New Pen(Color.Black)　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　capPen....

２１．StretchDIBitsサンプル

システム開発の【Spread i-Vision】

StretchDIBitsサンプル

https://www.spreadi-vision.com/stretchdibits

事前準備・フォームにPictureBoxを貼り付け、DockプロパティをFillにする。Imports System.Runtime.InteropServicesPublic Class Form1　Private Const DIB_RGB_COLORS As Integer = 0　Private Const SRCCOPY As Integer = 13369376　Public Structure BITMAPINFO　　Dim bmiHeader As BITMAPINFOHEADER　　Dim bmiColors() As RGBQUAD　End Structure　Public Structure RGBQUAD　　Dim rgbBlue As Byte　　Dim rgbGreen As Byte　　Dim rgbRed As Byte　　Dim rgbReserved As Byte　End Structure　Public Structure BITMAPINFOHEAD...

補足トピックス

値型と参照型及び値渡しと参照渡し

このあたりも基本となりますが、実際の動きを説明してもらおうとすると、

そもそも説明できない人、正しく説明できない人といます。

基本中の基本ですので、必ずおさえておきましょう。

システム開発の【Spread i-Vision】

値型と参照型、及び値渡しと参照渡し

https://www.spreadi-vision.com/byval-byref

値型・Byte・Short・Integer・Long・Single・Double・Decimal・Char・Boolean参照型・String・Object値型データの変数を宣言した場合、その型のデータ領域自体がメモリ上に確保される。しかし、参照型の場合は、それぞれの型の領域が確保されるのではなく、メモリ上に確保されるのは、データ実体のメモリ上の位置情報を格納する領域。値渡し関数を呼び出す際、引数に変数の値を渡す。関数内で変数が変更されても、元の変数に影響はない。ByValで指定する。参照渡し関数を呼び出す際、引数に変数のアドレスなどの参照を渡す。関数内で変...

Load時のイベントの発生について

これも基本ですが、理解しないままコードを書いている人をみかけます。

各種イベントの使い分けは必ずできるようにして下さい。

システム開発の【Spread i-Vision】

Load時のイベントの発生について

https://www.spreadi-vision.com/load-shown-activated

Formロード時のイベントの発生順は、以下の通りとなる。・Load・Activated・Shown検証事前準備・特になしPublic Class Form1　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　Console.WriteLine("aaa")　End Sub　Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated　　Console.WriteLine("bbb")　End Sub　Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As S...

TextBox処理関係

一般的には関数にしたものは持っていると思いますが、念のため書きました。

本当はもっと記載することがありますが、ごちゃごちゃにならないように

最小限の内容としてあります。

システム開発の【Spread i-Vision】

TextBox処理関係

https://www.spreadi-vision.com/textbox-select

・Enterキーにて次のコントロールへ移動する　Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown　　If e.KeyCode = Keys.Return Then　　　SelectNextControl(CType(sender, Control), True, True, True, True)　　End If　End Sub・テキストボックスに入ったときに、内容を選択状態にする　Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter　　CType(sender, TextBox).SelectAll()　End Sub・テキストボックスをマ...

AddHandlerステートメント

このあたりも基本です。

イベントの発生を追加・削除できるのでコーディングの幅が広がるのと、

ソースコードの右端の方に、handlesで長々と記載しなくて済むようにできます。

横長のモニターを使用していればある程度は耐えられますが、40インチ以上を

基準として横長にソースを書かれた場合、非常に見づらくなります。

システム開発の【Spread i-Vision】

AddHandlerステートメント

https://www.spreadi-vision.com/addhandler-removehandler

実行時に、イベントをイベントハンドラに関連付ける。AddHandler event , AddressOf eventhandlerevent…処理するイベントの名前eventhandler…イベントを処理するプロシージャの名前　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　MakeLBArray()　　For i As Integer = 1 To UBound(lb)　　　AddHandler lb(i).Click, AddressOf Label1_Click　　Next　End Sub　Private Sub MakeLBArray()　　lb(1) = Me.Label1　　lb(2) = Me.Label2　　lb(3) = Me.Label3　　lb(4) =...

グレースケール変換について

グレースケールの一般的な内容が記載してあります。

システム開発の【Spread i-Vision】

グレースケール変換について

https://www.spreadi-vision.com/about-gray-scale

GrayScale変換を行う式は、Y = 0.299 * R + 0.587 * G + 0.114 * Bで表せます。24bppのBitmapを8bppのBitmapに変換するとき、カラーパレットが必要になりますが、カラーパレットの指定は、　　Dim Col(255) As Color　　For i As Integer = 0 To 255　　　Col(i) = Color.FromArgb(i, i, i)　　Next　　Dim pal As ColorPalette = dBmp.Palette　　For i As Integer = 0 To 255　　　pal.Entries(i) = Col(i)　　Next　　dBmp.Palette = palこのような形になります。パレットの各色のRGB値を同じにし、それを0～255の256段階で作成しま...

Byte配列について

Byte型の配列についてです。このあたりも使いこなせると、

インターネットで調べ物をした場合にも、対応できる幅が広がると思います。

システム開発の【Spread i-Vision】

Byte配列について

https://www.spreadi-vision.com/byte-array

BitmapのBitmapDataをLockBitsにて取得した後、Byte配列に生成しますが、その中のByteの並び順は、・32bppARGBBGRAの順に並んでいる。1Pixelにつき、BGRAの4Byte分あります。よって、bmp.Strideはbmpの幅の4倍になっています。・24bppRGBBGRの順に並んでいる。32bpp→8bpp(256色)変換などでは、この並びが分かっていないと、自力で変換できなかったりします。（4bppIndexed形式(16色)のBitmapを作成する際に、カラーパレットを自力作成するときなどは必須だと思います）関連記事・Bitmap.LockBitsメソッド・画像を読み込み編集する1(Loc...

API関連

全く触ったことがないのと、多少でも触ったことがあるのでは、大きく差が開きます。

簡単に流す程度でもよいので、内容には触れておいて下さい。

システム開発の【Spread i-Vision】

・BitBlt・StretchBlt・StretchDIBits・SetStretchBltMode・SetPixelV・CreateCompatibleDC・GetDC・ReleaseDC・DeleteDC・GetStretchBltMode・SetStretchBltMode・SelectObject・DeleteObject・ラスターオペレーションコード・StretchDIBitsサンプル外部リンク・Microsoft Win32 と Microsoft .NET Framework API との対応システム開発のためのVB.NETプログラミング関係一覧に戻る

Enterキーで入力欄を移動する

システム開発の【Spread i-Vision】

Enterキーで入力欄を移動する

https://www.spreadi-vision.com/net_enter_key_move

Enterキーで次の入力欄へ移動する方法について記載します。関数を作成すれば、初期のloadでコピペするだけで使用できます。クラスを別に作成しない例だと色々と出ていますが、クラスを別に作成すると、一つだけひねる点がありますので、そちらのバージョンで記載します。１．準備事項フォームにテキストボックスを３つ程度、貼り付けて下さい。単純にサンプルの動作確認用なので、この程度で大丈夫です。２．関数に必要なメソッドなどまずは次のメソッドを説明します。Control.FindForm例えば、次のように使用します。Dim f As Form = ...

その他のコードのみ

理解しているようで、できていない「画像処理」

描画関係の基本

基礎編

LockBits編

その他

補足トピックス

値型と参照型及び値渡しと参照渡し

Load時のイベントの発生について

TextBox処理関係

AddHandlerステートメント

グレースケール変換について

Byte配列について

API関連

Enterキーで入力欄を移動する

その他のコードのみ

PixelFormat.Format16bppRgb555形式

PixelFormat.Format16bppRgb565形式

エッジ関係

クラスや宣言などの一覧