本文主要是介绍机房收费系统问题集(2)——移动登陆界面+show出子窗体,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
安装上机房收费系统样本,连接上数据库,在运行的时候,我很是佩服机房收费系统的高大上
在我亲自敲的时候遇到了下面的问题:
(1)登陆界面不能用鼠标移动
在机房收费系统的样本中,登陆界面是可以移动,而我敲出来的机房收费系统登陆界面是死的,不能任由鼠标移动,很是不便,于是在登陆界面的代码中添加了 form 的 mousedown 事件
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Dim a As Single
Dim b As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = 0b = 0
If Button = 1 Thena = Xb = Y
End If</span></strong>
另外,在网上还找到了一段很奇怪的代码,分享给大家
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenCall ReleaseCaptureCall SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)End If
End Sub</span></strong>
这两段代码我试过了都可以使登陆窗体任由鼠标移动而移动
(2)在MDI窗体中添加Picture控件后,子窗体show不出来。
查阅博客,明白了原来是picture控件挡在了子窗体的前面,致使它没有抛头露面,于是乎引用了API函数:
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
在主窗体的“学生查看余额”的click事件中添加下面的代码
Private Sub xschakanyue_Click()SetParent frmxschakanyue.hWnd, Picture1.hWndfrmxschakanyue.Show
End Sub
结果子窗体还是没有大大方方的出来,只是“一线天”,然后用鼠标拉伸才冒出来
原来这里面是子窗体的borderstyle在作祟
borderstyle是指边框类型,这属性用来确定窗体边框的类型,有
0-none
1-fixed Single
2-Sizable
3-fixed dialog
4-fixed toolwindow
5-sizable toolwindow
这六种边框类型,其中2-Sizable是VB默认的设置。
具体的borderstyle属性的介绍看 VB基础边框类型使用详解
我的子窗体就是默认的 ,sizable有可调节大小的意思,picture挡在了子窗体的前面,子窗体要想出来需要自己调节大小,结果就有了“一线天”的结果。
将子窗体的属性改为除了2-Sizable,5-sizable toolwindow带sizable的值就OK了。
良好的开端等于成功的一半,弄懂每一个值得思考的问题,你就会越来越棒的,小伙伴们,好好加油吧!!!
这篇关于机房收费系统问题集(2)——移动登陆界面+show出子窗体的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!