窗体自适应的代码

Question

让窗体在某一鼠标形状下自适应的代码
Private Sub Form_Resize()
If form1.MousePointer = 8 Then Call auto_size 
End Sub本来是直接调用的,但是我想在当form1.MousePointer = 8这个条件下调用...
可惜,VB不能这么做,请问前辈们可以实现吗?

Answer 1

没用的喔，你是想当鼠标移到窗体右下角的边缘时，鼠标不是自动变成那个图形，但是这样的情况MousePointer属性是不会改的，其实你可以直接把那条件语句删去，一样的只要窗体的大小改变，resize事件就会发生。