[VB2005]VB.NETからの変更点メモ

▼質問
VB.NETで指定していたウィンドウハンドルのMe.hWndがエラーになるんだ。
候補リストからそれらしき名前のものを探しても見つからないんだ。どうして？

▼回答
どうしてか判らないが、Me.Handleを指定すればいいんだ。

[C++]VBA・VB2005への型変換

[Wtypes.hに含まれるアンマネージ型]：[アンマネージC言語型]：[マネージクラス名]：[説明][HANDLE]：[void*]：[System.IntPtr]：[32ビット]

[BYTE]：[unsigned]：[char]：[System.Byte]：[8ビット]

[SHORT]：[short]：[System.Int16]：[16ビット]

[WORD]：[unsigned]：[short]：[System.UInt16]：[16ビット]

[INT]：[int]：[System.Int32]：[32ビット]

[UINT]：[unsigned]：[int]：[System.UInt32]：[32ビット]

[LONG]：[long]：[System.Int32]：[32ビット]

[BOOL]：[long]：[System.Int32]：[32ビット]

[DWORD]：[unsigned]：[long]：[System.UInt32]：[32ビット]

[ULONG]：[unsigned]：[long]：[System.UInt32]：[32ビット]

[CHAR]：[char]：[System.Char]：[ANSIにより装飾]

[LPSTR]：[char*]：[System.StringまたはSystem.StringBuilder]：[ANSIにより装飾]

[LPCSTR]：[Const]：[char*]：[System.StringまたはSystem.StringBuilder]：[ANSIにより装飾]

[LPWSTR]：[wchar_t*]：[System.StringまたはSystem.StringBuilder]：[Unicodeにより装飾]

[LPCWSTR]：[Const]：[wchar_t*]：[System.StringまたはSystem.StringBuilder]：[Unicodeにより装飾]

[FLOAT]：[Float]：[System.Single]：[32ビット]

[DOUBLE]：[Double]：[System.Double]：[64ビット]


[クラス名]：[説明]：[Visual Basic のデータ型]：[C# のデータ型]：[C++ マネージ拡張のデータ型]：[JScript のデータ型]
●整数
[Byte]：[8ビット符号なし整数]：[Byte]：[byte]：[char]：[Byte]

[SByte]：[8ビット符号付き整数（非CLS準拠）]：[SByte（非組み込み型）]:[sbyte]：[signed char]：[SByte]

[Int16]：[16ビット符号付き整数]：[Short]：[short]：[short]：[short][Int32]：[32ビット符号付き整数]：[Integer]：[int]：[intまたはlong]：[int]

[Int64]：[64ビット符号付き整数]：[Long]：[long]：[__int64]：[long]

[UInt16]：[16ビット符号なし整数（非CLS準拠）]：[UInt16（非組み込み型）]：[ushort]：[unsigned short]：[UInt16]

[UInt32]：[32ビット符号なし整数（非CLS準拠）]：[UInt32（非組み込み型）]：[uint]：[unsigned intまたはunsigned long]：[UInt32]

[UInt64]：[64 ビット符号なし整数（非CLS準拠）]：[UInt64（非組み込み型）]：[ulong]：[unsigned __int64]：[UInt64]

●浮動小数点数
[Single]：[単精度 (32 ビット) 浮動小数点数]：[Single]：[float]：[float]：[float]
[Double]：[倍精度 (64 ビット) 浮動小数点数]：[Double]：[double]：[double]：[double]

●論理型
[Boolean]：[ブール値 (true または false)]：[Boolean]：[bool]：[bool]：[bool]

●その他
[Char]：[Unicode (16 ビット) 文字]：[Char]：[char]：[wchar_t]：[char]

[Decimal]：[96ビット10進値]：[Decimal]：[decimal]：[Decimal]：[Decimal]

[IntPtr]：[基になるプラットフォームによってサイズが決まる符号付き整数 (32 ビットのプラットフォームでは 32 ビット値、64 ビットのプラットフォームでは 64 ビット値) ]：[IntPtr（非組み込み型）]：[IntPtr（非組み込み型）]：[IntPtr（非組み込み型）]：[IntPtr]

[UIntPtr]：[基になるプラットフォームによってサイズが決まる符号なし整数 (32 ビットのプラットフォームでは 32 ビット値、64 ビットのプラットフォームでは 64 ビット値)（非CLS準拠）]：[UIntPtr（非組み込み型）]：[UIntPtr（非組み込み型）]：[UIntPtr（非組み込み型）]：[UIntPtr]

●クラス オブジェクト
[Object]：[オブジェクト階層構造のルート]：[Object]：[object]：[Object*]：[Object]
[String]：[Unicode 文字の不変固定長文字列]：[String]：[string]：[String*]：[String]


[整数型のサイズ]：[Visual Basic 6.0 の型と識別子の型文字]：[Visual Basic 2005 の型と識別子の型文字]：[共通言語ランタイム (CLR) の型]

[8ビット、符号付き]：[(なし)]：[SByte (なし)]：[System.SByte]

[8ビット、符号なし]：[Byte (なし)]：[Byte (なし)]：[System.Byte]

[16ビット、符号付き]：[Integer (%)]：[Short (なし)]：[System.Int16]

[16ビット、符号なし]：[(なし)]：[UShort (なし)]：[System.UInt16]

[32ビット、符号付き]：[Long (&)]：[Integer (%)]：[System.Int32]

[32ビット、符号なし]：[(なし)]：[UInteger (なし)]：[System.UInt32]

[64ビット、符号付き]：[(なし)]：[Long (&)]：[System.Int64]

[64ビット、符号なし]：[(なし)]：[ULong (なし)]：[System.UInt64]

32 ビット システムでは、32 ビット整数の演算の方が、16 ビットまたは 64 ビットの整数演算よりも高速です。つまり、Visual Basic 2005 では、Integer と UInteger は、効率の優れた基本的な数値型です。Visual Basic 2005 に移行するときに Long 宣言を Integer（Int32） に変更すると、アプリケーションのパフォーマンスを向上させることができます。

■参考サイト
プラットフォーム呼び出しによるデータのマーシャリング
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/cpguide/html/cpconmarshalingdatawithplatforminvoke.asp
.NET Framework クラス ライブラリの概要
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/cpguide/html/cpconthenetframeworkclasslibrary.asp

[VBA or VB2005]ＶＢＡとＶＢで同じ処理をしたいとき？

▼質問
ＶＢＡとＶＢで同じ処理をしたいときはどうしたらいいのだろう？

▼回答
VCでDLLを作成してWin32APIのように呼ぶしかないのかな？

このサイトに.NETでCOMとして作成してVBA側で参照設定をして使用できる方法もあると
書いてあるがどうなんだろう？

（このサイトはいろんな情報が充実していてすごい！すばらしい！！）
http://7ujm.net/VB/VBAVBnetActiveX.html

VB2005で試しにやってみたらCOMの登録でアセンブリの警告が出た！

作成方法
①プロジェクトの作成でクラスライブラリ（DLLの作成）を選ぶ。
②クラスファイルにコードを記述する。
③プロジェクトのプロパティから「コンパイル」を選択して「COM相互運用機能の登録（I）」を
チェックする。
④「スタート」→「全てのプログラム（P）」→「Microsoft Visual Studio 2005」→「Visual Studio Tools」
→「Visual Studio 2005 コマンド プロンプト」を起動してCOMの登録を行う。
C:\>regasm ○○○○○.dll /tlb /codebase
※解除方法：C:\>regasm ○○○○○.dll /unregister

ここで下記の問題？警告が発生！
「RegAsm : warning RA0000 : 署名されていないアセンブリを /codebase を使用して登録すると、同じコンピュータにインストールされるその他のアプリケーションとの競合が生じる可能性があります。/codebase スイッチは署名されたアセンブリのみに使用できます。アセンブリに厳密な名前を付けて、再登録してください。型は正常に登録されました。アセンブリは 'C:\○○○\○○○\○○○.tlb' にエクスポートされ、タイプ ライブラリは正常に登録されました。」

▼質問
アセンブリって何だ？

▼回答
署名のため機能らしい。

アセンブリを厳密名で署名するには？［VS 2005のみ］
http://www.atmarkit.co.jp/fdotnet/dotnettips/495strongname2005/strongname2005.html方法 : アセンブリに署名する (Visual Studio)
http://msdn2.microsoft.com/ja-jp/library/ms247123(VS.80).aspx

とりあえず実行してみたら下記のエラーが発生した。
「"ファイルまたはアセンブリ名 ○○○、またはその依存関係の 1 つが見つかりませんでした。"」

下記のサイトの手順で「<新規作成>」から適当なキー・ファイル「○○○_StrongName_Key」を
指定してパスワード無しでやったらうまく登録できたぞ！！ヤッター！！

アセンブリを厳密名で署名するには？［VS 2005のみ］
http://www.atmarkit.co.jp/fdotnet/dotnettips/495strongname2005/strongname2005.html

動かしてみたら今度はオートメーションエラーが発生！(;_;)...

パスが通っているところに移動して登録したら動いたが・・・。下記のエラーでうまくいかない。
「"ファイルまたはアセンブリ名 ○○○、またはその依存関係の 1 つが見つかりませんでした。"」

ここで、実験終了！この方法はとりあえず諦める事にしました。

Visual Basic 6.0 から Visual Basic .NET または Visual Basic 2005 アセンブリを呼び出す方法
http://support.microsoft.com/default.aspx?scid=kb;ja;817248

↑このサイトを読んでいたら通常のクラスとCOMクラスの作成方法に違いがあることが判明！

このサイトの説明文も一部間違っているが。。。。（重要なところ！）
9.[テンプレート] で [クラス] をクリックします。
→9.[テンプレート] で [COMクラス] をクリックします。

もう一度とトライしてみたがまたもエラーでした。でもエラーの内容が変わった。
「"ActiveX コンポーネントはオブジェクトを作成できません。"」



■参考サイト
プログラミング色々
http://7ujm.net/index.html
Microsoft Win32 と Microsoft .NET Framework API との対応
http://www.microsoft.com/japan/msdn/net/general/win32map.aspx
Visual Basic .NET How-To インデックス
http://www.microsoft.com/japan/msdn/howto/howtoVB.asp

[VC++]メモ

▼質問
UNREFERENCED_PARAMETERって何？ｒｅｔｕｒｎの後に記述している？何だ！

▼回答
UNREFERENCED_PARAMETERマクロらしい。引数として受け取った変数を１度も使用しなかった
ときにでるコンパイル時の警告を回避するためのものらしい。

[VBA]Validation

「アプリケーション定義またはオブジェクト定義のエラーです。」のエラーがでる。
.Validation.Add Type:=Excel.XlDVType.xlValidateDecimal, AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertStop, Operator:=Excel.XlFormatConditionOperator.xlGreater, Formula1:="-999999999"


xlValidateCustom：任意の数式を使用してデータを検証します。
xlValidateDate：日付値
xlValidateDecimal：数値
xlValidateInputOnly：値が変更された場合のみ検証を行います。
xlValidateList：指定したリストに値が存在する必要があります。
xlValidateTextLength：文字列の長さ
xlValidateTime：時間値
xlValidateWholeNumber：全数値


xlValidAlertInformation：情報アイコン
xlValidAlertStop：停止アイコン
xlValidAlertWarning：警告アイコン

▼回答
どこでもいいからselectしないと駄目みたい。うまくいくときもあるのはよくわからない？

http://www.keep-on.com/excelyou/2002lng4/200208/02080364.txt

[VBA]

変数宣言の強制Option Explicit
配列インデックスの下限値を指定Option Base [01]
デフォルトは1
文字列比較の優先順位を指定Option Compare [TextBinary]
デフォルトはBinaryBinary A < B < E < Z < a < b < e < z
Text (A=a) < (B=b) < (E=e) < (Z=z)

[VB.NET]CheckedListBox

Public Sub setCheckedListBoxSelected(ByRef oCListBox As CheckedListBox)
Dim value As Boolean = oCListBox.GetItemChecked(oCListBox.SelectedIndex) 'oCListBox.SetItemChecked(oCListBox.SelectedIndex, CBool(IIf(value.Equals(True), False, True))) oCListBox.SetItemCheckState(oCListBox.SelectedIndex, CType(IIf(value.Equals(True), CheckState.Unchecked, CheckState.Checked), System.Windows.Forms.CheckState)) If (oCListBox.SelectedIndex >= 0) Then oCListBox.SetSelected(oCListBox.SelectedIndex, False) oCListBox.Show()
End Sub

気になる記事

http://itpro.nikkeibp.co.jp/article/COLUMN/20070410/267878/?ST=biz_shinzui
バグの発生率を示す数式があるという話だった。開発工数や進捗の度合い、プログラムの本数などに基づき、ある数式で計算するとバグの発生率が算出でき、実際に発生するバグとの誤差は5％の範囲に収まるという。
プログラムの品質は、作成に時間がかかった部分があまり高くない

[VB.NET]Option Strict OnとＯｆｆの比較（ＯＯ４Ｏ接続）

■ＯＯ４Ｏを使用したデータベース接続方法でOption StrictをOnにした時とＯｆｆにした時での
比較をしてみる。

Option StrictをOffにしたとき

Dim oraDb As OracleInProcServer.OraDatabase
Dim oraDynaset As OracleInProcServer.OraDynaset
Dim fieldValue as Integer

oraDynaset = oraDb.CreateDynaset("select * from table", 0&)
If oraDynaset.RecordCount > 0 Then
fieldValue = oraDynaset.Fields("FIELDNAME").Value
End If

Option StrictをONにすると次のようになる。

Dim oraDb As OracleInProcServer.OraDatabase
Dim oraDynaset As OracleInProcServer.OraDynaset
Dim fieldValue as Integer

oraDynaset = CType(oraDb.CreateDynaset("select * from table", 0&), OracleInProcServer.OraDynaset)
If oraDynaset.RecordCount > 0 Then
fieldValue = CInt(DirectCast(DirectCast(oraDynaset.Fields, OracleInProcServer.OraFields)("FIELDNAME"), _ OracleInProcServer.OraField).Value)
End If

比較してみるとOption StrictはＯｆｆにした方が良さそうである。(^^)v

■参考サイト
KEN's .NET [特集4] Option Strict Onのススメ
http://www5b.biglobe.ne.jp/~yone-ken/VBNET/special/sp04_OptionStrictOn.html

[VB.NET]メモ

メンバ＝定数＝等価なキャラクタ文字：説明
CrLf＝vbCrLf＝Chr(13) + Chr(10)：キャリッジ リターン文字とライン フィード文字の組み合わせ。
Cr＝vbCr＝Chr(13)：キャリッジ リターン文字。
Lf＝vbLf＝Chr(10)：ライン フィード文字。
NewLine＝vbNewLine＝Chr(13) + Chr(10)：改行文字。
Tab＝vbTab＝Chr(9)：タブ文字。

Option Strict Onの時、以下の項目が禁止され、ビルド時にエラーになる。
・明示的なキャスト演算子を使用しない縮小変換
・遅延バインディング
・Object 型での=、<>、TypeOf～Is～、およびIs以外の演算
・宣言でのAs句の省略

■関連サイト
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_13/vbnet2_13_01.html

[Java]SQL関連

▼質問
ＮＵＭＢＥＲ型のフィールドにnullを指定するにはどうすればいいの？

▼回答
setStringメソッドでnullを指定するか、setNullメソッドでTypes.NUMERIC を指定すればできるよ。

PreparedStatement pstmt = null;
pstmt.setString( parameterIndex, null );
pstmt.setNull( parameterIndex, Types.NUMERIC );

[Java]ポップアップメニュー(JPopupMenu)

▼質問
ポップアップメニューを、タイトル名と選択メニューの間にセパレーターを挟んだ感じで表示したいんだ。
どうしたらいいんだ？

▼回答
サンプルだよ！参考にしてくれ！！表示したいコンポーネントのマウスクリックイベントに追加すれば
右クリックで表示されるよ。

if ( javax.swing.SwingUtilities.isRightMouseButton(e) ) {
// 右クリック時の処理
JPopupMenu popupMenu = new JPopupMenu();

JLabel label = new JLabel( "タイトル");
label.setAlignmentX( JPopupMenu.CENTER_ALIGNMENT );
label.setHorizontalAlignment( JLabel.CENTER );
label.setFont( new java.awt.Font( "Monospaced", java.awt.Font.BOLD, 14 ) );
popupMenu.add( label );

JSeparator[] separator = new JSeparator[2];
for ( int i = 0 ; i < separator.length ; i++ ) {
separator[i] = new JSeparator( SwingConstants.HORIZONTAL );
popupMenu.add( separator[i] );
}

JMenuItem menuItem = new JMenuItem( "選択メニュー" );
menuItem.setHorizontalAlignment( JLabel.LEFT );
menuItem.setFont( new java.awt.Font( "Monospaced", java.awt.Font.PLAIN, 12 ) );
menuItem.setActionCommand( "選択メニュー" );
popupMenu.add( menuItem );

menuItem.addMouseListener( new java.awt.event.MouseAdapter() {
public void mouseClicked( java.awt.event.MouseEvent evt ) {
// マウスがクリックされたときのイベント処理
}
});
menuItem.addMouseListener( new java.awt.event.MouseAdapter() {
public void mousePressed( java.awt.event.MouseEvent evt ) {
// コンポーネント上でマウスボタンが押されると呼ばれるイベント処理

}
});
menuItem.addMouseListener( new java.awt.event.MouseAdapter() {
public void mouseReleased( java.awt.event.MouseEvent evt ) {
// コンポーネント上でマウスボタンが放されると呼ばれるイベント処理

}
});

if ( e.isPopupTrigger() ) {
popupMenu.show( e.getComponent(), e.getX(), e.getY() );
}

} else if( javax.swing.SwingUtilities.isMiddleMouseButton(e) ) {
// 中ボタンクリック時の処理

} else if( javax.swing.SwingUtilities.isLeftMouseButton(e) ) {
// 左クリック時の処理

}

[Java]コンポーネントの操作不可

■JButton
　　JButton.setEnabled( false );

■JTextField
　　JTextField.setEditable( false );

■JSpinner
((JSpinner.DefaultEditor)JSpinner.getEditor()).getTextField().setEditable( false );
JSpinner.getComponent(0).setEnabled( false );
JSpinner.getComponent(1).setEnabled( false );

イベント処理でチェックが必要！
JSpinner.getComponent(1).addMouseListener( new java.awt.event.MouseAdapter() {
public void mouseClicked( java.awt.event.MouseEvent evt ) {
if ( !evt.getComponent().isEnabled() ) return;
}
});

■JCheckBox
　　JCheckBox.setEnabled( false );

■JFormattedTextField
　　JFormattedTextField.setEditable( false );

[Java]is関連

■isValidメソッド
　レイアウトの処理が済んでいるかチェックする.

■isShowingメソッド
　　オブジェクトが表示されているかをチェックする.

[Java]ファイル入出力ストリーム関連

public int FileRead( String fname ) {
int ret = 0;
BufferedReader reader = null;

if ( fname == null ) return -1;

try {
reader = new BufferedReader( new FileReader( fname ) );
String line = null;
while ( (line = reader.readLine()) != null ) {
System.out.println( line );
ret++;
}
}
catch ( FileNotFoundException e ) {
System.out.println( "ファイルが見つかりません。" );
ret = -2;
}
catch ( IOException e ) {
System.out.println( "入出力エラーです。" );
ret = -3;
}
finally {
try {
if ( reader != null ) reader.close();
}
catch ( Exception e ) {}
}
return ret;
}

[JavaScript]

currentElementNo = 0;
function nextElement( keyCode ) {
if (keyCode == 13) {
currentElementNo++;
currentElementNo %= document.formA.elements.length;
if ( document.formA.elements[currentElementNo].type != 'button') {
document.formA.elements[currentElementNo].focus();
} else {
currentElementNo++;
}
}
}

HTML部
'<'body onkeydown="nextElement(event.keyCode); return true;">

[Java]メモ４

▼質問
splitメソッドでピリオドを指定すると配列が返ってこないんだ？どうやって指定すればいいの？！
ピリオドは、プログラムで重要な意味を持っているのはわかるんだが・・・。
String value = "1.2";
String[] splits = value.split( "." );

▼回答
￥マークを頭に二つ付ければよいようだ。
String value = "1.2";
String[] splits = value.split( "￥￥." );

■参考サイト
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=19125&forum=12&3

▼質問
ラベルをボタンスタイルに表示することは可能なの？

▼回答
可能だよ！
setBorderメソッドを使えばボタンをしたラベルが作成できるんだ。
クリックされたイベントもaddMouseListenerで登録すればボタン（ラベル）がクリックした時の
処理もすることができるんだ。

下記のプログラムは、種別によってスタイルを変えたいときに使用できる.
ボタン（ラベル）の上にきた時に種別１で呼び出してボタンが選択された状態にするのに使用できる.
private void setLabelStyle( JLabel label, int kind ) {

if ( kind == 1 ) {
label.setBorder( new CompoundBorder( new LineBorder( Color.RED, 3 ),
new BevelBorder( BevelBorder.RAISED ) ) );
}
else {
label.setBorder( new CompoundBorder( new LineBorder( Color.BLACK, 2 ),
new BevelBorder( BevelBorder.RAISED ) ) );
}

}

▼質問
「-Infinity」って何だ？

▼回答
「Infinity」は、無限大という文字列らしい。
正の無限大は「Infinity」で、負の無限大は「-Infinity」となるらしい。

■参考サイト
http://java.sun.com/j2se/1.5.0/ja/docs/ja/api/java/lang/Double.html

[Java]Collection

▼質問
Mapオブジェクトを復帰値として可変で返却しているんだ。それを連続で格納しているんだけど
うまくかないんだ？

▼回答
Mapは、keyとvalueを組にして要素として保持しているからだよ！

Mapは、要素の順番を保持しなかったり、同一keyの要素は複数保持できなかったりするから
使い方には気をつけたほうがいいぞ。

前回値をclearメソッドで削除していなかったのが原因だったみたい。

例１）
TestMap testMap = new TestMap();
Map map = testMap.getMap();
例２）
TestMap testMap = new TestMap();
Map map = new HashMap();
map.putAll( testMap.getMap() );

上の２つのやり方は同じ結果が得られる。

■参考サイト
http://www.atmarkit.co.jp/fjava/javatips/098java012.html

[Java]Look&Feel

// 外観を設定します
try {
UIManager.setLookAndFeel("com.sun.java.swing.plaf.windows.WindowsLookAndFeel");
} catch (ClassNotFoundException e1) {
// TODO 自動生成された catch ブロック
e1.printStackTrace();
} catch (InstantiationException e1) {
// TODO 自動生成された catch ブロック
e1.printStackTrace();
} catch (IllegalAccessException e1) {
// TODO 自動生成された catch ブロック
e1.printStackTrace();
} catch (UnsupportedLookAndFeelException e1) {
// TODO 自動生成された catch ブロック
e1.printStackTrace();
}
// 外観を変更します
SwingUtilities.updateComponentTreeUI(this);
// サブコンポーネントの推奨サイズおよびレイアウトに合わせて
// この Window をサイズ変更するように設定
pack();

■参考サイト
http://www.hellohiro.com/swinglookandfeel.htm

アルゴリズム・数値計算

【アルゴリズム入門】
http://www.momo.dyndns.org/~katsu/index.cgi?page=%A5%A2%A5%EB%A5%B4%A5%EA%A5%BA%A5%E0%C6%FE%CC%E7