Question

VB中如何使没有标题的窗口移动,并在可以移动的位置显示十字型.

Answer 1

用move啊
当鼠标按下时，用move跟着鼠标移动

追问

如何在可以移动的位置使鼠标成十字型，程序代码该怎样写？

追答

语法

object.MousePointer [= value]

MousePointer 属性语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
value 整数，按照设置值中的描述指定被显示的鼠标指针类型。

设置值

value 的设置值为：

常数 值 描述
vbDefault 0 （缺省值）形状由对象决定。
VbArrow 1 箭头。
VbCrosshair 2 十字线（crosshair 指针）。
VbIbeam 3 I 型
VbIconPointer 4 图标（矩形内的小矩形）。
VbSizePointer 5 尺寸线（指向东、南、西和北四方向的箭头）。
VbSizeNESW 6 右上-左下尺寸线（指向东北和西南方向的双箭头）。
VbSizeNS 7 垂-直尺寸线（指向南和北的双箭头）。
VbSizeNWSE 8 左上-右下尺寸线（指向东南和西北方向的双箭头）。
VbSizeWE 9 水-平尺寸线（指向东和西两个方向的双箭头）。
VbUpArrow 10 向上的箭头。
VbHourglass 11 沙漏（表示等待状态）。
VbNoDrop 12 不允许放下。
VbArrowHourglass 13 箭头和沙漏。
VbArrowQuestion 14 箭头和问号。
VbSizeAll 15 四向尺寸线。
VbCustom 99 通过 MouseIcon 属性所指定的自定义图标。

说明

在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。

注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。

MousePointer 属性示例
本例当在屏幕上画圆时将鼠标指针改变为沙漏标，然后在过程结束时将沙漏标恢复为鼠标指针。要试用此例，先将下面的代码粘贴到窗体的声明部分。按 F5 键 以运行该程序，然后单击窗体。

Private Sub Form_Click ()
Dim I ' 声明变量。
' 将鼠标指针改变为沙漏标。
Screen.MousePointer = vbHourglass
' 设置随机的颜色和在窗体上画圆。
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' 返回鼠标指针到正常状态。
Screen.MousePointer = vbDefault
End Sub