哪位高手帮帮忙？初级菜鸟问题

Question

我想在一个程序，运行中修改Text中的文本信息，修改完后保存，下次运行时在text中还可以见到最后一次修改的内容。还有就是程序运行时如何更改图片，将新图片粘贴覆盖在旧图片上，下次运行时只看见新图片。
谢先！！

Answer 1

你可以把信息记录到数据库中，然后把text绑定在记录集的一个字段上。每次运行的时候就可以看到了。
图片嘛，你也可以把图片的目录存到数据库中，然后把它调出来，这样你每次编辑完就可以保存最近的那张了呀。

Answer 2

比如有text1和command1
点击command1，执行
sql="insert into table(....) values(....)"
下次
sql="select .... from table where..."
text1.text=rs.fields("..")

Answer 3

使用简单的办法也可以啊，将文本框的内容保存在临时文件上，下次打开时将临时文件上的记录读到文本框中就可以了。图片也一样，将其路径保存在临时文件中，下次打开时读取该路径再加载图片。
在Form_unload中加代码：
   open app.path & "\tmpText.txt" for output as #1
      write #1,Text1.text
   close #1在Form_load中加代码：
   if dir(app.path & "\tmpText.txt" <> "" then
      dim TextLine as string
      open app.path for input as #1
      do until EOF(1)
         Line Input #1,textLine
         Text1.text =Text1.text & vbcrlf & TextLine
      loop
      Close #1
  
 路径存取及加载图片也是一样的

Answer 4

还可以保存到注册表中或.ini文件中。不过： qingming81(晴明) 说的做起简单点，方便。

Answer 5

文字（略）
....图片的存取
设有字段"img"'图片文件t.jpg存入数据库Img字段
Dim bit() As Byte, fn As Byte, Chunk() As Byte
fn = FreeFile()
Open ("c:\t.jpg") For Binary As fn
ReDim bit(LOF(1)) As Byte
Get fn, 1, bit
Close fn
Rs("Img").AppendChunk bit
Rs.Update
'....
'取出图片,形成文件t.jpg
If Not IsNull(Rs("Img")) Then
    'Chunk() = Rs("Img").GetChunk(Rs("Img").ActualSize)  'SQL Server
    Chunk() = Rs("Img").GetChunk(0,Rs("Img").FieldSize)  'Access 
End If
If Dir("c:\t.jpg") <> "" Then Kill "c:\t.jpg"
fn = FreeFile
Open "c:\t.jpg" For Binary Access Write As fn
Put fn, , Chunk()
Close fn
'....

Answer 6

img字段是OLE类型
Image1.Picture = LoadPicture(图片全路径)

Answer 7

if dir(app.path & "\tmpText.txt" <> "" then
这句话好象有点问题，我又改不来，哪位高手指教一下

Answer 8

不在跟目录下是没有问题的
在跟目录下if dir(app.path & "tmpText.txt" <> "" then

Answer 9

用API判断文件是否存在是不会出错的。不过写一堆代码也没有必要。加一句on error resume next 好了

Answer 10

不在跟目录下是没有问题的"冒号的问题"
在跟目录下if dir(app.path & tmpText.txt <> "" then

Answer 11

哪位高手再说得具体点，小弟实在是领悟能力太差。
if dir(app.path & tmpText.txt <> "" ）then指的tmpText.txt 文件到底在什么地方？？