机房收费-小功能的实现

1、子窗体自动最小化

当我们开始做机房的时候，首先接触到的就应该是窗体最小化功能了。这个功能非常人性化，方便快捷，为我们提供了方便。接下来让我们用主窗体（frmMain）和子窗体（frmRegister）看看如何实现这一小功能。

1.引用API函数，把子窗体和MDI窗体联系在一起

PublicDeclare Function SetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As Long

2.在主窗体单击注册时间中，调用函数

Private Sub MenuRegister_Click()

SetParent frmRegister.hWnd,frmMain.hWnd

frmRegister.Show

EndSub

3.在子窗体中设置效果

PrivateSub Form_Deactivate()

'当此窗体不是活动窗体时，窗体最小化

If Me.WindowState <> 1 Then

Me.WindowState = 1’（0-正常，1-最小化，2-最大化）

End If

EndSub

经过简单的三步，效果就华丽丽的出现了

2、MSHFlexGrid控件选中整行

我们在操作过程中，当我们选中一个单元格时选中整行，不仅更加美观，而且便于进行操作。要实现这个功能只几行代码就可以解决了

'选中一整行
MSHFlexGrid.SelectionMode = flexSelectionByRow
MSHFlexGrid.FocusRect = flexFocusNone
MSHFlexGrid.HighLight = flexHighlightWithFocus

效果图如下：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!