がんがん日本

vbからvb.netまで移行する時のコールバック(CallBack)

Tue, 28 Oct 2008 11:52:31 +0900

　最近、元のVBAで開発されたプロジェクトをvb.netにバージョンアップすることにして、事前調査を行ってます。vbからvb.net(2005)まで移行するやり方がそんなに難しくないだと思いますが。突然、ある難関にぶつけて、vbにはWin32Apiを利用していた時、コールバックの関数をどのようにVB.netに移します。

　vbには　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long　を宣言して、プログラムには
SetWindowLong winCtrl.hWnd, GWL_WNDPROC, AddressOf WndProc　で利用されたが、vb.netに直接移すことができない。どうすればいいや。

　解決策：以下の通り
　．魁璽襯丱奪関数の宣言
　　Public Delegate Function P_CALLBACK(ByVal hWnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long　から　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As P_CALLBACK) As Int32に変更する
　プログラムにはSetWindowLong(winCtrl.Handle, GWL_WNDPROC, AddressOf WndProc)で関数を使う。

　解決しました。よかったね

対馬

Wed, 22 Oct 2008 10:00:41 +0900

対馬（つしま）は、日本の九州の北方、玄界灘にある長崎県に属する島である。長崎県では最大の島であり、全国においても、本州・北海道・四国・九州の主要4島と北方領土を除いて、第6位である[4]。対馬の大半を占める主島の対馬島（つしまじま）のほか、その周囲には百以上の属島が存在する。一般的にはこの対馬島と属島をまとめて対馬と呼ばれることが多い。古くは対馬国（つしまのくに）や対州（たいしゅう）、また日本書紀において対馬島（ただし、三文字引き合わせて「つしま」と読むのが書紀古訓における伝統的な読み方である）と記述されていた。

　位置的に朝鮮半島に近いため、古くから大陸と日本とを繋ぐ、文化や経済の窓口の役割を果たしてきた。日本固有領を巡り、近年朝鮮半島(北朝鮮と韓国)からの疑問と領有権問題を惑わして、注目されてます。歴史の認知度とナショナル意識を交えて、今の対馬はいつか爆発が分からない爆弾として、朝鮮半島と日本の葛藤になって、見えない危険が浮上しつつあり、竹島より、対馬の問題がもっと複雑化であることが分かった。

　近年来、資金のグローバル化をきっかけで、韓国資本が対馬にどんどん進んでいる。不動産の買占め、観光旅行人数の年々増えに伴い、韓国民間と政府の間違った説明をしているから、「対馬は韓国の領土だ」と言う思想が段々広がっていくことに対して、日本政府に要注意ではないかを進言させていただきます。

秋の読書

Tue, 21 Oct 2008 09:25:41 +0900

日増しに深まっていく秋、夜長には読書するのは秋にぴったりです。
読書人生で一番の衝撃を受けた本と出会いましたか。

　その本の最初の一行を読んだ瞬間、「私と同じ感性の人がいる」って強い衝撃を受けた経験がありましたか。

　目的を持て、読書している私は、仕事に関係以外の読書がとっても少ないです。月と星の光がきれいな夜に心を洗う本を読むことがめったにありません。特にインターネットが普及しつつある現在、新聞などの伝統的なマスコミ媒体に影響を及ぼし、破綻の歴史長い新聞社も出て来た例も珍しくないんです。

　紙の出版物は歴史が長い、江戸時代から庶民に普及してきて、日本の思想原動力になりました。文字、特に漢字を生かして、江戸の日本にとって、鎖国にしても、外部の世界を望めた。明治時代の到来には大きな貢献を挙げます。黒船の来航が近代日本の発端を指して、先鋭思想の本をどんどん日本に入れ、大正と昭和前期の日本はついに世界の政治、経済、軍事の強国の夢に達成しました。敗戦後にしても、日本は視野が広がるので、経済大国に復帰して、その思想の成熟は江戸由来の思想と文化の積み立てではないか。

　陽はまた昇る

初めてのロト６

Sat, 18 Oct 2008 17:22:34 +0900

今日はロト６を買い求め、実は人生の初めですよ。ロト６ようなギャンブルが中国にはありますが、今まで買ったことがない、当たるのは無理だと思いますが、お得は経験だったよね。
　投資や保険や貯金などは私に対して、現在、縁がないんけど、遠くないんだと思う。
　世界経済の落ち込む時代にはお金だけじゃない、乗り越える気持ちを持つことが重要です。お金の減りつつあることに不愉快とするより、自分にとって有意義なことをやりましょう。気分転換として、楽しく過ごすことが大事です。
　時間があれば、日本のマナーを身に着けて、自信満々に回復を迎えます。

VB6/VBA開発環境のマウスホイール機能を追加

Thu, 16 Oct 2008 11:32:22 +0900

Microsoft Visual Basic 6.0 統合開発環境 (IDE) /VBA で、マウスホイールを使用してスクロールできません。困りますよ。大変ご苦労でスクロールバーをコントロールしか仕方がない。
以下の通りに従って、解決できます(ミクロソフトの解決ソリューション。検証しました)

アドイン DLL およびそのアドイン DLL の作成に使用したコードが収められている VB6 Mouse Wheel.exe ファイルをダウンロードします。

1. VB6 Mouse Wheel.exe ファイルをダウンロードします。以下のファイルは、「Microsoft ダウンロードセンター」からダウンロードできます。
VB6MouseWheel.EXE パッケージ (http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe)
2. ダウンロードしたファイルをダブルクリックして展開し、フォルダに保存します。
3. [スタート] ボタンをクリックし、[ファイル名を指定して実行] をクリックします。regsvr32 <path>\VB6IDEMouseWheelAddin.dll と入力し、[OK] をクリックします。
4. Visual Basic 6.0 (VBAプログラム環境)を起動します。
5. [アドイン] メニューをクリックし、[アドインマネージャ] をクリックします。
6. [アドインマネージャ] ボックスの一覧で、[MouseWheel Fix] をクリックします。
7. [ロード/アンロード] チェックボックスをオンにし、[起動時にロード] チェックボックスをオンにします。
8. [OK] をクリックします。

以上で完成したら、楽々にマウスホイールを使って、プログラムを見えますよ。

冷凍インゲンの被害

Thu, 16 Oct 2008 10:08:06 +0900

「東京都八王子市の主婦（５６）が食べた中国製冷凍インゲンから基準の３万４５００倍の濃度の有機リン系殺虫剤ジクロルボスが検出され、インゲンの袋に意図的に穴などが開けられた形跡がないことが１５日、警視庁の調べで分かった。検出値の高さなどから、高濃度の殺虫剤が人為的に混入された可能性が高いとみられ、どの過程で混入したのか慎重に調べている。政府は中国側に実態解明を求める考えを明らかにした。」

　見た目でもう一件の毒入り事故です。なぜ、続々被害を受ける人が出てきますか。すぐ茶飯事になります。安心安全の日本生活が崩れてしまいましたか。そうではないだと思います。インゲンは中国で冷凍後食べることがない、新鮮な、旬の野菜として食べます。３万４５００倍の農薬残留は不思議だもん、「舌のしびれや吐き気を感じた」程度の毒には中国の方々が無事に生き残られますか。日本輸入品向けのインゲンだけには毒を入れますか。もし後ろの状況に当たり、専門農業パークなどが必要、日本の関連会社は必ず現地で審査係員を持て、冷凍前食材、加工プロセス、現場状況などを検査しています。責任とどのプロセスに問題が出ることがすぐ分かるんと思います。この事件をきっかけ、日本はもちろん、中国も日中貿易を破壊する、食品という命につながるものにも良心なきやっている人や会社など、法律で取り締まります。

新規ブログのきっかけ

Wed, 15 Oct 2008 09:30:36 +0900

日本での生活がすぐ二年間になって、ずっとパソコンに関する仕事をやってますが、個人のブロゴを書くことは始めたばかり、表で日本での生活を記入したいんですが、本当のブロゴ加入のきっかけはYahoo!JAPANの「お小遣いをもらう」ネット広告を配布サービスと言うことです。動機から見るとよくないだけど、いい結果といい過程を期待してます。経済社会は利益を追い求めることが当然だろう。しかし、お金と利益を一時に忘れ、心の底のことが話せるのはブロゴのメリットの一つでしょうね。

　いい人生を追求するのは人々の共通点ですよね。これから、ブロゴ世界にご加入させていただきますようお願いします。