vb浏览器一些问题

第一个用 trim 函数

第二个用窗口的 resize 的事件让 webbrowser 宽和高等于窗口的宽和高

第三个用 combo 的 KeyPress事件(好像是这么拼) 回车的 key值 我记得是 13 判断一下传入值是不是13

'1.如何清除combo字符首空格？

'2.窗口最大化时webbrowser的长宽如何与窗口一样？

'3.在combo按回车键让他执行打开网页的命令？

Private Const cURL As String = "  http://www.promiseforever.com";

'code by promiseforever.com

Private Sub ComUrl_KeyDown(KeyCode As Integer, Shift As Integer)

'在combo按回车键让他执行打开网页的命令

If KeyCode = 13 Then WebBrowser1.Navigate ComUrl.Text

End Sub

Private Sub Form_Load()

'去掉字符串前段的空格

ComUrl.Text = Trim(cURL)

With WebBrowser1

.Left = 0

.Top = ComUrl.Top + ComUrl.Height

.Width = Me.Width

.Height&n