WindowProc = HTCAPTION
Exit Function
Else
'' 其他的我们不管,还是规规矩矩的该怎么样就怎么样
WindowProc = HTCLIENT
Exit Function
End If
End Select
'' 这里又是关键,因为其他我们不关心的消息我们自己不处理,所以必须由 VB 的默认处理函数处理
'' lpPrevWndProc 其实就是一个函数指针,它指向 VB 默认窗口函数
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function
'' ===================================
'' 这是窗体的代码
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 0 ''None
ClientHeight = 3195
ClientLeft = 0
ClientTop = 0
ClientWidth = 4680
LinkTopic = "Form1"
MaxButton = 0 ''False
MinButton = 0 ''False
ScaleHeight = 3195
ScaleWidth = 4680
ShowInTaskbar = 0 ''False
StartUpPosition = 3 ''窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 2160
TabIndex = 0
Top = 720
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me '' 按下这个按钮就退出了
End Sub
Private Sub Form_Load()
&nbs