My favorites | Sign in
Project Home Downloads Wiki Issues Source
Checkout   Browse   Changes    
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
namespace Funslae

open System
open System.Windows
open System.Windows.Controls
open System.Windows.Media
open Microsoft.Maps.MapControl
open Microsoft.Maps.MapControl.Core

type App() as app =
inherit Application()
do
app.Startup.Add(fun args ->
let grid = Grid()

let map = Map()
grid.Children.Add map

map.CredentialsProvider <- {
new CredentialsProvider() with
member x.GetCredentials(action) =
action.Invoke(
let credentials = Credentials()
credentials.ApplicationId <- "AsQUVMODsS2NezEnDpl2DUlyGSoEa9EZTqL9lxcBTcKn2v53mfKJ-VOLufebS4Km"
credentials
)
}

app.RootVisual <- grid
()
)

Change log

r23 by cameron.taggart on Dec 22, 2009   Diff
moving blog code in 2009 to be under
tags/blog-2009
Go to: 
Project members, sign in to write a code review

Older revisions

r12 by cameron.taggart on Dec 20, 2009   Diff
for new blog: Hello World for Bing
Maps + Silverlight + F#
All revisions of this file

File info

Size: 763 bytes, 31 lines
Powered by Google Project Hosting