这个大概就是个管图片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

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

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

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

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

的确是用不起,所以问下三

还是老问题,未找到方法或数据成员

Combo1.AddItem = address
还是这里...
找不到...

好吧....改了还是没找到啊....
Call Combo1.AddItem(address)
依然....

改了还是不行啊,我确定,真的看了的