将一个窗口始终放在最前面VB源码程序 - vb源码程序 - 谷速源码
下载频道> 资源分类> 编程语言> VB源码> 将一个窗口始终放在最前面VB源码程序

标题：将一个窗口始终放在最前面VB源码程序
分享到：

所属分类: VB源码 资源类型： 文件大小: 2.97 KB 上传时间: 2016-01-20 23:22:58 下载次数: 6 资源积分：1分 提 供 者: vb源码代做 20160120112244421
内容：
将一个窗口始终放在最前面VB源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！
部分代码如下：
VERSION 5.00
Begin VB.Form OnTop 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "将一个窗口始终放在最前面"
   ClientHeight    =   2385
   ClientLeft      =   1710
   ClientTop       =   1890
   ClientWidth     =   4860
   Icon            =   "Stay On Top.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2385
   ScaleWidth      =   4860
   Begin VB.Menu mnuoptions 
      Caption         =   "项目"
      Begin VB.Menu mnustayontop 
         Caption         =   "&将本窗口始终放在最前面"
      End
      Begin VB.Menu mnuspace 
         Caption         =   "-"
      End
      Begin VB.Menu munexit 
         Caption         =   "&Exit"
      End
   End
End
Attribute VB_Name = "OnTop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen
 
End Sub
 
Private Sub mnustayontop_Click()
 
Dim rtn
 
If mnustayontop.Checked = False Then
   rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)
   mnustayontop.Checked = True
Else
   rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)
   mnustayontop.Checked = False
End If
 
End Sub
 
Private Sub munexit_Click()
 
Unload Me 'exit the program
 
End Sub
 
 

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

将一个窗口始终放在最前面VB源码程序/
将一个窗口始终放在最前面VB源码程序/General.bas
将一个窗口始终放在最前面VB源码程序/MSSCCPRJ.SCC
将一个窗口始终放在最前面VB源码程序/Stay On Top.Frm
将一个窗口始终放在最前面VB源码程序/Stay On Top.Vbp
将一个窗口始终放在最前面VB源码程序/Stay On Top.frx
将一个窗口始终放在最前面VB源码程序/Stay On Top.vbw

关键词： 源码 程序

相关推荐

编程语言下载排行

Top_arrow
回到顶部

友情链接

matlab源码 网站源码 编程语言 网络编程 手机通讯编程 KUNAG 官网 KUNAG 电商 更多
联系方式| 版权声明| 招聘信息| 广告服务| 银行汇款| 法律顾问| 兼职技术| 付款方式| 关于我们|
网站客服网站客服 程序员兼职招聘 程序员兼职招聘
沪ICP备19040327号-3
公安备案号：沪公网安备 31011802003874号
库纳格流体控制系统（上海）有限公司 版权所有
Copyright © 1999-2014, GUSUCODE.COM, All Rights Reserved