【カラーダイアログ表示関数】

BOOL ChooseColor(LPCHOOSECOLOR cc);
　第１引数：CHOOSECOLOR構造体
　戻り値　：成否(True/False)

【CHOOSECOLOR構造体】

Struct CHOOSECOLOR
{
	DWORD		lStructSize		//構造体のサイズ
	HWND		hwndOwner			//ウィンドウハンドル
	HWND		hInstance			//インスタンスハンドル
	COLORREF		rgbResult			//初期カラー・選択カラー
	COLORREF*		lpCustColors		//カスタムカラー(16色まで)
	DWORD		Flags			//初期化フラグ
	LPARAM		lCustData			//フックプロシージャに渡すデータ
	LPCCHOOKPROC	lpfnHook			//フックプロシージャ(FlagsにCC_ENABLEHOOKが指定されている場合に動作)
	LPCTSTR		lpTemplateName		//リソース名称(FlagsにCC_ENABLETEMPLATEが指定されている場合に動作)
}

【Flags(初期化フラグ)】

CC_RGBINIT				//rgbResultを初期カラーに設定する
CC_FULLOPEN			//オープン時にカスタムカラー設定窓を開く
CC_PREVENTFULLOPEN			//「色の作成」ボタンを無効にする
CC_SHOWHELP			//ヘルプボタン「?」を表示
CC_ENABLEHOOK			//フックプロシージャを使う
CC_ENABLETEMPLATE			//リソースを利用する
CC_ENABLETEMPLATEHANDLE		//hInstanceを有効にする
CC_SOLIDCOLOR			//ソリッドカラーだけを表示する
CC_ANYCOLOR			//使用可能な全ての色を表示する

【ダイアログの位置】
　　カラーダイアログの表示位置を指定するには、フックプロシージャを使う必要があります。
　　ダイアログが作成されたとき(WM_INITDIALOG)に、MoveWindow関数で移動させます。

【サンプルコード】

void Sumple()
{
	//カスタムカラーを配列に格納(16色まで設定可能)
	COLORREF CustColors2[16];
	CustColors2[0]= RGB(255,0,0);
	CustColors2[1]= RGB(0,255,0);
	CustColors2[2]= RGB(0,0,255);
	
	//CHOOSECOLOR構造体
	CHOOSECOLOR cc;
	cc.lStructSize = sizeof(cc);
	cc.hwndOwner = NULL;
	cc.hInstance = NULL;
	cc.rgbResult = RGB(255,0,0);
	cc.lpCustColors = CustColors;
	cc.Flags = CC_RGBINIT | CC_ENABLEHOOK;
	cc.lCustData = NULL;
	cc.lpfnHook = CCHookProc;
	cc.lpTemplateName = NULL;
	
	//カラーダイアログ表示
	ChooseColor(&cc);
	
	//cc.rgbResultに選択した色が格納されます
}

//フックプロシージャ
UINT CALLBACK CCHookProc(HWND hdlg,UINT msg,WPARAM wp,LPARAM lp)
{
	switch(msg)
	{
	case WM_INITDIALOG:
		//ダイヤログサイズを取得
		RECT rect;
		GetWindowRect(hdlg,&rect);
		SIZE sz;
		sz.cx = rect.right - rect.left;		//横幅
		sz.cy = rect.bottom - rect.top;		//縦幅

		//出力位置の設定
		POINT pnt;
		pnt.x = 100;
		pnt.y = 100;
	
		//ダイヤログ位置設置
		MoveWindow(hdlg , pnt.x , pnt.y , sz.cx , sz.cy , TRUE);
	
		//ダイアログのタイトルセット
		SetWindowText(hdlg,TEXT("カラーダイアログ"));
		
		break;
	default:
		return FALSE;
	}
	return TRUE;
}

【ホットキーとは】
自分のアプリケーションのウィンドウがアクティブ状態でなくても監視されているキー。
ウィンドウのないアプリケーションの場合、「タイマーを使って0.1秒毎にGetKeyState()でキーを監視する」とかより断然効率的です。(ホットキー使うまでタイマー使ってました；)
「ショートカットキー」とも呼ばれるらしいです。

【ホットキー設置関数】
BOOL RegisterHotKey(HWND , HOT_KEY_ID , MOD_KEY , KEY);
　第１引数：ウィンドウハンドル
　第２引数：ホットキーのID
　第３引数：キー修飾子(MOD_SHIFT , MOD_CONTROL , MOD_ALT)
　第４引数：キー(A〜Zや0〜9など)
　戻り値　：成否(True/False)

【メッセージ】
WM_HOTKEYメッセージ
　ホットキーを押すとメッセージが飛んできます。
　ウィンドウプロシージャのWPARAMにホットキーのIDが入ってきます。

【ホットキー解除関数】
BOOL UnregisterHotKey(hwnd , HOT_KEY_ID);
　第１引数：ウィンドウハンドル
　第２引数：ホットキーのID
　戻り値　：成否(True/False)

【注意事項】
他のソフト等で使用されているホットキーを新しく設定すると、
元々使われていたホットキーが動作しなくなることがあります。
例えば「Ctrl+A」を設定した場合、殆どのエディタ等で「全て選択」を行う「Ctrl+A」が機能しなくなります。

【サンプルコード】

//マクロ定義
#define HOT_KEY_ID 100001

//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hwnd , UINT msg, WPARAM wp, LPARAM lp)
{
	switch(msg)
	{
	case WM_CREATE:
		//Ctrl+1のホットキー設定
		RegisterHotKey(hwnd,HOT_KEY_ID,MOD_CONTROL,'1');
		break;
	case WM_HOTKEY:
		switch(wp)
		{
		case HOT_KEY_ID:
			//
			//ホットキーが押されたときの処理
			//
			break;
		}
		break;
	case WM_DESTROY:	
		//ホットキー解除
		UnregisterHotKey(hwnd,HOT_KEY_ID);
		break;
	default:
		return DefWindowProc(hwnd,msg,wp,lp);
		break;
		
	}
	return 0;
}

【タイマーの設定方法】
UINT_PTR SetTimer(HWND , TIMER_ID , SEC , TIMERPROC);
　第１引数：ウィンドウハンドル
　第２引数：タイマーのID
　第３引数：タイムの間隔(1/1000秒単位)
　第４引数：タイマのプロシージャ
　戻り値　：成功(タイマーのID),失敗(0)

【メッセージ】
WM_TIMERメッセージ
　指定秒毎にメッセージが飛んできます。
　ウィンドウプロシージャのWPARAMにタイマーのIDが入っています。

【タイマーの解除】
BOOL KillTimer(hwnd , TIMER_ID);
　第１引数：ウィンドウハンドル
　第２引数：タイマーのID
　戻り値　：成否(True/False)

【サンプルコード１】

//マクロ定義
#define TIMER_ID 100001

//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hwnd , UINT msg, WPARAM wp, LPARAM lp)
{
	switch(msg)
	{
	case WM_CREATE:
		//タイマーセット
		SetTimer(hwnd , TIMER_ID , 5000 , NULL);
		break;
	case WM_TIMER:
		switch(wp)
		{
		case TIMER_ID:
			//
			//タイマー処理
			//
			break;
		}
		break;
	case WM_DESTROY:	
		//タイマー解除
		KillTimer(hwnd , TIMER_ID);
		break;
	default:
		return DefWindowProc(hwnd,msg,wp,lp);
		break;
	}
	
	return 0;
}

【サンプルコード２】(タイマプロシージャ利用)

//マクロ定義
#define TIMER_ID 100001

//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hwnd , UINT msg, WPARAM wp, LPARAM lp)
{
	switch(msg)
	{
	case WM_CREATE:
		//タイマーセット
		SetTimer(hwnd , TIMER_ID , 5000 , (TIMERPROC)TimerProc);
		break;
	case WM_DESTROY:	
		//タイマー解除
		KillTimer(hwnd , TIMER_ID);
		break;
	default:
		return DefWindowProc(hwnd,msg,wp,lp);
		break;
	}
	
	return 0;
}
//タイマプロシージャ
BOOL CALLBACK TimerProc(HWND hwnd , UINT msg, WPARAM wp, LPARAM lp)
{
	switch(msg)
	{
	case WM_TIMER:
		switch(wp)
		{
		case TIMER_ID:
			//
			//タイマー処理
			//
			break;
		}
		break;
	default:
		return DefWindowProc(hwnd,msg,wp,lp);
		break;
	}
	return 0;
}

いろいろコードを弄ってみましたが…結局VisualStudio(ここでは2008)の設定が必要だった見たいなのでメモしておきます。

どうやらこのメッセージは、DLLが足りない時に出るものらしいです…；
そういう内容で表示してくれよMS…
ちなみにDLLはVSが保有しているもののようです。

解決するには、VSで以下の設定をする必要があります。

まず、
　　[プロジェクト]→[○○のプロパティ]
からプロパティページを開きます。

プロパティページの左側にあるメニューから
　[構成プロパティ]→[C/C++]→[コード生成]
を選択し、設定ページを開きます。

変更する箇所は
　[ランタイムライブラリ]
だけです。

[ランタイムライブラリ]プルダウンメニューには以下の項目があります。

初期設定だと
　　「マルチスレッドDLL(/MD)」か「マルチスレッドデバッグDLL(/MDd)」
になっていると思われます。

これを
　　「マルチスレッド(/MT)」か「マルチスレッドデバッグ(/MTd)」
にしてコンパイルすれば、VSをインストールしていないPCでも正常に動作するようになるかと思います。

ただ、この方法だとVSのDLLをexeに取り込んでしまいexeのファイルサイズが大きくなってしまいます。
どうしてもサイズが気になるなら必要なDLLを探して、exeと別にdllを持たせないといけない…んでしょうか、はて？
試していないのと、Cの理解度がまだ低いので、ちょっとわかりません；

class Test{
	var str:String = "test";
	function Test(MC:MovieClip){
		trace("output" + val);
		//MC(MovieClip)をクリック時、Methodメソッドを実行する
		MC.onPress = Method;
	}
	
	function Method():Void{
		trace(str);
	}
}

上記のように、MovieClipのonPressイベントでMethodメソッドを呼び出して変数strを出力させようとしています。
「test」が出力されることを期待して記述しましたが、実際にこれでは「undefined」が出力されてしまいます。

どうやらこれはスコープ(変数の参照範囲)が、イベントで呼び出したメソッド内では変わってしまうことが原因になるようです。

onPress等のイベントを記述する場合、「MC.onPress」のように記述するかと思いますが、
このようにした場合、どうやら「MC」をスコープに指定されてしまうようです。

従って、イベントで呼び出したメソッド内のstr変数はクラス変数の「str」ではなく、「MC.str」を読み出そうとして、そのために「undefined」になってしまうようです。

これを解決するためには、mx.utils.Delegateクラスを使う必要があります。
記述方法は下記のようになります。

import mx.utils.Delegate;

class Test{
	var val:String = "test";
	function Test(MC:MovieClip){
		trace("output" + val);
		//MC(MovieClip)をクリック時、Method関数を実行する
		MC.onPress = Delegate.create(this,Method);
	}
	
	function Method():Void{
		trace(val);
	}
}

前述したコードとの違いは、クラス定義の前に「mx.utils.Delegate」をインポートしている点と、
Delegate.createメソッドを介して、Methodメソッドを処理させている点だけです。

これにより、this(クラス自身)をスコープに指定して、メソッドを実行させることができます。

また、setIntervalでも同じ現象が起きますが、

setInterval(Delegate.create(this,Method) , 1000);

上記のように記述すれば、this(クラス自身)をスコープに指定して、実行させることができます。

私がActionScript2.0でクラスを扱うようになって1年ほどになりますが、この問題には長い間頭を悩まされました…
だって私が持っている本にはスコープとかDelegateなんて載ってなくて…；
こういうときはWebや公式のテキストが役に立ちますね。

ところで私が持ってるのがFLASH8なので未だActionScript2.0のメモです…；
8で3.0使う方法ってないのでしょうか…？
CS3の次のバージョンでたら買うかなぁ…？
いつになるか分かりませんが…

「Excel操作手順」

?表を作成します(オートシェイプを使ってもOK)

?オートシェイプも含めて選択し、普通のコピー操作と同じようにコピーします。
?Shiftキーを押しながら、[編集]をクリックすると、「図の貼り付け」という項目がでてきます。

?「図の貼り付け」をクリックすると先ほど選択した範囲の表が画像として貼り付けられます。

?-2　ちなみに「図のリンク貼り付け」をクリックしても画像は貼り付けできます。

?２つの違いですが、「図の貼り付け」は貼り付け後、完全に画像として扱われますが、
　　「図の貼り付け」は貼り付け後も、元の表の変更が画像にも反映されます。
※下画像の上は下の表、左下は「図の貼り付け」、右下は「図のリンク貼り付け」
　　元の表を変更すると、「図のリンク貼り付け」で作成した画像にも反映されます。

「VBAコード」

上記の作業をVBAで書くと下記のようなコードになります。

'画像にする表の範囲を選択する
Range("B2:F6").Select	
'選択範囲をコピーする
Selection.Copy	
'貼り付け先セルを選択する
Range("B8").Select	
'選択したセルを画像として貼り付ける(Linkはリンクの有無(True/False))
ActiveSheet.Pictures.Paste(Link:=False)	

見ての通りかなり単純です。
「Pictures.Paste」関数でクリップボードに保存されたデータを出力しているだけのような気がします。

そういえば、Excelの表をそのままコピーして、画像編集ソフトにそのままコピーできますし、
それと同じようなものなんでしょうね。

//(修正前)
if(ereg("[^ -~]",$text)){
	//処理
}

上記では2バイト文字を含まない場合に拒否するようにしていましたが…
どうも、わざと2バイト文字を数文字を含めてくる英字スパムがあったので…orz

今回は「ひらがな」を含む場合のみ処理するようにしました。
まぁ結局数行の処理なんですけどね…

//(修正後)
//$textにひらがな(あ〜ん)が含まれる時だけ処理を行う
if(mb_ereg_match("[あ-ん]",$text)){
	//処理
}

上記は正規表現で「あ〜ん」が含まれている場合に処理をするというものです。

前は無理に1バイト文字をチェックしていましたが…
結局、英字スパムにはこれが一番効果がありそうです…(汗)

いや同様の関数はいろんなところで作られていますが敢えて自作しときます。

下記の関数はXとYの長さから0〜360度のラジアンを返します。

0〜720度を1度ずつテストしてみて一応問題はありませんでした。

もし利用される場合は、精度の高い計算には向いていないと思われるのでご注意を。

間違いがあればご指摘頂ければ有難いです。

'0〜360度のラジアンを出力します(Atn2関数は出回っているので敢えてAtn3)
'※精度を要する処理には向きませんのでご注意を
Public Function Atn3(ByVal vX As Double, ByVal vY As Double) As Double
'引数：X軸長さ
'　　　Y軸長さ
'戻値：ラジアン値

    Dim wX  As Double
    Dim wY  As Double
    Dim wPI As Double
    
    wX = Round(vX, 12)      '小数12桁以下は四捨五入
    wY = Round(vY, 12)
    
    wPI = 4 * Atn(1)        '円周率
    
    If wX = 0 Then
        If wY > 0 Then      '0度
            Atn3 = wPI / 2
        ElseIf wY < 0 Then  '270度
            Atn3 = 3 * (wPI / 2)
        Else
            Atn3 = 0
        End If
        
        Exit Function
    End If
    
    If wY = 0 Then
        If wX > 0 Then      '90度
            Atn3 = 0
        ElseIf wX < 0 Then  '180度
            Atn3 = wPI
        Else
            Atn3 = 0
        End If
        
        Exit Function
    End If
    
    If wX > 0 And wY > 0 Then         '0〜90度
        Atn3 = Atn(wY / wX)
    ElseIf wX < 0 And wY > 0 Then     '90〜180度
        Atn3 = wPI + Atn(wY / vX)
    ElseIf wX < 0 And wY < 0 Then     '180〜270度
        Atn3 = wPI + Atn(wY / wX)
    ElseIf wX > 0 And wY < 0 Then     '270〜360度
        Atn3 = 2 * wPI + Atn(wY / wX)
    End If
    
End Function

私はずっとRound関数が四捨五入の関数と思っていましたが、どうも違ったのですね。

調べてみるとRound関数は下記のような動きをするようです。

Round(1.5)　⇒　2
Round(2.5)　⇒　2

このようになり、Round関数は最も近い偶数に丸められるようです。

これではちょっと困ってしまうので、独自関数を作りました。

Round関数と同じように小数桁も指定できるようにしています。

'四捨五入(Roundは偶数に近い整数を返す関数の為)
Public Function Round2(ByVal num As Double, Optional ByVal digit As Long = 0) As Double
'引数：
'   num：四捨五入する数値
'   digit：四捨五入する小数点(省略可)
'戻値：
'   numを四捨五入した値

    Dim tmpNum As Double
    
    tmpNum = num * 10 ^ digit
    
    If tmpNum > 0 Then
        Round2 = Fix(tmpNum + 0.5) / 10 ^ digit
    ElseIf tmpNum < 0 Then
        Round2 = -Fix(-tmpNum + 0.5) / 10 ^ digit
    End If
    
    Exit Function

End Function

そんなに難しいものではありませんが解説しますと、四捨五入したい値に0.5を足してFix関数で小数点以下を切り捨てています。

ここでは独自関数を作りましたが、実はFormat関数を使えば四捨五入はできるそうです。

しかしFormat関数ではWindowsXPのSPなしでは正常に動作しないらしいので使う気になりませんでした。

ちなみにEXCEL関数のROUNDは四捨五入らしいです。…紛らわしいなあ…

VBはExcelVBAから入ったので余計に勘違いしていました。

Application.RoundUpとかApplication.RoundDownってVB関数じゃなくてExcel関数だったんですね。

四捨五入は良く使うのでちゃんと覚えておこう…

下記のコードではGetAttr関数で指定パスの属性を取得し、フォルダ(vbDirectory)かどうか判断します。

フォルダならTrueを返し、ファイルや存在しないパスならFalseを返します。

'フォルダの有無を確認
Public Function dirExist(ByVal dirPath As String) As Boolean
'引数：
'   dirPath：フォルダのフルパス
'戻値：
'  指定パスがフォルダならTrue
'  ファイルや存在しないパスならばFalseを返す

On Error GoTo func_err
    
    If GetAttr(dirpath) = vbDirectory Then
    	isDirExist = True
    Else
    	isDirExist = False
    End If

    Exit Function
func_err:
    isDirExist = False
End Function

独自で関数を作る場合は、例外処理をうまく使うことがポイントでしょうか？

どうもVBにない関数は作る際は例外処理を使うことが多い気がします。

ところでVBは使いたい機能がところどころ足りない気がしますねえ…

.NETの関数を使えばそのまま処理できるかと思いますが、私の職場はVB6主体なので自分で作る必要があります。

Set data = Nothing

DAO等でDBをオープンした場合では、Close()＋Nothingの代入となり結構長い1文になりますよね。

If Not db IS Nothing Then
     db.Close()
     Set db = Nothing
End IF

これでは毎回書くのはちょっと面倒なので、関数化させてみました。
ただ普通に作っただけでは芸がないので、
Database型の他に、Recordset型、QueryDef型でも使える関数にしてみました。(いうほど大したものではないが)

'DBクローズ処理(Database型、Recordset型、QueryDef型で動作確認済み)
Public Function CloseDB(ByRef vDB As Object) As Boolean
'引数：
'   vDB：クローズするオブジェクト
'戻値：
'   クローズ処理の成否(true/false)
On Erro GoTo func_err
    
    If Not vDB Is Nothing Then
        vDB.Close
        Set vDB = Nothing
    End If
    
    CloseDB = True
    Exit Function
func_err:
    CloseDB = False
End Function

他にClose()で終了するオブジェクトがあれば使えるかもしれません。

ところで関数化させはしましたが、今回のは大して有用性はない気がしないでもないッス…ι
下記のように1行で書けば、これはこれでスッキリしますしねえ…？

If Not db IS Nothing Then db.Close() : Set db = Nothing

それでは不便なので今回も独自関数を作りました。
簡単なので同じような関数を作っている人もいるかと思いますが…
ここは自分で作って勉強したいと思います。

下記のコードの使用は自己責任でお願いします。

'配列の要素数を返す(2次引数は省略可能)
Public Function arryElmntCnt(ByRef vArray As Variant, _
                             Optional ByVal dimensionNo As Long = 1) As Long
'引数：
'     vArray：配列
'     dimensionNo：次元インデックス(省略可)
'戻値：
'     指定した次元の要素数を返します。

On Error GoTo func_err

    If IsArray(vArray) And dimensionNo > 0 Then
        '配列であり、階層が1以上の場合
        arryElmntCnt = UBound(vArray, dimensionNo) + 1
    Else
        GoTo user_err
    End If

    Exit Function
func_err:
    '要素がない場合
    arryElmntCnt = 0
    Exit Function
user_err:
    '引数が不正値の場合
    arryElmntCnt = -1
End Function

上記のコードで配列の要素数(最大要素インデックスではない)が取得できます。
配列が見割り当ての場合は0を返します。

ちなにみVariant型をつかっているので、String/Long/Integer…なんの配列でも処理できると思います。
ただしVariant型はメモリを結構使うらしいので、少し処理速度に問題があるかもしれません。
気になるようでしたら利用内容に合わせて「vArray As Variant」を「vArray() As String」等に変更してください。

あと、Variant型は何でも格納できるようなので、引数として配列以外のものを入れることができてしまいます。
この場合はエラー値として-1を返すようにしています。

VBやVBAにはファイルの存在の有無を確認する関数がありません。(.NETならあったかもしれませんが)
となると、自分で作るしかないので作ってみました。意外と簡単にできました。
ｔｘｔ，ｘｌｓ，ｍｄｂ等で動作は確認しています。

簡単なものですが、下記のコードの使用は一応自己責任でお願いします。

Public Function fileExist(ByVal filePath As String) As Boolean
'引数：
'   filePath：ファイルパス
'戻値：
'  ファイルが存在すればTrue
'  存在しなければFalseを返す

    Dim n As Integer
On Error GoTo func_err
    
    n = FreeFile
    Open filePath For Input As #n    'ファイルが開ければ存在すると判断
    Close #n
    
    isFileExist = True
    Exit Function
func_err:
    isFileExist = False
End Function

上記のコードはとりあえずファイルを開いて存在の有無を確認するものです。
開ければTrueを返し、開けずエラーが発生すればFalseを返すということになります。

VBは仕事でしか使っていないので 試してはいませんが…
ファイルがロックされているときは、開けずにFalseを返すのではないかと思います。
画像ファイルの有無も試していません。
そのうち試しておこうと思います。(08/03/30jpg画像での動作も確認しました)

だいぶ前ですが、フィロの村のPHPで作った掲示板とリンク依頼に大量の英字スパムが来たので対策をした内容のメモです。
実は以前に同内容の記事を書いていましたが、すり抜けれるようだったので修正したのもです。
まぁ1行だけで済むコードなんですけどねーι

以下のコードは前回書いた「日本語が含まれているかチェック」するものです。

//(修正前)
//$textに数字と英字、記号以外が含まれる時だけ処理を行う
if(mb_ereg_match("[^0-9a-zA-Z!-/]",$text)){
	//処理
}

前回はこれで対処できていると思っていたのですが、どうもこの正規表現([^0-9a-zA-Z!-/])だと一部の記号が入ればすり抜けられるようでした。
以下は修正したコードです。

//(修正後)
if(ereg("[^ -~]",$text)){
	//処理
}

これはPHPというか正規表現の修正ですね。
ASCIIコードの並びを調べるとわかりますが、結構対象から外れる記号があったようです。
下記に正規表現について簡単にまとめておきます。

*		0 回以上の繰り返し
+		1 回以上の繰り返し
?		0又は1回の繰り返し

-		範囲
^		以外にマッチ

[0-9]		数字にマッチ
[a-zA-Z]		英字にマッチ
[!-/]		!"#$%&'()*+,-./にマッチ
[ -~]		半角文字全て(スペース〜チルダ)にマッチ

相変わらず説明下手ですが、以上です。
…あれ？PHPメモというか正規表現メモになってないか…？

以下にコードを記しておきます。
今回はListBoxを継承して使っています。

public class MyListBox : ListBox
{
    int listSelectNo;
    public MyListBox()
    {
        string[] str = {"aaa", "bbb", "ccc", "ddd", "eee"};
        this.Items.AddRange(str);

        //イベント設定
        this.MouseDown += new MouseEventHandler(MyListBox_MouseDown);
        this.MouseUp += new MouseEventHandler(MyListBox_MouseUp);
    }

    //移動元の項目をマウスを押す
    private  void MyListBox_MouseDown(object sender, MouseEventArgs e)
    {
        //移動元のインデックスを取得
        ListBox list = (ListBox)sender;
        listSelectNo = list.SelectedIndex;
    }

    //移動先の項目でマウスを離すと項目移動
    private void MyListBox_MouseUp(object sender, MouseEventArgs e)
    {
        //移動先のインデックスを取得
        ListBox list = (ListBox)sender;
        int listChangeNo = list.SelectedIndex;
        object tmpData;

        //移動元のデータを取得
        tmpData = list.Items[listSelectNo];

        //移動元のデータを削除
        list.Items.RemoveAt(listSelectNo);

        //移動先にデータを追加
        list.Items.Insert(listChangeNo, tmpData);

        //選択先のインデックスを指定
        list.SelectedIndex = listChangeNo;
    }
}

内容は以上のコードの通りです。
マウスを押して指定した項目を一時保存して、マウスを離した位置に移動させます。
各関数の内容は以下の通りです。

ListBox.Items.Insert(インデックス,データ)
　　→インデックスの位置にデータと項目として追加します。

ListBox.RemoveAt(インデックス)
　　→インデックスの位置の項目を削除します。

それにしても.NETは便利ッスね。
私でもこれくらい簡単に書けてしまう。
ただし半端なく起動が遅いのが難点ですよね。
C++のほうも覚えたいなあ…。