拖动图像代码（ps拖动图像）

今天给各位分享拖动图像代码的知识，其中也会对ps拖动图像进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、FLASH中拖动、放大图片代码
• 2、VB左右移动图像代码
• 3、请帮我写一个VB中用Move方法上下左右移动图片的代码
• 4、flash拖动图片 代码
• 5、求c# winform 跨容器图片拖拽代码
• 6、ppt如何拖动图片

FLASH中拖动、放大图片代码

第一、导入一张大图片到库中。

第二、新建一影片剪辑，将库中的图片拖入，属性中x与y坐标都设为0（这个要注意），然后按Ctrl+B将图片打散。再

新建个影片剪辑，将刚才的影片拖入进来，居中对齐。

第三、返回主场景，将第二个影片剪辑拖入场景中，实例名为ph_mc ，新建一图层，在第一帧将以下代码复制进去：

var time:Number = 1;

var n:Number = 0;

//按下鼠标拖动

ph_mc.onPress = function() {

n += 1;

this.startDrag(false, -860, -1407, -274, -200);

//括号中的四个数字分别定位图片的“左”、“顶”、“右”、“底”，根据你场景大小调整。

};

//松开鼠标停止拖动

ph_mc.onRelease = function() {

stopDrag();

};

//end the function()

onEnterFrame = function () {

if (time == 0) {

time = 1;

}

if (n2) {

n = 0;

}

if (n == 2) {

//每双击一次放大10%

ph_mc._xscale += 10;

ph_mc._yscale += 10;

}

};

//end the function()

function EndTime() {

if (time0) {

time -= 1;

}

if (time == 0) {

n = 0;

}

if (time == 1) {

n = 0;

}

}

setInterval(EndTime, 500);

//此处的500是两次按下鼠标的时间间隔，单位（毫秒），就是两次按下鼠标间隔在500毫秒内就视为双击，否则就视为

单击，可以调节双击的速度。

现在就只说三个按钮吧。

在主场景中新建三个按钮，实例名分别为 btn_big 、btn_small 、btn_rt

在主场景的第一帧追加一下代码：

var sw = ph_mc._width;

var sh = ph_mc._height;

//每次放大10%

btn_big.onRelease = function() {

ph_mc._xscale += 10;

ph_mc._yscale += 10;

};

//每次缩小10%

btn_small.onRelease = function() {

ph_mc._xscale -= 10;

ph_mc._yscale -= 10;

};

//复位按钮

btn_rt.onRelease = function() {

ph_mc._width = sw;

ph_mc._height = sh;

};

VB左右移动图像代码

将图像放在图像框内，更改图像框的left属性的值就行了。

Private Sub Command1_Click()

Image1.Left = Image1.Left + 200 '向右移动

End Sub

Private Sub Command2_Click()

Image1.Left = Image1.Left - 200 '向左移动

End Sub

请帮我写一个VB中用Move方法上下左右移动图片的代码

Private Sub Command1_Click()

Picture1.Move Picture1.Left + 100 '右移

End Sub

Private Sub Command2_Click()

Picture1.Move Picture1.Left - 100 '左移

End Sub

Private Sub Command3_Click()

Picture1.Move Picture1.Left, Picture1.Top + 100 '下移

End Sub

Private Sub Command4_Click()

Picture1.Move Picture1.Left, Picture1.Top - 100 '上移

End Sub

flash拖动图片 代码

默认是以元件中心点为中心，中心点不可以拖拽出舞台外。

你可以加参数设置拖动范围的坐标具体的，你看帮助吧，里面都有。

求c# winform 跨容器图片拖拽代码

第一种方法是真正的拖拽，直接初始化，窗体把panel1里的控件拖向printarea

        private void RPDT_Load(object sender, EventArgs e)

        {

            this.AllowDrop = true;

            printarea.AllowDrop = true;

            foreach(Control ctl in panel1.Controls)

            {

                ctl.MouseDown += (object senderr, MouseEventArgs ed) = {

                    //左键的话，标志位为true（表示拖拽开始）

                    if ((ed.Button == MouseButtons.Left))

                    {

                        typ = ctl.Text;

                        ctl.DoDragDrop(ctl, DragDropEffects.Copy | DragDropEffects.Move);

                        //形成拖拽效果，移动+拷贝的组合效果

                    }

                };

            }

            printarea.DragEnter += (object senderr, DragEventArgs ed) = {

                if ((ed.Data.GetDataPresent(typeof(Button))))

                {

                    ed.Effect = DragDropEffects.Copy;

                }

            };

            printarea.DragDrop += (object senderr, DragEventArgs ed) =

            {

                switch(typ)

                {

                    case "文本框":

                        //拖放完毕之后，自动生成新控件

                        Button btn = new Button();

                        btn.Size = wbtxt.Size;

                        btn.FlatStyle = FlatStyle.Flat;

                        btn.FlatAppearance.BorderSize = 0;

                        btn.Location = printarea.PointToClient(new Point(ed.X, ed.Y));

                        //用这个方法计算出客户端容器界面的X，Y坐标。否则直接使用X，Y是屏幕坐标

                        printarea.Controls.Add(btn);

                        btn.Text = "文本" + txtcount.ToString();

                        btn.Name = "btn" + txtcount.ToString();

                        txtcount = txtcount + 1;

                        fi.moveit(btn);

                        break;

                    case "位图":

                        //拖放完毕之后，自动生成新控件

                        PictureBox pix = new PictureBox();

                        pix.BorderStyle=BorderStyle.FixedSingle;

                        pix.Size = new Size(50,50);

                        pix.Image = pictureBox1.Image;

                        pix.SizeMode = PictureBoxSizeMode.StretchImage;

                        pix.Location = printarea.PointToClient(new Point(ed.X, ed.Y));

                        //用这个方法计算出客户端容器界面的X，Y坐标。否则直接使用X，Y是屏幕坐标

                        printarea.Controls.Add(pix);

                        pix.Name = "pix" + pixcount.ToString();

                        pixcount = pixcount + 1;

                        fi.moveit(pix);

                        break;

                }

            };

        }

另一种方法是简单点的，直接拖拽（注意，是WINDOWS拖拽，不是位移）

        #region

        [DllImport("user32.dll", EntryPoint = "ReleaseCapture")]

        public static extern void ReleaseCapture();

        [DllImport("user32.dll", EntryPoint = "SendMessage")]

        private static extern void windowsmove(int hwnd, int wMsg, int wParam, int lParam);

        //拖动

        public Control cg = null;

        private void move(object sender, MouseEventArgs e)

        {

            if (cg == null)

            {

                if (e.Button == MouseButtons.Left)

                {

                    ReleaseCapture();

                    windowsmove((int)((Control)sender).Handle, 0xA1, 2, 0);

                }

            }

            else

            {

                if (e.Button == MouseButtons.Left)

                {

                    ReleaseCapture();

                    windowsmove((int)cg.Handle, 0xA1, 2, 0);

                }

            }

        }

        public void movectl(Control ctl,Control ctlcg,Boolean bl)

        {

            if(bl==true)

            {

                cg = ctlcg;

                ctl.MouseDown += move;

            }

            else

            {

                cg = null;

                ctl.MouseDown -= move;

            }

        }

movectl函数就是拖拽函数，当bl==true生效,false失效

ppt如何拖动图片

在PowerPoint课件交互设计时，拖放操作原来大多都采用FLASH，其实在PPT中，结合控件工具中的图片控件和VBA功能，也能很好的实现，下面介绍一种在PPT中实现任意拖放图片效果的方法。

2007以前的PowerPoint版本中，可以在“控件工具箱”中找到相应的图片控件，在2013版本中，可以找到“开发工具”中控件区域的“图片控件”，

在工作区，拖动绘出要实现任意拖动的图像的显示区域，右键“属性表”，

在“Picture”属性中，选择要显示的图片，

双击该图片控件，进入VBA编辑界面，删除原有内部的代码，将以下代码复制进去，

Dim X1, Y1 As Integer '用来记录位置

Dim Down As Boolean '用来判断拖放状态

Dim X2, Y2 As Integer

Dim Down2 As Boolean

'——————————————————————————

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'按下并记录位置

If Not Down Then

X1 = X

Y1 = Y

Down = True

End If

End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'记算移动距离

If Down Then

Image1.Left = Image1.Left + X - X1

Image1.Top = Image1.Top + Y - Y1

X1 = X

Y1 = Y

End If

End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'改变移动状态并显示移动后的图片

Down = False

SlideShowWindows(1).View.First

End Sub

关闭VBA编辑窗口，即可播放PPT，测试拖动效果。

94阅读

搜索

任意拖动图片ppt

ppt中图片的任意拖拽

如何拖动ppt中图片位置

图片随意拖拽ppt教程

ppt拖动文本框复制

拖动照片的特效

拖动图像代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于ps拖动图像、拖动图像代码的信息别忘了在本站进行查找喔。