看了黑客X档案，里面有说做这个东西的，我想做一个送给同学，做为她的生日礼物
但是我在爱输入代码的时候就提示
缺少 列表分隔符 或 )
很是郁闷
试了很多次都不可以
代码如下

Private Sub QQ空间_Click(WebBroser1.Navigate"http://q-zone.qq.com/client/?uin=" & Text1.text;)
就这个了
我学VB是刚刚开始而已
有许多东西还不懂，请多指教

呵呵,改成这样就可以用了

复制内容到剪贴板

代码:

Private Sub QQ空间_Click()
WebBrowser1.Navigate "http://user.qzone.qq.com/" & Text1.Text
End Sub

空间名称最好不要使用中文。
最好使用空间名称简写+简明注视

后面没有分号也可以么?

但还是不可以 啊

[ 本帖最后由 霜之守望者 于 2007-4-4 17:36 编辑 ]

呵呵,写得了,谢谢啊~~~


[ 本帖最后由 霜之守望者 于 2007-4-5 08:02 编辑 ]

Private Sub Command1_Click()
WebBrowser1.Navigate ("http://qqshow.qq.com/cgi-bin/qqshow_user_info?uin=" + Text1.Text)
End Sub

我也试着写了个


Private Sub caifu_Click()
WebBrowser1.Navigate ("http://qqshow.qq.com/cgi-bin/qqshow_user_info?uin=" + Text1.Text)
End Sub


Private Sub jiaoyou_Click()
WebBrowser1.Navigate ("http://love.qq.com/cgi-bin/portal2qq?type=tips&frienduin=" + Text1.Text)
End Sub


Private Sub end_Click()
End
End Sub

Private Sub kongjian_Click()
WebBrowser1.Navigate ("http://user.qzone.qq.com/" + Text1.Text)
End Sub

Private Sub xiangce_Click()
WebBrowser1.Navigate ("http://photo.qq.com/portal/albumMain.shtml?1.0.2.2#uin=" + Text1.Text)
End Sub

Private Sub xiu_Click()
WebBrowser1.Navigate ("http://qqshow-user.tencent.com/" + Text1.Text + "/11/00/")
End Sub