IF文
FOR文
Usingステートメント

ArrayListを利用
IEnumerableを実装
Dictionaryを利用
StringDictionaryを利用
Stack(スタック)
Queue(キュー)
Generic List

小文字⇔大文字の変換
文字列をある文字列で分割

日付関係
現在日付と時刻の取得
明日、来月の日付の取得
月末の日付の取得
日付チェック

ファイル関係
ファイル選択ダイアログ
ファイル読み込み
CSVファイル読み込み
XmlSerializerを利用
GZip圧縮
ファイル情報の取得
フォルダ配下のファイル情報取得

MySQLに接続
ADO.NetでSQLServerに接続

スレッドを作成
ManagementObjectSearcherを利用

ドライブ情報を取得

フォーム関係
チェックボックス
メニューバーの作成
DataGridViewのDataSourceに配置
Timerコントロール
タスクバーにアイコンを表示
プログレスバーを表示
閉じるボタンの処理
透過度の変更
ListBoxにドラック＆ドロップ
WebBrowserコントロール
コントロールをマウスで移動
MDIアプリケーション
フォームに線を引く

WebAPI
Webリクエスト送信
Google Geocoding APIを呼び出す
Google Static Maps APIを呼び出す


正規表現
「^」について
「$」について
「+」について
「*」について
「.」について
「|」について
「{n}」について
「{n，m}」について
「[]」について

トップ

Google Geocoding APIを呼び出す＠VB.Net

Geocoding APIにより、住所や地名から緯度、経度情報を取得できます。
VB.NetからGeocoding APIを呼び出して結果を表示します。

※注意
「Geocoding API は Google マップと組み合わせて使用する場合にのみ使用できます。
　地図に表示せずにジオコーディングの結果のみを利用することは禁止されています。」
　なので、実際にアプリケーションを作成する場合は、注意が必要。

フォームから入力された住所をもとに、urlを作成します。
リクエストを送信して、結果を取得します。
取得した結果は、xml形式です。
緯度、経度の情報を取り出してフォームに表示します。

Imports System.Net Imports System.IO Imports System.Xml Imports System.Web Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim req As HttpWebRequest         Dim res As WebResponse         Dim stream As Stream         Dim streamRead As StreamReader         Dim xmlDoc As Xml.XmlDocument         Dim xmlStr As String         Dim url As String         'Google Geocoding API         url = "http://maps.google.com/maps/api/geocode/xml?address="         url += HttpUtility.UrlEncode(addressText.Text)         url += "&sensor=true"         'Request生成         req = WebRequest.Create(url)         'Response取得         res = req.GetResponse()         'Stream取得         stream = res.GetResponseStream         'StreamReader生成         streamRead = New StreamReader(stream)         '緯度、経度を表示         xmlStr = streamRead.ReadToEnd()         Console.WriteLine(xmlStr)         xmlDoc = New XmlDocument()         xmlDoc.LoadXml(xmlStr)         Me.latText.Text = xmlDoc.Item("GeocodeResponse").Item("result").Item("geometry").Item("location").Item("lat").InnerText         Me.lngText.Text = xmlDoc.Item("GeocodeResponse").Item("result").Item("geometry").Item("location").Item("lng").InnerText         'クローズ         streamRead.Close()         stream.Close()         res.Close()     End Sub End Class