企业官网建设流程全解析

什么网站做一手房比较好,wordpress图片服务器配置,专业装修超市的装修公司,东莞网站制作建设在设计模式下#xff0c;各控件都可用鼠标随意拖放的方式来改变控件的大小与位置。Visual Basic的拖放功能使用户在程序运行时也具有这种能力。拖放是指运行时将控件拖到新的位置#xff0c;包括两个操作#xff1a;拖动和放下。拖动是按下鼠标键并移动控件#xff0c;而放…在设计模式下各控件都可用鼠标随意拖放的方式来改变控件的大小与位置。Visual Basic的拖放功能使用户在程序运行时也具有这种能力。拖放是指运行时将控件拖到新的位置包括两个操作拖动和放下。拖动是按下鼠标键并移动控件而放下是指释放鼠标键。拖放涉及被拖动的对象即源对象和将要放在其上的目标对象。拖放操作分为自动方式和手工方式这由源对象的DragMode属性值决定。DragMode属性值默认为0即手工方式这时可以用手工方式来确定拖放操作何时开始或结束属性值为1时为自动方式这时控件不能正常响应鼠标事件。另外通过DragIcon属性还可以设置拖动操作时显示的图标默认为将源对象的灰色轮廓作为拖动的图标也可设置为.ico图标文件。确定手工拖动操作的方法为Drag方法其格式为对象.Drag [动作]其中动作用于确定是启动、停止或取消手工拖动操作。0为取消手工拖动1为启动拖动2为停止拖动。启动手工拖动的代码通常放在源对象的MouseDown事件中例如可在窗体上添加一个命令按钮Command1然后在Command1_MouseDown事件过程输入Command1.Drag 1在Command1_MouseUp事件过程中输入Command1.Drag 2程序运行时只要用鼠标左键按住按钮Command1就能产生拖放效果。如果将按钮Command1的DragMode属性值设为1而不使用Drag方法同样具有拖放效果。不管是运用Drag方法或是设置DragMode属性值的方式按下鼠标左键虽然会产生拖放效果但每当松开鼠标左键控件仍然留在原位置上要想将控件拖放到别的位置则必须用DragDrop事件。DragDrop事件是当一个完整的拖放动作完成时触发(将一个控件拖动到一个对象上并释放鼠标按钮)或使用Drag方法并将其动作参数设置为2时触发。DragDrop事件可用来控制在拖动操作完成时将会发生的情况其语法格式为Private Sub 对象_DragDrop(Source As Control, X As Single, Y As Single)其中Source指正在被拖动的控件XY是鼠标在目标对象中的坐标值通常用目标坐标系统来表示。例如若将按钮Command1拖放到指定的位置可在Form_DragDrop事件过程中输入下列代码Source.Move X - Command1.Width / 2, Y - Command1.Height / 2拖放操作的另一重要事是DragOver事件它是当拖放操作正在进行时发生格式为Private Sub 对象_DragOver(Source As Control, X As Single, Y As Single, State As Integer)其中State参数表示控件的转变状态0为进入指拖动正在进入目标对象内1为离去指拖动正离开目标对象2为跨越指拖动正经过目标对象。DragOver事件可对鼠标在目标对象上进入、离开或停顿等进行监控通常用于确定在拖动开始后和控件放在目标上之前发生些什么。例如通过加亮目标(设置BackColor或ForceColor属性)监视源对象经过路径。【例8.6】 使用Drag方法将一个图形文件(.bmp.ico.wmf)的文件名拖到图片框中然后显示该图片。在窗体上添加一个驱动器列表框(Drive1)、一个目录列表框(Dir1)、一个文件列表框(File1)、一个图片框(Picture1)、两个标签其中Label2用于在拖动文件时显示文件被拖动的轨迹其Visible属性设为False。为了在文件列表框内只显示图形文件可将File1的Pattern属性设置为“*.bmp;*.wmf;*.ico”。编写Dir1Drive1的Change事件代码Private Sub Dir1_Change()File1.Path Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path Drive1.DriveEnd Sub在File1按下鼠标代码Private Sub File1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)Xd TextHeight(A)Label2.Move File1.Left, File1.Top Y - Xd / 2, File1.Width, XdLabel2.Drag 1End Sub当拖动进入Dir1Drive1控件及窗体时鼠标指针为禁止形状当拖动离开时鼠标指针为系统默认。Dir1Drive1和Form的DragOver事件代码可以完全相同Private Sub Dir1_DragOver(Source As Control, X As Single, _Y As Single, State As Integer)If State 0 Then Source.MousePointer 12If State 1 Then Source.MousePointer 0End Sub将拖动的图形装载到图片框的代码Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)Picture1.Picture LoadPicture(File1.Path \ File1.FileName)End Sub运行时将一个文件拖动到图片框当未释放鼠标时的界面如图8.21所示。图8.21 图片拖动