dotNetControl PictrueBox

(
 ---加以张图片的控件。
  rollout windowPictureBox "Picture box"
  (
   dotNetControl pictureBox "System.Windows.Forms.PictureBox" height:100 width:100 align:#center
   
   on windowPictureBox open do
   (
    imageFile = @"C:\Program Files (x86)\Autodesk\3ds Max 2008\ui\Icons\AtmosApp_24i.bmp" -- Point this to an image you want to use
    if (doesFileExist imageFile) do
    (
     imageObject = (dotNetClass "System.Drawing.Image").fromFile imageFile
     pictureBox.backGroundImage = imageObject
     pictureBox.backgroundImageLayout = (dotNetClass "System.Windows.Forms.ImageLayout").zoom
    )
   )
  )
  createDialog windowPictureBox 150 150
 )

posted on 2011-09-19 10:27  盖天00  阅读(316)  评论(0编辑  收藏  举报

导航