Q & A


与本书内容相关之 Q&A
03/08 p.425 Status名.Panels(I).Picture = pic_obj 经测试后, 却不能成功, 到底要怎样才能够设定图片给状态栏?
p.312 312 页 的 范 例 只 能 写 入 后 , 如 何 修 改 才 能 够  增 添 数 据 ?
p.312 的 程 序 只 是 seek 原 数 据 目 录 的 位 置 , 然 后 写 入 数 据 。 若 要 新 增 数 据 目 录 , 必 须 seek 文 档 尾 , 然 后 写 入 数 据 。

若 是 将 原 来 的 SetData 子 程 序 修 改 如 下 , 则 原 来 写 入 数 据 的 方 式 将 变 成 增 添 :

    ' 设定好写入的位置
    Seek #f, LOF(f) + 1 ' 修改此行 
    ' 写入数据目录 
    Put #f, , rec 
    ' 改变卷轴的状态, 此为增添部分
    HScroll1.Max = HScroll1.Max + 1 
    HScroll1.Value = HScroll1.Max