vb.net在自己的应用中嵌入谷歌地球的方法

最新推荐文章于 2024-03-29 07:07:07 发布

ztsjznc

最新推荐文章于 2024-03-29 07:07:07 发布

阅读量1.3k

点赞数

文章标签： vb.net google earth

本文链接：https://blog.csdn.net/ztsjznc/article/details/79102908

版权

本文介绍如何在VB.NET应用程序中嵌入谷歌地球，并在窗体上显示。通过声明API函数来操作窗口句柄，实现谷歌地球的显示和位置调整。在窗体加载时启动谷歌地球，关闭窗体时结束谷歌地球进程。

摘要由CSDN通过智能技术生成

'声明API函数

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hwndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer

Public GERenderHwnd, GEMainHwnd As Integer '保存GE应用程序的窗口句柄

Public AppGE As ApplicationGE

'首次使用要注册谷歌地球
Private Sub regGE()
Dim currentVersion As Version = Environment.OSVersion.Version
Dim compareToVersion As Version = New Version("6.2")
If (currentVersion.CompareTo(compareToVersio