主题：地图应用

老师好，我现在不是要写网页，是要在桌面程序里加入地图功能。

我的问题是，我打开了地图，但是不能全部覆盖整个窗体，其余部分是空白，怎么解决？谢谢。 下图的右边出现空白区，请问如何消除这些空白区？

 

 

           

此主题相关图片如下：地图功能.jpg

设置浏览器控件的停靠属性：http://www.foxtable.com/webhelp/scr/0702.htm

浏览器控件的停靠属性我设置的就是Fill ，也就是充满。空白区就是这样，仍然是存在空白区。

自己研究地图api：http://lbsyun.baidu.com/cms/jsapi/reference/jsapi_reference.html

老师好，看了地图api。 map.enableAutoResize() 这句应该可以实现地图自动缩放，可是我该将该句代码放在下面代码的哪里呢？

 

 

Dim txt_addr As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim level As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim animation As WinForm.CheckBox = e.Form.Controls("CheckBox2")

'取得地图的坐标
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
 
 

XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop       

Dim json As String = XMLH.responseText
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

'设置htm地图的显示坐标
Dim file As String = ProjectPath & "map"
Try
    Dim x As Double = data.result.location.lng
    Dim y As Double = data.result.location.lat
    Dim html As String = FileSys.ReadAllText(file)
        

 FileSys.WriteAllText(file & ".htm", html, False)

    e.Form.Controls("VesselPosition").Address = file & ".htm"
    Do Until e.Form.Controls("VesselPosition").BaseControl.ReadyState = 4
        Application.DoEvents
    Loop
    e.Form.TimerEnabled = True '启动计时器监听页面
Catch ex As Exception
    msgbox("请输入正确的定位地址")
End Try

在网页js代码处理

老师好，我的程序是桌面应用程序，不是网页，只有代码编辑器里可以写代码，所以我不知道将下面的代码放到那个编辑器里。我程序是一个窗体，一个textbox，一个ComboBox1，一个CheckBox，一个WebBrowser，我将打开百度地图的程序放到窗口的afterload的事件里。请问下面的代码放到哪里？真不知道foxtable如何写代码调用百度的api！请老师指点。谢谢。

 

老师好，我的程序是桌面应用程序，不是网页，只有代码编辑器里可以写代码，所以我不知道将下面的代码放到那个编辑器里。我程序是一个窗体，一个textbox，一个ComboBox1，一个CheckBox，一个WebBrowser，我将打开百度地图的程序放到窗口的afterload的事件里。请问下面的代码放到哪里？真不知道foxtable如何写代码调用百度的api！（学习百度的API不是问题）请老师指点。谢谢。

 

 

修改项目文件夹下的map模板文件，在文件里面写页面代码。

老师好，我按照您的指点在map文件里修改了代码，如下图，但是仍然不能消除右边的空白区。请问怎么办才好？

 

 

此主题相关图片如下：地图功能2.jpg