可拖动的无标题栏窗体，并且可以通过拉拽改变窗体大小。

注意：要设置form的controlbox属性为false， 特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As In

注意：要设置form的controlbox属性为false， 特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As In

怎样可以不要Form的标题栏和边界但可以保留改变Form的大小的功能： uses Windows, Messages, SysUtils, Classes, Graphics, Contr

Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As

窗体标题栏外的拖动操作 (作者:张均洪) 2004-9-3 我们知道对窗体的拖动只需要点住标题栏,拖动鼠标就可以了.但有些时候我们想在窗体的标题栏外的区域实行拖动窗体的操作.这时就要需要我们自已

Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As

窗体标题栏外的拖动操作 (作者:张均洪) 2004-9-3 我们知道对窗体的拖动只需要点住标题栏,拖动鼠标就可以了.但有些时候我们想在窗体的标题栏外的区域实行拖动窗体的操作.这时就要需要

用过SQL Server视图设计或Access查询设计的都见过这样的控件，控件外形象一个窗体，有边框、标题栏、图标、关闭按钮，可拖动、改变大小等等 我前一段时间在做一个自定义查询，想把界

Private r As RectangleF Private m_image As Image = Image.FromFile('g:\picture.bmp') Priv

Private r As RectangleF Private m_image As Image = Image.FromFile("g:\picture.bmp")