如何根据需要改变控件中显示的图片.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 10 行

图 片 如 果 以 单 独 文 件 的 形 式 存 放 ， 可 以 使 用 LoadPicture调 用 。 如 果 放 在 .res文 件 ， 然 后 编 译 到 exe中 ， 可 以 使 用 LoadResPicture调 用 。 这 里 只 介 绍 LoadPicture， 关 于 资 源 文 件 参 考 QA002194 “Visual Basic中使用资源的技巧”。 
    下 面 是 一 个 简 单 的 例 子 ： 
    sCountry = Input("请 输 入 国 名 ： ") 
    If Trim(sCountry) = "China" Then 
     ' 把 图 片 和 EXE放 在 一 个 目 录 中 
     Picture1.Picture = LoadPicture(App.Path + "\us.bmp") 
    Else 
     MsgBox "错 了 ！ " 
    End If 
<END>