开发手记（七）——实现图标首窗体的启动滞留

新客网 XKER.COM 2005-09-16 来源： 收藏本文

大部分软件的主窗体启动之前，都有一个图标首窗体的启动，并且图标窗体与主窗体共存一段时间，您可以打开EXCEL亲身感受一下。

Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1        '窗口置顶

Const SWP_SHOWWINDOW = &H40    ‘显示窗体

Const SWP_NOSIZE = &H1         '不允许改变大小

Private Sub Form_Load()

    '设置窗体永远置顶

    SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Top, Me.Left, Me.Width, Me.Height, SWP_NOSIZE Or SWP_SHOWWINDOW

End Sub

'Time1 and Time2 配合达到延时效果

Private Sub Timer1_Timer()

    Timer2.Enabled = True

    MDIForm1.Show

End Sub

Private Sub Timer2_Timer()

    Unload Me

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Unload Me

    MDIForm1.Show

End Sub

Private Sub Image1_Click()

    Unload Me

    MDIForm1.Show

End Sub

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决