VB开发安卓程序_例程15控件WebView的使用

本文链接：https://blog.youkuaiyun.com/u010643864/article/details/138027724

本文介绍了如何在Android应用程序中使用WebView控件加载HTML内容，并展示了如何结合CSS3实现导航菜单的动态效果，包括加载本地文本文件和使用JavaScript特效。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

运行截图

WebView控件就是一个WEB控件，用来访问和显示网页的。

Main窗体代码如下



#Region  Project Attributes 
	#ApplicationLabel: B4A 示例
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations(支持的方向) 值可以是： unspecified(未指定), landscape(纵向)或portrait(横向)。
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'这里声明的全局变量在应用启动时被使用。
	'这里声明的变量能被所有模块使用。

End Sub

Sub Globals
	'这里的声明的全局变量在Activity 创建时声明。
	'这里声明的变量只能在此模块使用。

	Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")
	
	WebView1.Left=0
	WebView1.Top=0
	WebView1.Width=100%x
	WebView1.Height=100%y
	
'	WebView1.LoadHtml(LoadText(File.DirAssets, "testloadhtml.txt")) 
	
	WebView1.LoadHtml(LoadText(File.DirAssets, "menu.html")) 
	'此JavaScript特效来源于
	'http://www.codefans.net/jscss/lastupdate.shtml

	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub WebView1_PageFinished (Url As String)
	
End Sub
Sub WebView1_OverrideUrl (Url As String) As Boolean
	
End Sub
Sub WebView1_UserAndPasswordRequired (Host As String, Realm As String) As String()
	
End Sub


'这个方法能将XP上保存的文本文件中的汉字正确读取出来，感谢网友 转转 的辛苦付出
Sub LoadText (VDir As String , VFileName As String) As String

		Dim Ch