这个大概就是个管图片URL的,TEXT中的可以加入新的URL,在COMBO中选择后就可以在下面的浏览器中显示出来.大概就这样的.



郁闷,先忘上传了....

[此贴子已经被作者于2007-8-24 16:02:09编辑过]

连窗体都不给＝。＝

.....没给么..... 算了,直接给代码了:

Private Sub Form_Load()
Open App.Path & "\url.dat" For Random As #1
Dim no As Integer, address As String
no = 1
Do While Not EOF(1)
Get #1, no, address
Combo1.AddItem = address
no = no + 1
Loop

Close #1
Open App.Path & "\url.dat" For Random As #1
Dim url As String
Get #1, 1, url
reclen = Len(url)
If reclen = 0 Then
reclen = 1
Else
reclen = reclen
End If
Close #1
End Sub


============================================================================
就是这段,运行后说的什么未找到方法或数据成员
具体指的是Combo1.AddItem = address

把“=”去掉。

Combo1.AddItem是一个方法 不是一个属性。

你可以说“把牛奶拿给我”，不能说“把牛奶拿给等于我”

去了还是要错喃
还是
未找到方法或数据成员

有没有人晓得哦~
吱一声
谢谢

你能不能给个完整的工程？

楼主你自己看看你传的附件能不能用。

[此贴子已经被作者于2007-8-29 16:57:34编辑过]

那好,重新上传,这次肯定对了.

[此贴子已经被作者于2007-8-29 18:02:58编辑过]

Private Sub Form_Load()
Open App.Path & "\url.dat" For Random As #1
Dim no As Integer, address As String
no = 1
Do While Not EOF(1)
Get #1, no, address
Combo1.AddItem = address
no = no + 1
Loop

Close #1
Open App.Path & "\url.dat" For Random As #1
Dim url As String
Get #1, 1, url
reclen = Len(url)
If reclen = 0 Then
reclen = 1
Else
reclen = reclen
End If
Close #1
End Sub
话说我手头没有VB 从WinRAR里看出来运行肯定出错