[Ajax]リンク集（更新版）

■Ajaxとは？
Ｗｅｂブラウザが標準で備えている技術要素を組み合わせた実装方法。
『Ajax（Asynchronous JavaScript + XML）』

■Ajax対応サイト
【Google ローカル】
http://maps.google.co.jp/
～＞グーグル社の地図情報サイト『Google Maps』

【Writely - The Web Word Processor】
http://www.writely.com/
～＞アップスタートル社のWebサイトで利用できるワープロ・ソフト

【地図の検索 - goo 地図】
http://map.goo.ne.jp/

【Mapion [情報地図コミュニケーション マピオン]
住所や駅名から地図検索!! ホテルや温泉旅館など宿泊施設情報や旅行に役立つ観光情報も充実!!】
http://www.mapion.co.jp/

【start.com】
http://www.start.com/
～ドラッグ アンド ドロップでマイページを作成できるサイト

■リンク集
【Prototype JavaScript Framework: Class-style OO, Ajax, and more】
http://prototype.conio.net/
～＞Ajax対応ライブラリとして有名らしい『prototype.js』があるサイト

【ZEROBASE BLOG】
http://zerobase.jp/blog/

【ajaxdb : Ajax-based remote database】
http://ajaxdb.jp/

【Open AJAX】
http://www.openajax.net/wordpress/

Toolbar

Internet Explorer Developer Toolbarと言うものを見つけて調べたらWeb開発者向けのツールバー
らしいのだがまだベータ版だということもあり動きが不安定なようだ。
http://www.microsoft.com/downloads/details.aspx?FamilyID=e59c3964-672d-4511-bb3e-2d5e1db91038&displaylang=en

ここまでは、私が探している情報ではなく私が探していた情報は、Yahoo!やGoogleなどがやっている
IEやFirefoxなどに組み込めるツールバーの作成方法を探していたのである。

やっとそれらしき情報を見つけた。(^^)

unokun研究室: IEツールバーの作成方法
http://www.unokun.net/archives/000246.html

自分が使いやすいツールバーが欲しくなったので作成しようと思うが・・・できるのかな？

できたらまたご報告します。

ソフト開発者の読物集

【ソフト開発者は読んでおくべきだな／横町BAR・ひろ】
http://blogs.dion.ne.jp/rx8gray/archives/2834576.html

【yohgaki's blog】
http://blog.ohgaki.net/index.php/yohgaki/

[VB2005]レジストリ関連

■Windowsレジストリに、アプリケーションの初期ファイルを保存または作成する。
・VB6.0 or VB.NET or VB2005
SaveSetting関数
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vastmSaveSetting.asp
SaveSetting("AppName", "Section", "Key", "Setting")

・VB.NET
http://www.microsoft.com/japan/msdn/vbasic/migration/tips/registry.aspx

・VB2005
Dim KeyName As String
KeyName = "HKEY_CURRENT_USER\Software\VB and VBA Program　Settings\AppName\Section"
My.Computer.Registry.SetValue(KeyName, "Key", "Setting")

■Windowsレジストリのアプリケーションの初期設定ファイルから、キー設定値を返す。
・VB6.0 or VB.NET or VB2005
GetSetting関数
GetSetting("AppName", "Section", "Key", "Default")

・VB2005
Dim KeyName As String
KeyName = "HKEY_CURRENT_USER\Software\VB and VBA Program　Settings\AppName\Section"
My.Computer.Registry.GetValue(KeyName, "Key", "Default")

■Windowsレジストリのアプリケーションの初期設定ファイルから、セクションまたはキー設定を削除する。
・VB6.0 or VB.NET or VB2005
DeleteSetting関数
DeleteSetting("AppName")

・VB2005
Dim SubKey As Microsoft.Win32.RegistryKey
Dim KeyName As String = "Software\VB and VBA Program Settings"
SubKey = My.Computer.Registry.CurrentUser.OpenSubKey(KeyName, True)
SubKey.DeleteSubKeyTree("AppName")
SubKey.Close()

[VB2005]My

■DoEventsメソッド：フォームの再描画するときに使用する。
・VB6.0
DoEvents

・VB.NET or VB2005
System.Windows.Forms.Application.DoEvents()

・VB2005
My.Application.DoEvents()

■参考サイト
【VB Myの用法 - My, My.Application, My.Computer】
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard37.htm

[VB2005]リンク集（更新版）

Visual Studio 2005 クラス デザイナを使用した API 設計
http://www.microsoft.com/japan/msdn/vs05/vsts/vstsclassdesigner.asp

[VB.NET or VB2005]OpenFileDialogコントロール

■VB6.0のCommonDialogをOpenFileDialogコントロールに変更するには？
・VB6.0

・VB.NET or VB2005

[VB.NET]Form関連

■別Formや別モジュール内での別Formのコントロールへのアクセス方法
Form2からForm1のテキストボックスへ値を代入するには、次のようになる。
・VB6.0　
Form1.Text1.text="変更OK！"

・VB.NET（別Formからアクセス）
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing

[Form2内のコード]
Dim frm1 as Form1 = me.owner
frm1.TextBox1.text="変更OK！"
frm1 = Nothing

・VB.NET（別モジュールからアクセス）
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing

[Form2内のコード]
Call SetText(Me.Owner)

[Module1内のコード]
Public Sub SetText(ByRef frm1 As Form1)
frm1.TextBox1.Text = "変更OK！"
frm1 = Nothing
End Sub

■参考サイト
【VB Tips And Sample】
http://www.geocities.jp/i_love_balard/myhome/index.html

[VB.NET]MsgBox

■VB6.0とVB2005(VB.NET)の比較
・VB6.0

・VB2005

System.Windows.Forms.MessageBox.Show("Hello, world!")

[Perl]リンク集（更新版）

【Perl Script Laboratory】
http://www.psl.ne.jp/

オブジェクト指向

【オブジェクト指向分析/設計概論】
http://www.asahi-net.or.jp/~dp8t-asm/java/articles/OOAD/article.html

■継承とポリモーフィズム

サンプルプログラム
フォームにボタンを２つ配置する。

・Class1.vb
'スーパークラス（親クラス）
Public MustInherit Class cSuperClass
Public MustOverride Sub Msg(ByVal msg As String)
End Class

'クラス（子クラス）
Public Class cMsgBox1
Inherits cSuperClass
Public Overrides Sub Msg(ByVal msg As String)
MessageBox.Show(msg & vbCrLf & "クラス名：cMsgBox1")
End Sub
End Class

'クラス（子クラス）
Public Class cMsgBox2
Inherits cSuperClass
Public Overrides Sub Msg(ByVal msg As String)
MessageBox.Show(msg & vbCrLf & "クラス名：cMsgBox2")
End Sub
End Class


・Form1.vb
Public Class Form1

Private cClsMsgBox As cSuperClass
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cClsMsgBox = New cMsgBox1
cClsMsgBox.Msg("Button1")
cClsMsgBox = Nothing
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cClsMsgBox = New cMsgBox2
cClsMsgBox.Msg("Button2")
cClsMsgBox = Nothing
End Sub
End Class

■参考サイト
【＠IT：連載：プロフェッショナルVB.NETプログラミング　第19回 継承とポリモーフィズム】
http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet19/vb6tonet19_01.html

[VBA]リンク集（更新版）

■リンク集■
【Excel VBA 入門講座】
http://excelvba.pc-users.net/index.html

【EXCEL生産性向上委員会】
http://www.excel7.com/index.htm

【Office TANAKA】
http://www.officetanaka.net/

[VB.NET]プリプロセッサ（#If,#Const,#Region）

■#If,#Const
【＠IT：連載：改訂版 プロフェッショナルVB.NETプログラミング　Chapter 16　プリプロセッサ】
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_16/vbnet2_16_01.html

■#Region
似たような関数処理をブロック単位毎にグループ分けすると折り込んで畳んでしまう機能を使ったときにソースが
見やすくすることができる。

#Region "タイトル"

#End Region

【＠IT：連載：改訂版 プロフェッショナルVB.NETプログラミング　Chapter 16　プリプロセッサ】
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_16/vbnet2_16_02.html

[VB2005]PictureBox

■StringFormatクラス（System.Drawing名前空間）
テキストレイアウト情報で配置や行間などを取得または設定します。
・Alignmentプロパティ
テキスト配置情報を取得または設定します。
・LineAlignmentプロパティ
行配置を取得または設定します。
・FormatFlagsプロパティ
書式情報を格納するStringFormatFlags列挙体を取得または設定します。
StringFormatFlags列挙体は、文字列の表示情報およびレイアウト情報を指定します。

DirectionRightToLeft=1
DirectionVertical=2
DisplayFormatControl=32
FitBlackBox=4
LineLimit=8192

DirectionRightToLeft：右寄せ表示。
DirectionVertical：縦書き（全角のみ表示可能？、英数字・半角カタカナは横に表示される）
DisplayFormatControl：左寄せ折返し表示。
FitBlackBox：折返して表示される。

LineLimit 書式指定用の四角形には、完全な直線だけがレイアウトされます。既定では、クリッピングの結果、テキストの末尾が表示された状態、または行が表示されなくなった状態のうち、いずれか早い方の状態になるまでレイアウトが継続します。既定の設定では、行高さの整数倍でない書式指定用四角形を用いた場合は、最後の行の一部が隠れることがあります。必ず行全体が表示されるようにするには、この値を指定した上で、少なくとも 1 つの行と高さが同じの書式指定用の四角形を使用してください。 8192
MeasureTrailingSpaces 既定では、 MeasureString メソッドから返される外接四角形によって、各行末の空白が除外されます。各行末の空白を計測に含める場合はこのフラグを設定します。 2048
NoClip グリフの突出部と書式指定用の四角形からはみ出すラップされていないテキストを表示できます。既定では、書式指定用の四角形からはみ出たテキストとグリフ部はすべてクリップされます。 16384
NoFontFallback フォールバックを無効にして、要求されたフォントでサポートされていない文字のフォントを切り替えます。欠落文字は、グリフの欠落したフォント (通常は空白の正方形) で表示されます。 1024
NoWrap 四角形内の書式指定時に、行間のテキストのラップを無効にします。このフラグは、四角形ではなく点が渡された場合、または長さゼロの行の四角形が指定された場合に暗黙的に指定されます。 4096

【StringFormat メンバ／MSDN】
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdrawingstringformatmemberstopic.asp

■Graphicsクラス（System.Drawing名前空間）
ディスプレイデバイスに描画するためのクラス。
・FillRectangleメソッド
座標ペア（左上隅のx,y）、幅（width）、および高さ（height）で指定された四角形の内部を塗りつぶす。
FillRectangle(Brush, Rectangle)
例：
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim wRec As New Rectangle(0, 0, 50, 20)
Dim g As Graphics = e.Graphics
g.FillRectangle(Brushes.Blue, wRec)
End Sub

・DrawRectangleメソッド

【Graphics メンバ／MSDN】
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdrawinggraphicsmemberstopic.asp

[VB.NET]ComboBoxコントロール

■VB6.0で使えたItemDataプロパティがなくなったための代用方法

【VB.NETのComboBoxでItemDataを使うには？】
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200411/04110095.txt

【VB.NETで作る! | VB6のItemDataの代用】
http://shinshu.fm/MHz/88.44/a03195/0000033677.html

お役立ちリンク集

【Programming Library - VB/VC/Delphi総合情報ページ】
http://homepage1.nifty.com/MADIA/

【MOONGIFT - オープンソースによるIT戦略支援 -】
http://www.moongift.jp/

[VB.NET]Timerコントロール

Timer コントロール
Enabled プロパティ、Interval プロパティなどがそのままアップグレードされます。ただし、Interval プロパティの最小値が 「1」 であるため、この値が 「0」 のときは自動的に 「1」 に変更されます。つまり、Visual Basic 6.0 では Interval プロパティが 「0」 に設定されていたためTimerイベントが発生しなかった場合でも、1 ミリ秒ごとに Timer イベントが発生するアプリケーションに変わってしまいます。そのため、このような場合には、アップグレード後に手直しが必要になります。

【VB 6.0 ユーザーのための VB .NET 移行ガイド - 標準コントロール】
http://www.microsoft.com/japan/msdn/net/vbtransitionguide/chapter5/chapter5_4.asp

[VB2005]データベース

【「300 秒でズバリ !!」&「10 行でズバリ !!」シリーズ [Visual Studio 2005 対応版]】
http://www.microsoft.com/japan/msdn/thisweek/300x10/


■[VB.NET]
【Visual Basic .NET を使用してデータベースから DataSet オブジェクトを取得する方法】
http://support.microsoft.com/default.aspx?scid=kb;ja;301216


■参考サイト
【Microsoft Access Club】
http://www.accessclub.jp/index.html
【ソフトウエア開発部】
http://www.ilovex.co.jp/Division/SRD/

■DataSetを１回だけ初回に宣言してその変数を使いまわすときに前回の内容が残る。
DisposeメソッドではなくClearメソッドを使うとデータの内容が削除される。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatadatasetmemberstopic.asp

■データベースの書込み
Public Function WriteTestTBL(ByRef pCon As OleDb.OleDbConnection) As Boolean
Dim oAdapter As New OleDb.OleDbDataAdapter
Dim oCmdBldr As New OleDb.OleDbCommandBuilder(oAdapter)
Dim oData As New DataSet
Dim oRow As DataRow

Dim i As Integer = 0
Dim strSql As String
Dim strTBL As String = "Test"

strSql = "SELECT * FROM Test WHERE (日時 = #2006/01/07 23:00:00#) AND (番号 = 1)"

oData.Clear()
oAdapter.SelectCommand = New OleDb.OleDbCommand(strSql, pCon)
oAdapter.SelectCommand.Transaction = pCon.BeginTransaction 'トランザクションセット

Try
If (oAdapter.Fill(oData, strTBL) > 0) Then
oData.Tables(0).Rows(0).Item("日時") = "2006/01/07 23:00:00"
oData.Tables(0).Rows(0).Item("番号") = 1
Else
oRow = oData.Tables(strTBL).NewRow()
oRow.BeginEdit()

oRow("日時") = "2006/01/07 23:00:00"
oRow("番号") = 1

oRow.EndEdit()
oData.Tables(strTBL).Rows.Add(oRow)

oCmdBldr = New OleDb.OleDbCommandBuilder(oAdapter)
oAdapter.InsertCommand = oCmdBldr.GetInsertCommand
End If
oAdapter.Update(oData, strTBL)
oData.AcceptChanges() 'データセットのコミット
Catch ex As Exception
oAdapter.SelectCommand.Transaction.Rollback() 'トランザクションロールバック
Finally
If (IsNothing(oAdapter.SelectCommand.Transaction) <> True) Then
oAdapter.SelectCommand.Transaction.Commit() 'トランザクションコミット
oAdapter.SelectCommand.Transaction = Nothing 'トランザクション解放
End If
End Try

WriteTestTBL = True

oData.Dispose()
oCmdBldr.Dispose()
oAdapter.Dispose()

oRow = Nothing
oData = Nothing
oCmdBldr = Nothing
oAdapter = Nothing

End Function

■参考サイト
【MCSE braindumps】
http://www.mcse.ms/

検索システム

【高性能検索システム・自動翻訳システム　アクセラテクノロジ株式会社】
http://www.accelatech.com/index.html

Google Analytics

■Webにスプレッドシートを埋め込むことができる？
【Num Sum:web spreadsheets】
http://www.numsum.com/

地域イベント検索サービス企業Zventsの創設者イーサン・ストック氏
【OnoTech】
http://onotech.blogspot.com/