当我们开始做机房的时候,首先接触到的就应该是窗体最小化功能了。这个功能非常人性化,方便快捷,为我们提供了方便。接下来让我们用主窗体(frmMain)和子窗体(frmRegister)看看如何实现这一小功能。@H_403_19@
@H_403_19@
1.引用API函数,把子窗体和MDI窗体联系在一起@H_403_19@
PublicDeclare Function SetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As Long@H_403_19@
@H_403_19@
Private Sub MenuRegister_Click()@H_403_19@
SetParent frmRegister.hWnd,frmMain.hWnd@H_403_19@
frmRegister.Show@H_403_19@
EndSub@H_403_19@
@H_403_19@
PrivateSub Form_Deactivate()@H_403_19@
'当此窗体不是活动窗体时,窗体最小化@H_403_19@
If Me.WindowState <> 1 Then@H_403_19@
Me.WindowState = 1’(0-正常,1-最小化,2-最大化)@H_403_19@
End If@H_403_19@
EndSub@H_403_19@
@H_403_19@
@H_403_19@
2、MSHFlexGrid控件选中整行@H_403_19@
我们在操作过程中,当我们选中一个单元格时选中整行,不仅更加美观,而且便于进行操作。要实现这个功能只几行代码就可以解决了@H_403_19@
'选中一整行
MSHFlexGrid.SelectionMode = flexSelectionByRow
MSHFlexGrid.FocusRect = flexFocusNone
MSHFlexGrid.HighLight = flexHighlightWithFocus@H_403_19@
@H_403_19@