图像路径测试脚本源码

附件：11.bmp

运行环境：分辨率：1920x1080 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.30.11197

@xyzc19892012/10/18

Event Form1.Button1.Click  
    Dim 路径  
    Rem a  
    路径=Plugin.File.SelectFile()  
    If 路径<>"" then  
        If (LCase(Right(路径,4)) = ".jpg" or LCase(Right(路径,4)) = ".bmp" or LCase(Right(路径,4)) = ".gif") Then  
            Form1.PictureBox1.Picture = 路径  
        Else  
            MsgBox "请选择（.jpg）、（.bmp）或（.gif）格式图片！！！"  
            Goto a  
        End If  
    End If  
End Event  
Event Form1.Button2.Click  
    Form1.PictureBox1.Picture =  "Attachment:\11.bmp"   
End Event  
  
  
  
Event Form1.PictureBox1.Click  
    MessageBox 1  
End Event