莱鸟问一个蛮简单的问题~~

Question

1、Image控件中如使导入的图片居中？ 而不是从左上角开始对齐,就像Form控件可以设在桌面上居中一样!
2、LoadPicture()一张图片后想用一个按钮来保存同，怎么写啊 谢谢!!

Answer 1

1、Image1.Stretch =True
2、savepicture
Private Sub Command1_Click()
    SavePicture Image1.Picture, "c:\1.jpg"
End SubPrivate Sub Form_Load()
    Image1.Stretch = True
End Sub

Answer 2

Private Sub cmdSave_Click()
    CDlg.Filter = "Bitmap(*.bmp)|*.bmp|All files(*.*)|*.*"
    CDlg.ShowSave
    If CDlg.FileName <> "" Then
        SavePicture picResult.Image, CDlg.FileName
    End If
End Sub

Answer 3

最简单的办法你可以让image根据图片大小自动调整居中。

Answer 4

谢谢名位!问题2解决了，但是问题1 你们说的方法我试了的，那样不是居中，那样只是让图片拉伸和Image容器一样大啊!! 我想要的是图片不变形，在Image中居中，要是不行也可让Image控件在其它一个容器中居中呢？

Answer 5

1 很难实现（因为很难获得image控件的hdc）不过可以设置image的Stretch属性为true实现对image控件的填充2：
Private Sub Command1_Click()SavePicture Image1.Picture, "d:\tempppp.bmp"
End Sub

Answer 6

让你的Image可以根据图象自动适应大小，然后根据图片大小移动Image在容器控件中的位置不就行了？