做一个窗体，一打开EXCEL就会问候

linn339q

0k!!!!!!!!!!!!!!!1

fy9318

学 习 学 习

jilijun

学习一下！！

zhyzhsh

根据版主的思路并借鉴论坛高手的代码改编了一下，用最简单的msgbox方式。

自动关闭MSGBOX.zip (8.42 KB, 下载次数: 307)

2009-3-19 12:34 上传

点击文件名下载附件

[ 本帖最后由 zhyzhsh 于 2009-3-19 12:52 编辑 ]

xianla

学习........

jygzcj

不错，学习了

oyxw722

不错,又学到了一点

sryks

谢谢了，先收藏起来，现在正在做一个部门的管理系统。

nzhyj

原帖由 zhyzhsh 于 2009-3-19 12:34 发表
根据版主的思路并借鉴论坛高手的代码改编了一下，用最简单的msgbox方式。

477688

你的方法好象不行,没MSGBOX显示,为什么?

justice61

原帖由 孤鸟 于 2009-3-9 20:44 发表
二楼的制作只有自己知道吧,怎么不加以说明,打开后是一幅画而已,然后就什么都没有

Option Explicit
Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Sub UserForm_Initialize()
    Dim IStyle As Long
    Dim Hwnd As Long
    If Val(Application.Version) < 9 Then
        Hwnd = FindWindow("ThunderXFrame", Me.Caption)
    Else
        Hwnd = FindWindow("ThunderDFrame", Me.Caption)
    End If
    IStyle = GetWindowLong(Hwnd, GWL_STYLE)
    IStyle = IStyle And Not WS_CAPTION
    SetWindowLong Hwnd, GWL_STYLE, IStyle
    DrawMenuBar Hwnd
    IStyle = GetWindowLong(Hwnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME
    SetWindowLong Hwnd, GWL_EXSTYLE, IStyle
    Application.OnTime Now + TimeValue("00:00:5"), "CloseForm"
End Sub
Private Sub UserForm_Click()
    Unload Me '单击窗体后关闭
End Sub