none
vb中用window.DispImage()如何使图片全部显示在窗口中? RRS feed

  • 问题

  • 如题,我使用的是visual studio 2008,调window.DispImage()在创建的窗口中显示图片,结果图片只在窗口中显示了一部分,而且不清楚,请问这个该怎么设置才能全部显示?
    2012年4月8日 12:51

答案

全部回复

  • 如题,我使用的是visual studio 2008,调window.DispImage()在创建的窗口中显示图片,结果图片只在窗口中显示了一部分,而且不清楚,请问这个该怎么设置才能全部显示?
    可以给我们看看你完整代码么?
    2012年4月10日 3:07
  • 你好, 

    请问DispImage是自定义的方法吗? 我翻阅了MSDN但是没有找到此方法。 如果是自定义方法,请提供相关的代码,非常感谢!

    Regards,


    Shanks Zen
    MSDN Community Support | Feedback to us

    2012年4月10日 3:28
    版主
  • 建议用pciturebox显示图片

    http://feiyun0112.cnblogs.com/

    2012年4月11日 1:00
    版主
  • 呵呵,你好,多谢关注。我是在visual studio 2008中创建vb应用程序,然后调用halcon 10.0中的库文件以开发图像处理程序。这个DispImage估计是halcon的算子。

    现在我的程序可以正常显示了。

    整个程序代码如下:

    Imports HALCONXLib Public Class Form1 Dim Window As HWindowX Dim Monkey As New HImageX Dim Region1 As HRegionX Dim Eyes As HRegionX Dim State As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Window = AxHWindowXCtrl1.HalconWindow Call Window.SetColored(12) Call Window.SetPart(0, 0, 511, 511) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If State = 3 Then End End If If State = 2 Then Eyes = Region1.SelectShape("area", "and", 500, 50000) Eyes = Eyes.SelectShape("anisometry", "and", 1, 1.7) Call Window.DispObj(Monkey) Call Window.DispObj(Eyes) Label1.Text = "click Finish to terminate" Button1.Text = "Finish" State = 3 End If If State = 1 Then Region1 = Monkey.Threshold(128, 256) Region1 = Region1.Connection() Call Window.SetColored(12) Call Window.DispObj(Region1) Label1.Text = "Next, the ape's eyes will be selected" State = 2 End If If State = 0 Then Call Monkey.ReadImage("monkey") Call Window.DispObj(Monkey) Label1.Text = "Next, the image will be segmented into several regions" State = 1 End If End Sub End Class

    整个程序就是分割猴子的眼睛:



    2012年5月8日 1:30