精华内容
下载资源
问答
  • vb 关闭窗口

    2011-12-09 14:33:00
    引用: ... Private Declare Function FindWindow Lib ... a = FindWindow(vbNullString, "Internet Explorer 无法显示该网页 - Windows Internet Explorer")'里面是窗口的标题 PostMessage a, wm_close, 0, 0 End Sub

    引用:http://tieba.baidu.com/f?kz=622302614

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) 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 closeWin As New Class1
    Private Const wm_close = &H10
    Private b As Integer


    Private Sub Command1_Click()
    'a = FindWindow(vbNullString, "我的电脑")
    a = FindWindow(vbNullString, "Internet Explorer 无法显示该网页 - Windows Internet Explorer")'里面是窗口的标题
    PostMessage a, wm_close, 0, 0

    End Sub

    展开全文
  • 16种VB关闭窗口的特效演示及代码.rar16种VB关闭窗口的特效演示及代码.rar16种VB关闭窗口的特效演示及代码.rar16种VB关闭窗口的特效演示及代码.rar
  • VB 关闭窗口,关闭当前窗体

    万次阅读 2015-03-03 19:01:39
    刚学习VB,想用一个button 关闭当前Form(窗体) 1,网上搜索到 End 可以关闭,试了一下结果是关闭所有窗体。 2,Unload Me 关闭当前窗口

    刚学习VB,想用一个button 关闭当前Form(窗体)

    1,网上搜索到 End 可以关闭,试了一下结果是关闭所有窗体。

    2,Unload Me 关闭当前窗口。



    展开全文
  • VB关闭窗口时出错

    2017-08-25 11:12:08
    关闭窗口时偶尔会出错(无论是点击窗口右上角的关闭按钮还是使用Unload命令关闭),无论关闭哪个窗口都可能出错,Windows弹出窗口提示应用程序已停止工作,通过Windows的事件日志,出错的异常代码:0xc0000005,...
  • VB16种关闭窗口特效

    2009-08-07 17:46:11
    16种VB关闭窗口特效,动画关闭效果.不同的关闭效果参数自定义。
  • VB 16种关闭窗口

    2018-05-30 14:34:31
    VB 16种关闭窗口的方法,可以满足大家的需求,请使用。
  • vb关闭含有关键字的窗口,可以实现关键字的过滤
  • 可以强行关闭 含有标题含有指定文字的窗口!很强大!!!!你懂得!
  • VB关闭窗口前提示

    热门讨论 2008-07-16 16:32:25
    像迅雷一样,很多程序在关闭... 那么我们如何让我们的VB程序在关闭窗口前提示用户呢?本资源包含的源程序代码将为您解答。 本资源压缩包内包含实现此功能的所有代码(不含控件),简单修改即可适应您的要求。
  • 可以去掉vb里的关闭窗口和最大最小化窗口,使他们显示但是是灰体
  • VB 关闭其它窗口

    2008-10-23 17:14:00
    Option ExplicitPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim f1 As FormSelect Case Button.IndexCase 1 Set f1 = New Form1 Form1.Show unloadothe
    1. Option Explicit
    2. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    3. Dim f1 As Form
    4. Select Case Button.Index
    5. Case 1
    6.     Set f1 = New Form1
    7. '    Form1.Show
    8. '    unloadother Form1.hWnd
    9. Case 2
    10.     Set f1 = New Form2
    11. '    Form2.Show
    12. '    unloadother Form2.hWnd
    13. End Select
    14. f1.Show
    15. unloadother f1.hWnd
    16. End Sub
    17. Private Sub unloadother(ht As Long)
    18. Dim f As Form
    19. For Each f In Forms
    20.     If f.hWnd <> ht And f.hWnd <> MDIForm1.hWnd Then Unload f
    21. Next
    22. End Sub
    展开全文
  • VB屏蔽窗口上的关闭、最大化、最小化按钮,让VB窗体中的关闭、最大化、最小化按钮不可用
  • 关于vb.net关闭窗口

    2013-12-17 14:58:53
    我在vb.net里面用splashscreen建立了一个开始界面,当主程序载入好之后这个界面隐藏,然后在我关闭主程序时,我发现这个界面没有自动关闭,还需要我手动去结束一下调试才行 我在程序里开始用的是splashscreen里写...
  • 关闭窗口前提示VB6.0源代码.rar
  • VB去掉关闭窗口

    千次阅读 2007-05-01 10:39:00
    API函数声明Private Declare Function GetSystemMenu()Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _ ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu()...
     
    
    'API函数声明
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
        
    ByVal bRevert As LongAs Long
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
        
    ByVal nPosition As LongByVal wFlags As LongAs Long
    Private Const MF_REMOVE = &H1000&
    Private Const SC_COLSE = &HF060
    Private Const SC_MAXIMIZE = &HF030
    Private Const SC_MINIMIZE = &HF020
    Private Sub Form_Load()
      RemoveMenu GetSystemMenu(
    Me.hWnd, 0), SC_COLSE, MF_REMOVE
      RemoveMenu GetSystemMenu(
    Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE
      RemoveMenu GetSystemMenu(
    Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE
    End Sub
    展开全文
  • vb.net 关闭窗口彻底退出

    千次阅读 2014-10-09 01:53:02
    '退出操作确认   Dim close As DialogResult... close = MessageBox.Show("确认要关闭软件吗? ", "警告提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)  If close = Windows.Forms.DialogResult.Yes
  • VB 关闭已知标题窗口

    千次阅读 2008-05-03 13:25:00
    先通过FindWindow得到窗口的句柄,然后对窗口发送关闭消息。Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)...
  • VB自动关闭网页广告窗口,非常简单的一个拦截广告的助手。
  • 如题,在VB中点击右上角的红色关闭按钮触发的事件是什么?我在VS2017属性栏的事件里面找不到类似Form_unload的事件。 先[img=https://img-bbs.csdn.net/upload/201704/02/1491136645_490879.png][/img][img=...
  • 16种关闭窗口特效

    2018-12-10 14:44:28
    十六种VB关闭窗口特效,源码发布,下载后解压可直接运行
  • VB 关闭指定标题窗口

    千次阅读 2008-12-12 13:06:00
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal ... MsgBox "关闭窗口失败!"  Else  MsgBox "成功关闭窗口!"  End If End If End Sub
  • VB 枚举窗口关闭程序窗口的代码

    千次阅读 2008-03-28 09:53:00
    Attribute VB_Name = "Enum_Window"Option ExplicitOption Base 0Powered by barenxPublic Declare Function FindWindow()Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ...
  • VB.NET实现窗口关闭渐隐的方法,效果挺不错的
  • 如题,做了一个类库程序,在DLL中添加了两个窗体,一个主(父),自个子。属于外挂在CAD中运行中,子窗体通过父调用显示,在运行完子窗体后,我想将主窗体隐藏。或者退出。因为我想打开一次只运行一次比较好,下次...
  • 关闭窗口时弹出提示,VB的源代码,不要搞错噢,本代码不是网页特效,是VB程序代码,在退出程序时弹出一个提示询问是否真要关闭窗口,让用户确认,仅供参考。
  • Delphi:主窗口关闭,进程关闭VB:主窗口关闭,进程不一定关闭,如果还有其他窗口打开了没有关闭的话,比如说只是隐藏了,进程就不会关闭
  • VB一次关闭窗口

    2008-06-15 10:38:00
    Private Sub Form_Unload(Cancel As Integer) 卸载事件(这样在关闭程序时释放内存空间)Dim n As IntegerFor n = 0 To Forms.conunt - 1 通过循环找到所有的窗体。forms.count表示窗体的总数。 Unload Forms(n) 卸载...
  • 改成通过过指定的窗口类名,来关闭窗口。 '窗体源码: '窗体Form1上分别放2个列表框List1,List2和1个计时器Timer1 Option Explicit Private Sub Form_Load() Form1.Caption = "游戏监控程序" ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 395
精华内容 158
关键字:

vb关闭窗口