vb.net中实现picturebox中图片拖动和label控件数组结合,实现label和图片同步

原创 2007年09月26日 21:31:00

在前面的文章中,提到过在vb.net中实现picturebox中图片拖动,以及控件数组方面的东西。

因为项目需要,我要实现的是,图片上有各个站点的名称,我要实现点击相应的名称,进入站点,查看相应的信息。我采取的是在图片上放一系列的label,然后点击label,进入相应的站点,这样就遇到了一个问题,要实现在拖动图片的同时,所有的label也同步拖动。

下面的代码实现了这个功能:

Imports System.Drawing
Namespace WinForm.Main
    Public Class MainWindow
        Inherits System.Windows.Forms.Form

---- " Windows 窗体设计器生成的代码 "---

 Public Sub New()
            MyBase.New()

            '该调用是 Windows 窗体设计器所必需的。
            InitializeComponent()

            '在 InitializeComponent() 调用之后添加任何初始化
            Me.WindowState = Windows.Forms.FormWindowState.Maximized
            loadTree()
            Me.L_USER_CONTENT.Text = myForm.LogInUser.get_UserName
            '得到picturebox的初始位置坐标
            Me.m_Leftx = Me.PictureBox1.Location.X
            Me.m_Lefty = Me.PictureBox1.Location.Y
            '得到图片的缩放率
            Me.m_StrecthX = Me.PictureBox1.Image.Size.Width / Me.PictureBox1.Size.Width
            Me.m_StrecthY = Me.PictureBox1.Image.Size.Height / Me.PictureBox1.Size.Height

            '添加label双击的绑定
            BindArray()
        End Sub

 

------------- Windows 窗体设计器生成的代码----------------------

   '处理图片拖动

        Private m_Leftx As Integer = 152
        Private m_Lefty As Integer = 0
        Dim m_MousePosX As Integer
        Dim m_MousePosY As Integer
        Dim m_DriftX As Integer
        Dim m_DriftY As Integer
        '缩放率
        Dim m_StrecthX As Double
        Dim m_StrecthY As Double
        'label起始相对于picturebox的位置
        Dim m_L_GW_RY_X As Integer
        Dim m_L_GW_RY_Y As Integer

        Dim m_L_STATION_ZF_X As Integer
        Dim m_L_STATION_ZF_Y As Integer
        '是否第一次缩放
        Dim m_L_FIRST As Boolean = True
        '处理label
        Dim Labels As New Common.LabelArray(Me)

   '当鼠标按下时,将鼠标变成手形,并且记录下当前鼠标的位置
        Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown           

            Me.Cursor = System.Windows.Forms.Cursors.Hand
            m_MousePosX = e.X
            m_MousePosY = e.Y

           GetLabelPositon()

 End Sub

'根据偏移量计算出的图片位置,重画图片
        Private Sub picturemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
            Dim myBit As New System.Drawing.Bitmap(PictureBox1.Image)

            Dim myPicGrh As System.Drawing.Graphics = Me.PictureBox1.CreateGraphics
            myPicGrh.Clear(Me.PictureBox1.BackColor)
                        myPicGrh.DrawImageUnscaled(myBit, m_Leftx - 152, m_Lefty)
            StretchLabel()
            myBit.Dispose()
            myPicGrh.Dispose()

        End Sub

  '处理鼠标按键抬起的事件,根据鼠标按下时保存的鼠标位置,和当前鼠标的位置,计算鼠标移动偏移量,借此调用移动图片的函数,移动图片
        Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
            m_DriftX = m_MousePosX - e.X
            m_DriftY = m_MousePosY - e.Y
            m_Leftx = m_Leftx - m_DriftX
            m_Lefty = m_Lefty - m_DriftY
            picturemove(sender, e)
            Me.Cursor = System.Windows.Forms.Cursors.Arrow

        End Sub

   '将管网图上的站点的label用一个事件来处理,处理之前需要绑定
        Public Sub BindArray()
            Labels.AddItem(Me.L_GW_RY)
            Labels.AddItem(Me.L_STATION_ZF)
        End Sub

  '得到label的起始相对于picture的位置
        Public Sub GetLabelPositon()
            m_L_GW_RY_X = (Me.L_GW_RY.Location.X - Me.PictureBox1.Location.X) * Me.m_StrecthX + Me.PictureBox1.Location.X
            m_L_GW_RY_Y = Me.L_GW_RY.Location.Y * Me.m_StrecthY

            m_L_STATION_ZF_X = (Me.L_STATION_ZF.Location.X - Me.PictureBox1.Location.X) * Me.m_StrecthX + Me.PictureBox1.Location.X
            m_L_STATION_ZF_Y = Me.L_STATION_ZF.Location.Y * Me.m_StrecthY
        End Sub
        '根据picture的位置重绘label
        Public Sub StretchLabel()
            If m_L_FIRST = True Then
                Me.L_GW_RY.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
                L_GW_RY.SetBounds(Me.m_L_GW_RY_X - m_DriftX, Me.m_L_GW_RY_Y - m_DriftY, L_GW_RY.Width * Me.m_StrecthX, L_GW_RY.Height * Me.m_StrecthY)

                Me.L_STATION_ZF.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
                L_STATION_ZF.SetBounds(Me.m_L_STATION_ZF_X - m_DriftX, Me.m_L_STATION_ZF_Y - m_DriftY, L_STATION_ZF.Width * Me.m_StrecthX, L_STATION_ZF.Height * Me.m_StrecthY)
            Else
               
                If ((L_GW_RY.Location.X - m_DriftX) < Me.PictureBox1.Location.X) Or ((L_GW_RY.Location.X - m_DriftX + L_GW_RY.Size.Width) > (Me.PictureBox1.Size.Width)) Then

                    L_GW_RY.Visible = False
                Else
                    L_GW_RY.Visible = True
                End If

                If (L_STATION_ZF.Location.X - m_DriftX) < Me.PictureBox1.Location.X Or (L_STATION_ZF.Location.X - m_DriftX + L_STATION_ZF.Size.Width) > (Me.PictureBox1.Size.Width) Then
                    L_STATION_ZF.Visible = False
                Else
                    L_STATION_ZF.Visible = True
                End If

 

                L_GW_RY.SetBounds(L_GW_RY.Location.X - m_DriftX, L_GW_RY.Location.Y - m_DriftY, L_GW_RY.Width, L_GW_RY.Height)
                L_STATION_ZF.SetBounds(L_STATION_ZF.Location.X - m_DriftX, L_STATION_ZF.Location.Y - m_DriftY, L_STATION_ZF.Width, L_STATION_ZF.Height)

            End If
            m_L_FIRST = False
        End Sub
    End Class

End Namespace
        

 

相关文章推荐

VB.NET多线程文件读写

现在,流行的下载工具都使用了多线程的方式,这样比单线程下载快了很多。   不过那些通常都不是用VB.NET写的,网上可以找到的这方面的资料也比较少。自己琢磨了几天,同时也借助于网友的帮助,解决了这...
  • robake
  • robake
  • 2012年02月29日 10:06
  • 636

存储图片到access数据库中

开发环境 VS2010+Access 在access数据库中新建数据库 并新建一张表 建两个字段 IMAGENAME,IMANGEBINARY 新建工程->winform程序 在窗体上 拖拽一个...

VB.net编程实现Wince下的图片按钮自定义控件

Imports System.Reflection Imports System.Drawing.Imaging Public Class PictureButtonToolbar     In...
  • angxiao
  • angxiao
  • 2011年12月14日 11:26
  • 847

VB.NET两种方法使PictureBox图片框可透明

在很多的UI设计上,透明处理作为一个又炫又实用的方法受到很多人的喜爱,就像曾经VB6.0版本的图片框不支持Alpha通道直接导致不支持透明效果让很多地方不得不用底色相同来模仿透明效果,实在是让人头疼,...

VB.NET两种方法使PictureBox图片框可透明之二

上一章说了用Bitmap.LockBits来做图片框透明(图片透明),从运行效果上看效率一般般,差强人意,不过勉强可以使用,这一章来写一个高大上的,效率杠杠的   需要用到的东西有色彩矩阵,没错就...

vb.net 教程 3-4 窗体编程 公共控件6 PictureBox & ProgressBar

11、PictureBox 重要属性: SizeMode :设置图片在图片框中显示方式:  AutoSize:自动大小,图片框随包含的图片大小而改变。  CenterImage:图片框大小不变,包...

VB.net PictureBox滚轮局部放大图片

  • 2016年09月27日 09:07
  • 13.58MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net中实现picturebox中图片拖动和label控件数组结合,实现label和图片同步
举报原因:
原因补充:

(最多只允许输入30个字)