おやじプログラマー日記

久々にVB6を動かすことがあったのですが、マウスのホイールボタンには対応していなくて ソースを見るのが「．NET」とは勝手が違いました。

VB6は相当古いソフトなのでマウスのホイールボタンには対応していないのですが、 調べてみると、ホイールボタンに対応するDLLをMicroSoftが提供していました。

■「VB6MouseWheel.exe」ファイルのダウンロード

Microsoft の以下サポートページより、「VB6MouseWheel.EXE パッケージ」をダウンロードします。

http://support.microsoft.com/kb/837910/ja（マイクロソフト サポート オンライン）

■「VB6MouseWheel.exe」ファイルの展開

「VB6MouseWheel.exe」を適当なフォルダにダウンロードし、実行すると以下のファイルが解凍されます。

・EULA.txt
・Main.bas
・VB6IDEMouseWheelAddin.dll
・VB6IDEMouseWheelAddin.vbp
・VBA Mouse Wheel Fix.reg


■「VB6IDEMouseWheelAddin.dll」ファイルのレジストリ登録

「VB6IDEMouseWheelAddin.dll」を適当なフォルダにコピーして、レジストリ登録を行います。
私は、「C:\Program Files (x86)\Microsoft Visual Studio\VB98\」フォルダにコピーしました。
（64bitマシンだったので「x86」ですが）

その後で、Windowsシステムツールの「コマンドプロンプト」を管理者として実行し、ウインドウを開きます。 以下のコマンドを実行して、レジストリ登録を行います。

regsvr32 "C:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6IDEMouseWheelAddin.dll"

■VB6のアドイン設定

VB6 の開発環境を開き、メニューの [アドイン] から [アドインマネージャ] を起動します。
[アドイン マネージャー] ボックスの一覧で、[MouseWheel Fix] を選択し、 [ロード/アンロード] チェックボックスと、[起動時にロード] チェックボックスをオンにします。
最後に「OK」ボタンをクリックし、開発環境を再起動すると、マウスのホイールが使用できるようになります。

これでやっと、ソースを見るのが少し楽になりました。

エクセルの罫線の設定はいちいち面倒なもので、セルに値が入った時に自動で引けないものかと思って 調べたところ、「条件付き書式」で行えるようです。

以下の様に3個の列が在って先頭のA列に何か文字列が入力された場合に、 3列全てのセルの罫線を引く場合を設定してみます。

メニューリボンの「ホーム」を選択し、「条件付き書式▼」をクリックし、 「新しいルール(N)...」をクリックします。

「新しい書式ルール」のウインドウが表示されますので、 「数式を使用して、書式設定するセルを決定」をクリックします。

「次の数式を満たす場合に値を書式設定」のところに ”=$A2<>""” を 入力します。

その後で、「書式(E)」をクリックし「セルの書式設定」ウインドウが表示されたら、 罫線タブで外枠を描画する様に指定します。

「セルの書式設定」が終わった後で、「新しい書式ルール」のウインドウで 「OK」をクリックし登録します。

「条件付き書式▼」の「ルールの管理(R)」から 「条件付き書式ルールの管理」ウインドウを表示します。
「書式ルールの表示」のコンボボックスから”このワークシート”を選択します。

先ほど登録したルールが一覧にあると思いますので、 適用先をＡ列の2行目からＣ列の1000行目まで ”=$A$2:$C$1000” と設定します。
実際は1000行よりも多くしておいた方がいいかと思います。

「条件付き書式ルールの管理」ウインドウで「適用」をクリックすると、 エクセルシートに罫線が以下の様に描画されるはずです。

この方法での罫線は二重線が描画できないことが難点ではあります。

たった1日で即戦力になるExcelの教科書【電子書籍】[ 吉田拳 ] 価格： 1,922円 （2016/09/29 14:06時点 ） 感想：0件

このブログですが最近開くのが遅いと感じていたのですが、原因がわかりました。
ソーシャルブックマーク統合サービスの「Add Clips」を記事に貼っていたのですが、 このサービスが2016年3月31日で終了していました。

以下のスクリプトを貼っていたのですが、早速削除しました。
<script type="text/javascript"> <!-- AddClipsUrl = location.href; AddClipsTitle = document.title; AddClipsId = '143AA2EAE86F0'; AddClipsBcolor='#78BE44'; AddClipsNcolor='#D1E9C0'; AddClipsTcolor='#666666'; AddClipsType='0'; AddClipsVerticalAlign='middle'; AddClipsDefault='bookmark'; // --> </script> <script charset="utf-8" src=" http://js.addclips.org/v2/addclips.js" type="text/javascript"> </script>

今日、なにげにメールソフトの「迷惑メール」フォルダをのぞいたら、 ゆうちょ銀行？から「登録変更完了のお知らせ」なるメールが届いていました。

ゆうちょ銀行から何かあったのかなと思ったのですが、 「迷惑メール」フォルダに入っていたので、ちょっとゆうちょ銀行のサイトを確認しました。

やはりフィッシングメールだそうで、パスワードなどが盗まれる可能性がありますので 絶対にリンクをクリックしない様にしてくださいとのことでした。
メールの内容は以下の様な感じです。 しかし、ほんとに腹立ちますよね。

DENSOのハンディターミナルBHT-1300を使ったシステムを作成することがあったので、 ハンディターミナルの開発言語であるBHT-BASIC4.0についていろいろ載せていきたいと思います。

このBHT-BASIC4.0ですが言語としてはBASICなのですが、 最近のはやりのVisualBasic.NETとは全然違っています。
一言でいえば相当昔のBASICで、言語仕様的には30数年前の NECのPC8001やPC8801などのROM-BASICと呼ばれていたBASICに近いです。 これらのBASICは元々はMicroSoftが開発したBASICを日本のメーカが採用し ROMの中に入れていたものです。 パソコンの電源ONでいきなりBASICが走る感じになっていました。

なので、昔にBASICを触ったことが有る方ならば懐かしい感じで プログラムできるのではないでしょうか。 実際私も、昔を思い出しながら組みました。

昔語りはこの辺にしまして、BHT-BASIC4.0に話を戻します。 BHT-BASIC4.0（以降はBHT-BASICと称します）はハンディターミナルの上で動作させるためなのか、 昔のBASICよりは制約がいろいろあります。 変数の名前の長さであったり、文字列のMAX長であったりそこは ハンディターミナルなのでメモリの制約があると思われます。

それでは今回は初回なので、変数などについて記します。

■BHT-BASICのハンディターミナル内での構成

ハンディターミナルのメモリにはフラッシュメモリとＲＡＭがあり、 フラッシュメモリの中では以下の構成部分からなります。
・システムプログラム
　（BHT-BASICインタプリタ、拡張ライブラリ、拡張関数、システムドライバ等）
・ユーザプログラム
　（ユーザが作成した実行可能なプログラムファイル）
・ユーザデータファイル
　（ユーザプログラムで作成・使用されるデータファイル等）


■BHT-BASICの開発など

・BASICの文法はほぼMicroSoftのBASICと同じです。
・専用のコンパイラ・リンケージエディタで開発します。
・コンパイラ言語なので行番号は不要です。
・実行可能プログラムファイルは中間言語に変換される。
　（ファイル拡張子は PD4 ）
・開発環境はWindows7,Windows8などの32bitパソコンが必要です。
・実行プログラムをハンディターミナルに転送する通信ユニットが必要です。
　（通信ユニットにはUSBまたはRS-232Cでパソコンと接続）


■BHT-BASICの特徴など

・プログラムの1行は512文字（バイト）
・変数名に使用できるのは、英数字とピリオドのみ
・変数名は大文字と小文字の区別は無く、255文字まで
　（但し、文字列変数を表す $ 、 整数変数を表す % は文字数に含めない）
・変数のデータ型には以下の4種類がある。

データ型	型宣言文字	値の範囲
整数型	%	-32,768 ～ 32,767
長整数型	&	-2,147,483,648 ～ 2,147,483,647
実数型	無し	（ゼロ）0 （正数）0.1000000000E-64 ～ 0.9999999999E+63 （負数）-0.1000000000E-64 ～ -0.9999999999E+63
文字型	$	0文字 ～ 8192文字

文字列型の文字数のMAXが8192文字（バイト）なのは注意が必要です。 また、文字列型は他にも注意する点があるのですが、それはまた次回に記します。

今回はこの辺りまでで、終わります。
次回は、変数の宣言の仕方や、式の書き方などにします。

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】


■関連記事
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

BHT-BASIC4.0BHT用 転送ユーティリティ DLLパック【送料無料・代引手数料無料】【02P05Nov16】 価格： 48,600円 （2016/11/26 21:56時点 ）

私自身もプログラムを組んでいて調べ物をするときには、よくGoogleで検索しています。 でもなかなかほしい情報にたどり着くことは難しいものです。 既に先人が解決していて、ネットに載せていればそれを参考にできるのですが。

さて、そんな時に最初に調べるサイトを紹介します。以下のサイトでVisualBasicでの大抵の問題は解決すると思います。

■VBレスキュー(花ちゃん)

http://hanatyan.sakura.ne.jp/

ここは初心者から中級辺りまでの情報が満載です。掲示板もありますので質問もできます。


■DOBON.NET

http://dobon.net/

ここは初心者から上級辺りまでの情報が満載ですし、ソースも完備しています。 掲示板もありますので質問もできます。


■Visual Basic 中学校

http://homepage1.nifty.com/rucio/main/main.htm

このサイトによれば 「対象者はＶＢ初心者。特に小学生、中学生、高校生プログラマを念頭に置いています」 とのことですが、解説はVisualBasicを初めて学ぶ方にとっては非常に分かりやすいと思います。 ここは初心者から中級辺りまでの内容ですが、改めて勉強しなおすには良いサイトです。

■CodeProject

http://www.codeproject.com/

このサイトは英語なのですが、英語だとひるまずに、必要な単語を検索ボックスに入力し検索してみてください。 ほしい情報がヒットするかもしれません。 結構な情報量です。私もたまに利用させてもらっています。

ADO.NET を使用した SQL-Server のテーブルをCSVファイルに出力する簡単な関数を作成してみました。

CSVファイルを作成する関数への引数は、データベース名とデータソース名と、SQL文、それとCSVファイル名とCSV内のカラムヘッダを 出力するかのフラグになります。

CSV出力処理関数内では SQL-Server への接続をオープンし、指定されたSELECT文を実行します。 SELECT文の結果の行が在れば、1行づつデータを取得します。 初回の行の処理の場合には、リーダーオブジェクトからカラム名を取得しヘッダ行を書き込みます。 その後、各データ行をCSVファイルに書き込みます。 CSVの各データは強制的にダブルクォートで囲む様にしていますので、 データ内のダブルクォートはエスケープ処理しています。

Public Class Form1 'フォーム上に張り付けたボタンでの処理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SqlToCsv("TEST", ".\SQLEXPRESS12", "SELECT * FROM TEST1 ORDER BY CODE", "TEST.CSV", True) End Sub ''' <summary>指定SQL文のCSVファイル出力</summary> ''' <param name="Database">データベース名</param> ''' <param name="DataSource">データソース名</param> ''' <param name="SQL">SELECT文</param> ''' <param name="CsvFilePath">CSVファイルパス</param> ''' <param name="fHeader">カラムヘッダ出力指示</param> Private Sub SqlToCsv(ByVal Database As String, ByVal DataSource As String, ByVal SQL As String, _ ByVal CsvFilePath As String, ByVal fHeader As Boolean) 'CSVファイル書込Encoding(Shift-JIS) Dim Enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS") 'CSVファイルオープン Dim SWrt As New System.IO.StreamWriter(CsvFilePath, False, Enc) 'SQL-Server接続文字列 Dim DBConnection As String = "Persist Security Info=false;Integrated Security=SSPI;" & _ "Database=" & Database & ";Data Source=" & DataSource & ";" 'SQLコネクションクラス Dim Conn As New System.Data.SqlClient.SqlConnection(DBConnection) Conn.Open() 'コマンドオブジェクト Dim Cmd As New System.Data.SqlClient.SqlCommand(SQL, Conn) 'TESTデータ取得(リーダーオブジェクト) Dim Reader As System.Data.SqlClient.SqlDataReader = Nothing Reader = Cmd.ExecuteReader() '読込行数が存在?? If Reader.HasRows Then Dim fFirst As Boolean = True '読込 While Reader.Read() = True If fHeader = True And fFirst = True Then fFirst = False Dim ColName As String = "" 'カラム数分の処理 For i As Integer = 0 To Reader.FieldCount - 1 'カラム名取得し、ダブルクォートで囲む ColName = SuroundDblQuotes(Reader.GetName(i)) 'カラム名書込 SWrt.Write(ColName) 'カンマ書込 If i < Reader.FieldCount - 1 Then SWrt.Write(","c) End If Next '改行書込 SWrt.Write(vbCrLf) End If Dim ColData As String = "" For i As Integer = 0 To Reader.FieldCount - 1 'データ取得し、ダブルクォートで囲む ColData = SuroundDblQuotes(Reader.GetValue(i).ToString()) 'データ書込 SWrt.Write(ColData) 'カンマ書込 If i < Reader.FieldCount - 1 Then SWrt.Write(","c) End If Next '改行書込 SWrt.Write(vbCrLf) End While End If 'CSVファイルクローズ SWrt.Close() 'クローズ Conn.Close() End Sub ''' <summary>文字列をダブルクォートで囲む</summary> Private Function SuroundDblQuotes(ByVal str As String) As String If str.IndexOf(""""c) > -1 Then '文字列をダブルクォートをダブルクォートでエスケープ str = str.Replace("""", """""") End If Return """" & str & """" End Function
尚、今回のテーブルは以下の生成文で生成しました。
CREATE TABLE TEST1 ( CODE VARCHAR(8) NOT NULL ,DATA1 VARCHAR(16) ,DATA2 VARCHAR(16) ,DATA3 VARCHAR(16) ,CONSTRAINT TEST1_PKC PRIMARY KEY (CODE) ); INSERT INTO TEST1 VALUES('00000001', 'A000001', 'BBBBBB1', 'C001'); INSERT INTO TEST1 VALUES('00000002', 'A000002', 'BBBBBB2', 'C002'); INSERT INTO TEST1 VALUES('00000003', 'A000003', 'BBBBBB3', 'C003'); INSERT INTO TEST1 VALUES('00000004', 'A000004', 'BBBBBB4', 'C004');
結果的にCSVファイル内容は以下の様になります。
"CODE","DATA1","DATA2","DATA3" "00000001","A000001","BBBBBB1","C001" "00000002","A000002","BBBBBB2","C002" "00000003","A000003","BBBBBB3","C003" "00000004","A000004","BBBBBB4","C004"

■関連記事
⇒BCPコマンドでUnicode文字形式を使用したデータのインポート及びエクスポート(SQL Server)について
⇒ADO.NET での DataReader の入れ子エラー
⇒ADO.NET を使用した SQL-Server へのアクセス・クラス
⇒SQL-Serverの自動採番(IDENTITY値)の取得・リセット
⇒SQL-Serverのストアド・ファンクションではUPDATEなどが実行できない
⇒SQL-Serverのユーティリティ(BCPコマンド)を利用したテーブルへのインポート・エキスポート
⇒SQL-Serverのプロシージャ生成のバッチ実行
⇒SQL-Serverの関数・プロシージャのVB.NETでの実行

エクセルでCSVファイルを読込む場合、先頭がゼロのデータが消されてしまい左寄せの様な表示になります。 例えば電場番号や商品コードなどでは、先頭にゼロが存在することは自然なことなので、 ゼロがサプレスされてしまうと不都合が在ります。

以下の様なCSVファイルをエクセルに読込んでみます。

エクセルの結果はやはり先頭ゼロが在りません。

そこで先頭ゼロのカラムデータは値をダブルコーテーションで囲んで先頭に = （イコール）を 置いてやります。 以下の様にCSVファイルを変更してやります。

エクセルの結果は先頭ゼロが表示される様になりました。

上図のセルの値からも分かるように、値が ="0012345" とCSVファイルの値そのものになるので 注意が必要です。これをそのまま印刷しても 0012345 とちゃんと表示されます。

たった1日で即戦力になるExcelの教科書【電子書籍】[ 吉田拳 ] 価格： 1,922円 （2016/09/29 14:06時点 ） 感想：0件

標準コントロールのコンボボックス(ComboBox)ですが、このコントロールへの設定値は Items で行います。 フォームのデザイナ上でプロパティウインドウの中から設定してもいいのですが、 今回は Items に設定する項目をクラスとして定義し、 それを指定のコンボボックスに設定するクラスを作成してみました。

 Items に設定できるデータ型は Object 型の配列として宣言されていますので、 クラスの値の配列を設定が可能です。

以下のソースでは、全体のクラス名を ClsCombo として宣言し、 コンボの Items に設定されるデータを ComboItem として宣言しています。
このクラスを使用する場合は、 ComboItem で項目値を配列として宣言し、  ClsCombo のコンストラクタに渡す様にします。

■プロパティ

プロパティ名	内容
ComboDivision	選択区分値(数値)を取得
ComboDivString	選択区分値(文字列)を取得
ComboText	選択区分名(Text)を取得

■メソッド

メソッド名	引数	内容
SetComboSeletedIndex	区分値(Long)	区分値を選択状態に設定
SetComboSeletedIndex	区分値(文字列)	区分値を選択状態に設定

Public Class ClsCombo ''' <summary>コンボボックスのItemsに設定されるクラス</summary> Public Class ComboItem Public Text As String Public Number As Long Public NumberStr As String 'ComboBoxには、ToString()メソッドの内容が表示される Public Overrides Function ToString() As String Return Text End Function 'コンストラクタ(区分値が数値) Public Sub New(ByVal setText As String, ByVal setNumber As Long) Text = setText Number = setNumber End Sub 'コンストラクタ(区分値が文字列) Public Sub New(ByVal setText As String, ByVal setNumber As String) Text = setText NumberStr = setNumber End Sub End Class 'コンボボックス退避 Private _Combo As ComboBox ''' <summary>コンストラクタ</summary> ''' <param name="Combo">コンボボックス</param> ''' <param name="ComboItems">ComboItemクラスの配列</param> Sub New(ByRef Combo As ComboBox, ByVal ComboItems() As ComboItem) Me._Combo = Combo With _Combo .DropDownStyle = ComboBoxStyle.DropDownList .Items.Clear() .Items.AddRange(ComboItems) .SelectedIndex = -1 .Font = New Font("ＭＳ ゴシック", 12) End With End Sub ''' <summary>コンボボックスの選択区分値(Number)を取得</summary> Public ReadOnly Property ComboDivision As Long Get '戻り値初期化 ComboDivision = -1 If Me._Combo.SelectedIndex >= 0 Then '項目のNumberを返す ComboDivision = DirectCast(Me._Combo.SelectedItem, ComboItem).Number End If End Get End Property ''' <summary>コンボボックスの選択区分値(String)を取得</summary> Public ReadOnly Property ComboDivString As String Get '戻り値初期化 ComboDivString = "" If Me._Combo.SelectedIndex >= 0 Then '項目のNumberStrを返す ComboDivString = DirectCast(Me._Combo.SelectedItem, ComboItem).NumberStr End If End Get End Property ''' <summary>コンボボックスの選択区分名(Text)を取得</summary> ''' <returns>区分名(Text)</returns> Public ReadOnly Property ComboText As String Get '戻り値初期化 ComboText = "" If Me._Combo.SelectedIndex >= 0 Then '項目のStringを返す ComboText = DirectCast(Me._Combo.SelectedItem, ComboItem).Text End If End Get End Property ''' <summary>指定された区分値を選択状態に設定</summary> ''' <param name="number">区分値(Long)</param> Public Sub SetComboSeletedIndex(ByVal number As Long) With Me._Combo 'コンボに設定済Items分処理する For i As Integer = 0 To .Items.Count - 1 If number = DirectCast(.Items(i), ComboItem).Number Then '指定の値がコンボのNumberと等しい場合、選択済み設定 .SelectedIndex = i Exit For End If Next End With End Sub ''' <summary>指定された区分値を選択状態に設定</summary> ''' <param name="numberStr">区分値(String)</param> Public Sub SetComboSeletedIndex(ByVal numberStr As String) With Me._Combo 'コンボに設定済Items分処理する For i As Integer = 0 To .Items.Count - 1 If numberStr = DirectCast(.Items(i), ComboItem).NumberStr Then '指定の値がコンボのNumberStrと等しい場合、選択済み設定 .SelectedIndex = i Exit For End If Next End With End Sub End Class
このクラスを使う例として以下のソースを示します。
Public Class Form1 'コンボボックス１の為のクラスと設定値 Private Cbo1 As ClsCombo Private Cbo1Items() As ClsCombo.ComboItem = _ {New ClsCombo.ComboItem("0:無効", 0), New ClsCombo.ComboItem("1:有効", 1)} 'コンボボックス２の為のクラスと設定値 Private Cbo2 As ClsCombo Private Cbo2Items() As ClsCombo.ComboItem = _ {New ClsCombo.ComboItem("区分１", "001"), New ClsCombo.ComboItem("区分２", "002"), _ New ClsCombo.ComboItem("区分３", "003")} 'フォームロード時イベント処理 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Cbo1 = New ClsCombo(Me.ComboBox1, Cbo1Items) Cbo1.SetComboSeletedIndex(0) Cbo2 = New ClsCombo(Me.ComboBox2, Cbo2Items) Cbo2.SetComboSeletedIndex("002") End Sub 'ボタンクリック時イベント処理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim str As String = "" str &= "コンボ1: Division = " & Cbo1.ComboDivision & " , Text = " & Cbo1.ComboText & vbCrLf str &= "コンボ2: Division = " & Cbo2.ComboDivString & " , Text = " & Cbo2.ComboText MsgBox(str, MsgBoxStyle.OkOnly, "コンボテスト") End Sub End Class
プライベート変数で今回のクラスの変数と、コンボに設定する項目値の配列を宣言します。 その後、フォームロード時イベントでクラス変数の生成を行い、初期選択値を設定します。

ボタンクリック時イベントで選択されている区分値とコンボボックスに表示されているテキスト文字列を クラスより取得し表示しています。

Visual Basic 2013逆引き大全 555の極意【電子書籍】[ 増田智明 ] 価格： 2,527円 （2016/09/29 14:32時点 ） 感想：0件

今回の記事は、パソコンの画面上で、タスクバーを除いた部分でどの位置に表示するかを制御する簡単なTIPSです。
通常パソコンのディスプレイは１台なのでプライマリディスプレイと言えば表示画面そのものですが、 System.Windows.Forms.Screenクラスのプロパティ PrimaryScreen から画面の情報を取得できます。
 PrimaryScreen プロパティはSystem.Windows.Forms.Screenクラスで以下の様なプロパティを持っています。

プロパティ	内容
BitsPerPixel	1 ピクセルのデータに関連付けられているメモリのビット数を取得
Bounds	ディスプレイの範囲を取得
WorkingArea	ディスプレイの作業領域を取得。作業領域とは、ディスプレイのデスクトップ領域からタスクバー、ドッキングされたウィンドウ、およびドッキングされたツール バーを除いた部分

画面の表示は以下の様になります。
以下の今回のソースを示しますが、画面中央、左上、右上、左下、右下のラジオボタンをクリックし ボタンをクリックすると、指定位置にフォームが移動します。
タスクバーの領域を除いた部分での画面位置ですので、 WorkingArea プロパティを使います。
Public Class Form1 'ボタンクリックでフォーム位置移動 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Pos As EnmFrmPosition = EnmFrmPosition.None If Me.RadioButton1.Checked Then Pos = EnmFrmPosition.Center End If If Me.RadioButton2.Checked Then Pos = EnmFrmPosition.TopLeft End If If Me.RadioButton3.Checked Then Pos = EnmFrmPosition.TopRight End If If Me.RadioButton4.Checked Then Pos = EnmFrmPosition.BottomLeft End If If Me.RadioButton5.Checked Then Pos = EnmFrmPosition.BottomRight ' End If SetFormPosition(Me, Pos) End Sub End Class Module TestPos 'フォーム位置宣言 Public Enum EnmFrmPosition None = 0 '無し Center '中央 TopRight '右上 TopLeft '左上 BottomRight '右下 BottomLeft '左下 End Enum 'フォーム位置設定 Public Sub SetFormPosition(ByVal Frm As Form, ByVal EnmWinPos As EnmFrmPosition) With System.Windows.Forms.Screen.PrimaryScreen.WorkingArea Select Case EnmWinPos Case EnmFrmPosition.Center '中央 Frm.Left = CInt(.Width / 2) - CInt(Frm.Width / 2) + .Left Frm.Top = CInt(.Height / 2) - CInt(Frm.Height / 2) + .Top Case EnmFrmPosition.TopRight '右上 Frm.Left = .Width - Frm.Width Frm.Top = 0 Case EnmFrmPosition.TopLeft '左上 Frm.Left = 0 Frm.Top = 0 Case EnmFrmPosition.BottomRight '右下 Frm.Left = .Width - Frm.Width Frm.Top = .Height - Frm.Height Case EnmFrmPosition.BottomLeft '左下 Frm.Left = 0 Frm.Top = .Height - Frm.Height End Select End With End Sub End Module
この例の関数ですが、仕事で普通に使う場合は、画面中央に表示する場合がほとんどでした。
基礎Visual Basic 2015 基礎シリーズ