VB告诉进

Question

求教VB代码意思。代码如下：
Private Sub DataReport_Initialize()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '使窗体置前
End Sub

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
DataEnvironment1.rsComd_Pkc.Close
frm_main.Enabled = True
End Sub

Private Sub DataReport_Initialize()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '使窗体置前
End Sub

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
DataEnvironment1.rsComd_Pout.Close
frm_main.Enabled = True
End Sub
能讲详细点嘛。最好把每段代码都解释下意思。谢谢各位大侠了。

Answer 1

Private Sub DataReport_Initialize()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '使窗体置前
End Sub
这个是数据报表初始化时的事件
里面的代码应该是将此报表窗体之前
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
DataEnvironment1.rsComd_Pkc.Close
frm_main.Enabled = True
End Sub
这个是数据报表关闭时的事件
里面的代码是将数据环境控件内的记录集关闭
然后将主窗体置为可用状态。

Answer 2

R