VB重分悬赏一代码

VB读取当前正在浏览图片的路径
比如我在看一个山景的图片
那就用VB把这个山景的图片的路径写到text1
如果有浏览text2 = 浏览
如果没有浏览则text2 = 无浏览
可以么,请写出代码,好的给100

不知所云！
你的浏览是指用ACDSEE浏览还是你的VB程序中浏览？
////////////////////////////////////
顶楼上，我在另一个帖里已经给你说了你没说清楚，你怎么又开了一个帖。

还有就是如果是用任意程序浏览的话，那就是勾住读文件的API啦，然后判断文件是否是图片文件。不过有难度哦。

不知所云！
你的浏览是指用ACDSEE浏览还是你的VB程序中浏览？

图片的路径 开始 文档 bmp jpg

正在浏览的图片还能不知道路径吗？未得到路径怎么能浏览呢？好好动动脑筋吧。至于路径要显示在何处那就随你便了。

Private Sub Command1_Click()

CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
On Error Resume Next
If Picture1.Picture <> LoadPicture() Then
Text1.Text = App.Path & CommonDialog1.FileName

Text2.Text = "浏览"
End If
If Picture1.Picture = LoadPicture() Then
Text2.Text = "无浏览"
Text1.Text = ""
End If
End Sub

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引用microsoft activeX data object 2.5 library
代码如下：

Private Sub Command1_Click()
Dim cnDk As New ADODB.Connection