VB显示网页代码

显示全部楼层 · 2011-3-25 13:49:13

VB中有一个TEXT1的文本框，一个按钮。
代码是这样的：
Private Sub Command1_Click()
Text1.Text = ""
End Sub
在text1中要显示这样的代码：

无标题文档

请问一下怎样实现这样的功能。效果如图！

千问 · 2011-3-25 13:49:13

在窗体中添加控件：按钮控件 name="cmdCode"文本框控件 name="txtUrl"添加两个外部控件（VB自带）Microsoft Internet Transfer Control 6.0默认命名为"Inet1"Microsoft Rich Textbox Control 6.0命名为"rtfCode"在窗体代码Private Sub cmdGetCode_Click()Dim bCode() As ByteDim sTmp As StringDim i As Integer
On Error Resume Next
bCode = Inet1.OpenURL(txtU

千问 · 2011-3-25 13:49:13

Text1.Text = "" & vbcrlf &" <html xmlns="htt

千问 · 2011-3-25 13:49:13

现在不要搞VB了吧，有点儿过时了。

千问 · 2011-3-25 13:49:13

用list控件，然后在用list.add一行一行的添加