[已解决]请教个基础问题？谢谢解答

总是在前

我做了个游戏管理软件，在表中录入了游戏的基本数据（名称、价格、图片....）。但是出现了问题，我用窗体显示数据时，其他都正常，为什么图片却不显示呢？只显示它的名字。我的图片都是jpg格式的。希望老师们告诉我操作步骤，不要给我代码，我还看不懂 不好意思！谢谢了

[ 本帖最后由 cuxun 于 2008-1-9 07:22 编辑 ]

tmtony

我把cuxun的代码翻译成步骤:
1.把图片存放你指定的目录下  如d:\temp
2.在窗体的成为当前事件(current)中加如下内容(不是代码
   Private Sub Form_Current()
       Me.Image82.Picture = D:\temp\" & me.窗体上的控件的名称需要与图片的名称相同 & ".jpg"
   End Sub
3.打开窗体

当然做得更好一些,还要加入如果没有图片要显示一个空图片,以防出错

总是在前

谢谢您了  还是不太懂！

poly

窗体中图片绑定为表中的图片应该会显示，要么是你格式不对？

tmtony

成为当前 事件 见附图

poly

这是啥东东，不懂~~~

总是在前

找到了谢谢！ Me.游戏图片.Picture = E:\Documents and Settings\Administrator\桌面\test\三角洲\" & Me.游戏图片 & ".jpg"
   End Sub语法错误。怎么办？谢谢解答，我不会vb

[ 本帖最后由 总是在前 于 2008-1-6 09:49 编辑 ]

总是在前

对不起呀 我弄了半天还是不会！这是改后的：  我跟您学的在原有的表中添加了一条记录名字叫：图片名称。在要修改的窗体中，将以前的图片连接删除了。添加了一个文本框，绑定在这个图片名称记录。然后又用了 图像 控件。他让我选张图片，我选了（不选张图片的话，图像控件就没有了）然后把图片删除掉（图片来源：（无））。在窗体成文当前时间中，在vb里添加了您的代码（控件名称和记录名称改成我得了）。可是说找不到对象。请问怎么办？（跟您学的，我把数据库文件跟图片放到一个文件夹里了）谢谢解答
Option Compare Database
Option Explicit
Private Sub Form_Current()
    Dim TempPhotoPath As String

    TempPhotoPath = CurrentProject.Path & "\" & Me.图片名称 & ".jpg"
    If FileExistCheck(TempPhotoPath) = 1 Then
   
       Me.图片.Picture = TempPhotoPath
       Else
       Me.图片.Picture = ""
      
    End If
End Sub

[ 本帖最后由 总是在前 于 2008-1-7 10:31 编辑 ]

总是在前

恩，可以。非常感谢您的帮忙

[ 本帖最后由 总是在前 于 2008-1-7 12:37 编辑 ]

总是在前

谢谢您  是不是 将图片和数据库放在同一个文件内最好