精华内容
下载资源
问答
  • VB源码窗体隐藏

    2012-10-25 11:30:36
    VB编写实现一个有意思小程序,窗体隐藏器:  1. 可以隐藏指定句柄窗口,以前是为了上班时间玩游戏用^_^  2. 找窗口按钮,用来查找标题为下拉列表框内容窗口句柄  3. 如果要查找窗口标题太长,...
  • 窗体的功能类似QQ的主窗口那样,当用鼠标拖动至屏幕顶部时,会自动隐藏在屏幕顶部,为了让大家明白原理,程序中还设置了其它的选项用以比较,比如允许和禁止隐藏到右边、允许和禁止隐藏到屏幕顶部等。  这是由一个...
  •  窗体属性修改专家是一款使用方便、小巧、实用的窗体控件测试工具,你可以用鼠标拖动(小精灵图标)到所有程序窗口上,本软件就能自动获得该窗体控件属性及内容,你可以随时对它们进行修改、隐藏、关闭、禁用、...
  • 托盘,亦即程序最小化后程序图标隐藏到... 相对而言采用一种非常简单易行的方法:控件法,才是最适合最方便的。下面要使用已被微软封装好的控件:csystray1(名称可自定)。  说到控件,大家可能要皱眉头了:去哪找呀

    托盘,亦即程序最小化后程序图标隐藏到屏幕右下角的任务栏里。这种最小化方法比普通的最小化节约空间,因此备受欢迎,很多软件都具有这样的功能。在VB中,可用API函数来实现托盘功能,但比较复杂,不太好操作。
          相对而言采用一种非常简单易行的方法:控件法,才是最适合最方便的。下面要使用已被微软封装好的控件:csystray1(名称可自定)
          说到控件,大家可能要皱眉头了:去哪找呀?放心!这个控件就躺在你的VB安装盘里(目录为:COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY)!不过,得处理一下:请在Tool文件夹里查找一个名叫Systray的目录,将它拷贝到硬盘,用VB打开该目录下的工程,必要的话可作些改进(如更换图标、添加功能等),然后编译成ocx控件,可以随意命名。为方便使用起见,最好编译到Windows\System目录下。好了,现在我们就可以在我们的程序中使用此控件来轻松实现托盘功能了。vb中添加控件的方法就不用我说了吧?

    控件的属性和事件浅析:
         该控件的InTray属性是用来设置是否显示在托盘中,True为显示在托盘,False为不显示;
         该控件的TrayIcon属性是在托盘中显示的图标式样;
         该控件的TrayTip属性是鼠标移动到该控件上面时,显示的提示文字;
         该控件的重要事件是几个我们常用的鼠标事件:按下、放开、移动、双击,编程时就是利用这些事件达到在任务栏中控制程序的目的。


    源代码如下:

    '点击系统最小化按钮,程序显示到系统托盘
    Private Sub Form_Resize()
    If Me.WindowState = 1 Then '如程序为最小化则——
    cSysTray1.InTray = True '隐藏到任务栏
    Me.Visible = False '让程序界面不可见
    End If
    End Sub


    '点击托盘图标后,让程序窗体显示出来
    Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long)
    Me.WindowState = 0 '程序回复到Normal状态
    Me.Visible = True '从任务栏中清除图标
    cSysTray1.InTray = False '令程序界面可见
    Me.setfocus
    End Sub

     

    '点击系统关闭按钮,程序显示到系统托盘
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        Cancel = 1
        cSysTray1.InTray = True '隐藏到任务栏
        Me.Visible = False '让程序界面不可见
    End Sub

    展开全文
  • 我在网上找了很多资料,实现...首先在窗体中添加一个DriveListBox,当然你可以将它设置为隐藏(invisible)。下面让我们来看一看它属性。 接下来我们只需要设置一个Timer,每隔一段时间检查一次Drive1.ListCoun...

    我在网上找了很多资料,实现检测U盘插拔的方法基本上都是监测WM_DEVICECHANGE。这种方法不但臃肿,而且效率不高,很容易出错。于是我摸索出了一种新的方法,以下就是实现过程。

    DriveListBox
    首先在窗体中添加一个DriveListBox,当然你可以将它设置为隐藏(invisible)。下面让我们来看一看它的属性。
    属性
    接下来我们只需要设置一个Timer,每隔一段时间先使用Drive1.Refresh刷新盘符列表,然后再用Drive1.ListCount,就可以知道当前有多少设备,进而推算出U盘所在盘符。
    例子

    展开全文
  • VB.net, Winforms开发 form上有一个mediaplayer控件,在上面设置一个隐藏的(visible=false)按钮 如何实现鼠标进入按钮附近区域时触发button1.visible=true事件 因为按钮是在mediaplayer之上,所以之前...
  • 这是个很有意思问题,通常思路是先保存数据、再动态添加数据,这里给出是另外一种方法,即先将该列列宽设为0,在想办法让用户无法改变该列列宽,原理我不多说了,看看MSDN,那上面都有^_^。还是给出代码吧...

          这是个很有意思的问题,通常的思路是先保存数据、再动态添加数据,这里给出的是另外一种方法,即先将该列的列宽设为0,在想办法让用户无法改变该列的列宽,原理我不多说了,看看MSDN,那上面都有^_^。还是给出代码吧:
    一个模块,一个窗体:

    模块代码:
    Option Explicit
    Public Type POINTAPI
      X As Long
      Y As Long
    End Type
    Public Const GWL_WNDPROC  As Long = -4
    Public Const GWL_STYLE    As Long = -16
    Public Const WM_NOTIFY    As Long = &H4E&
    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
    Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Public Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Any, lParam As Any) As Long
    Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
    Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long


    Private Const LVM_FIRST = &H1000
    Private Const LVM_GETHEADER = (LVM_FIRST + 31)

    Private Type NMHDR
      hWndFrom As Long
      idfrom   As Long
      code     As Long
    End Type

    Private Type HD_HITTESTINFO
      pt    As POINTAPI
      flags As Long
      iItem As Long
    End Type

    Private Const HHT_ONHEADER = &H2
    Private Const HHT_ONDIVIDER = &H4

    Private Const HDM_HITTEST As Long = &H1206

    Private Const HDN_FIRST            As Long = -300&
    Private Const HDN_ITEMCLICK        As Long = (HDN_FIRST - 2)
    Private Const HDN_DIVIDERDBLCLICK  As Long = (HDN_FIRST - 5)
    Private Const HDN_BEGINTRACK       As Long = (HDN_FIRST - 6)
    Private Const HDN_ENDTRACK         As Long = (HDN_FIRST - 7)
    Private Const HDN_TRACK            As Long = (HDN_FIRST - 8)
    Private Const HDN_GETDISPINFO      As Long = (HDN_FIRST - 9)
    Private Const HDN_BEGINDRAG        As Long = (HDN_FIRST - 10)
    Private Const HDN_ENDDRAG          As Long = (HDN_FIRST - 11)
    Private Const HDN_ITEMCHANGING     As Long = (HDN_FIRST - 0)
    Private Const HDN_ITEMCHANGED      As Long = (HDN_FIRST - 1)
    Private Const HDN_ITEMDBLCLICK     As Long = (HDN_FIRST - 3)
    Private Const HDN_NM_RCLICK        As Long = -5

    ' 列标头事件
    Public Enum lvHeaderActions
      lvHeaderActionClick = 1
      lvHeaderActionRightClick = 2
      lvHeaderActionDividerDoubleClick = 3
      lvHeaderActionResizeBegin = 4
      lvHeaderActionResizeEnd = 5
      lvHeaderActionChanging = 6
      lvHeaderActionChanged = 7
      lvHeaderActionDragBegin = 8
      lvHeaderActionDragEnd = 9
    End Enum

    Private RegisteredListViewControls As New Collection

    Public Sub RegisterListView(ByVal ListViewControl As ListView)
      
      Call SetProp(ListViewControl.hWnd, "OrigWindowProc", GetWindowLong(ListViewControl.hWnd, GWL_WNDPROC))
     
      Call SetWindowLong(ListViewControl.hWnd, GWL_WNDPROC, AddressOf HandleListViewHeaderMsgs)
     
      Call RegisteredListViewControls.Add(ListViewControl, CStr(ListViewControl.hWnd))
      
    End Sub

    Public Sub UnregisterListView(ByVal ListViewControl As ListView)
      
      Dim OrigWindowProc As Long
     
      OrigWindowProc = GetProp(ListViewControl.hWnd, "OrigWindowProc")
     
      If (OrigWindowProc <> 0) Then
        Call SetWindowLong(ListViewControl.hWnd, GWL_WNDPROC, OrigWindowProc)
      End If
      
      Call RegisteredListViewControls.Remove(CStr(ListViewControl.hWnd))
      
    End Sub

    Public Function HandleListViewHeaderMsgs(ByVal ListViewhWnd As Long, ByVal msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
      
      Const EVENT_SUFFIX As String = "_HeaderEvent"
      
      Dim ListViewControl As ListView
      Dim NmHdrMsg        As NMHDR
      Dim PointStruct     As POINTAPI
      Dim HitTestInfo     As HD_HITTESTINFO
      Dim HeaderhWnd      As Long
      Dim HeaderAction    As lvHeaderActions
      Dim CancelMsg       As Boolean
     
      If msg = WM_NOTIFY Then

        HandleListViewHeaderMsgs = CallWindowProc(GetProp(ListViewhWnd, "OrigWindowProc"), ListViewhWnd, msg, wp, lp)
     
        Call CopyMemory(NmHdrMsg, ByVal lp, Len(NmHdrMsg))
       
        HeaderhWnd = SendMessage(ListViewhWnd, LVM_GETHEADER, 0&, ByVal 0&)
       
        If (HeaderhWnd <> 0) Then

          Call GetCursorPos(PointStruct)
          Call ScreenToClient(HeaderhWnd, PointStruct)
         
          HitTestInfo.flags = HHT_ONHEADER Or HHT_ONDIVIDER
          HitTestInfo.pt = PointStruct
         
          Call SendMessage(HeaderhWnd, HDM_HITTEST, 0&, HitTestInfo)

          Select Case NmHdrMsg.code
            Case HDN_ITEMCLICK:       HeaderAction = lvHeaderActionClick
            Case HDN_NM_RCLICK:       HeaderAction = lvHeaderActionRightClick
            Case HDN_DIVIDERDBLCLICK: HeaderAction = lvHeaderActionDividerDoubleClick
            Case HDN_BEGINTRACK:      HeaderAction = lvHeaderActionResizeBegin
            Case HDN_ENDTRACK:        HeaderAction = lvHeaderActionResizeEnd
            Case HDN_ITEMCHANGING:    HeaderAction = lvHeaderActionChanging
            Case HDN_ITEMCHANGED:     HeaderAction = lvHeaderActionChanged
            Case HDN_BEGINDRAG:       HeaderAction = lvHeaderActionDragBegin
            Case HDN_ENDDRAG:         HeaderAction = lvHeaderActionDragEnd
          End Select
         
          If HeaderAction <> 0 Then
               
            On Error Resume Next
           
            Set ListViewControl = RegisteredListViewControls(CStr(ListViewhWnd))
           
            CancelMsg = CallByName(ListViewControl.Parent, ListViewControl.Name & EVENT_SUFFIX, VbCallType.VbMethod, HeaderAction, HitTestInfo.iItem + 1)
           
            On Error GoTo 0
            If CancelMsg Then
              HandleListViewHeaderMsgs = 1
              Exit Function
            End If
           
          End If
         
        End If
     
      End If
     
      HandleListViewHeaderMsgs = CallWindowProc(GetProp(ListViewhWnd, "OrigWindowProc"), ListViewhWnd, msg, wp, lp)
      
    End Function

    Public Sub ListViewHeaderEventDebugPrint(ByVal ListViewControl As ListView, ByVal Action As lvHeaderActions, ByVal Column As Long)

      Dim msg As String

      Select Case Action
        Case lvHeaderActionClick:               msg = "clicked"
        Case lvHeaderActionRightClick:          msg = "right-clicked"
        Case lvHeaderActionDividerDoubleClick:  msg = "divider dbl-clicked"
        Case lvHeaderActionResizeBegin:         msg = "resize begin"
        Case lvHeaderActionResizeEnd:           msg = "resize end"
        Case lvHeaderActionChanging:            msg = "changing"
        Case lvHeaderActionChanged:             msg = "changed"
        Case lvHeaderActionDragBegin:           msg = "drag begin"
        Case lvHeaderActionDragEnd:             msg = "drag end"
      End Select
       
      Debug.Print ListViewControl.Parent.Name & "." & ListViewControl.Name & ": " & msg & " (col=" & CStr(Column) & ")"

    End Sub

    窗体上一个listview,两个按钮:
    Option Explicit
    Dim HideFlag As Boolean, OldWidth As Single

    Private Sub Command1_Click()
        HideFlag = True
        OldWidth = ListView1.ColumnHeaders(2).Width
        ListView1.ColumnHeaders(2).Width = 0
    End Sub

    Private Sub Command2_Click()
        HideFlag = False
        ListView1.ColumnHeaders(2).Width = OldWidth
    End Sub

    Private Sub Form_Load()
      Command1.Caption = "隐藏第2列"
      Command2.Caption = "显示第2列"
      ListView1.View = lvwReport
      ListView1.ColumnHeaders.Add , , "第1列"
      ListView1.ColumnHeaders.Add , , "第2列"
      ListView1.ColumnHeaders.Add , , "第3列"
      With ListView1.ListItems.Add(, , "d")
        .ListSubItems.Add , , "d1"
        .ListSubItems.Add , , "d2"
      End With
      With ListView1.ListItems.Add(, , "e")
        .ListSubItems.Add , , "e1"
        .ListSubItems.Add , , "e2"
      End With
      With ListView1.ListItems.Add(, , "f")
        .ListSubItems.Add , , "f1"
        .ListSubItems.Add , , "f2"
      End With
       
      Call RegisterListView(ListView1)

    End Sub

    Private Sub Form_Unload(Cancel As Integer)

      Call UnregisterListView(ListView1)

    End Sub

    Public Function ListView1_HeaderEvent(ByVal Action As lvHeaderActions, ByVal Column As Long) As Boolean
      If Column = 2 And HideFlag = True Then
        ListView1_HeaderEvent = True
      End If
    End Function

     

    转载于:https://www.cnblogs.com/rainstormmaster/archive/2006/01/20/321050.html

    展开全文
  • VB.net实现窗口启动时自动隐藏

    千次阅读 2004-11-06 15:58:00
    我是一个.net初学者,在学习过程中总会遇到一些问题,希望在这里能与各位高手交流一下 前一段时间因工作需要开发一个程序,开发中要求程序启动时窗口要自动隐藏,于是想了若干方法包括在formload事件中加入代码...
        我是一个.net的初学者,在学习过程中总会遇到一些问题,希望在这里能与各位高手交流一下
        前一段时间因工作需要开发一个程序,开发中要求程序启动时窗口要自动隐藏,于是想了若干方法包括在form的load事件中加入代码,在form的new中设置visible......但均告失败,由于水平不高,也没有去分析原因。
    后来发现在窗体的paint事件中只要加入一行小小的代码,问题居然轻而易举的解决了
    me.visible=false
    呵呵
    展开全文
  • 目的: 用VBA做的窗体和音乐,图片资源能打包可执行文件吗?比如EXE ...1 暂时比较凑合的方法:让用户打开EXCEL马上显示窗体。 EXCEL的open事件 直接显示窗体,并且隐藏application Private ...
  • 无论是开发功能强大、性能可靠的商务软件,还是编写能处理实际问题的实用小程序,VB都是最快速、最简便的方法。 在学习可视化编程语言时,通常都是从编写最简单的程序开始的,它让初学者可以体验一下到底是如何使用...
  • 得到所有窗体的名字 关闭正在运行中的其它软件 得到所有进程名(包括隐藏进程) 根据PID得到进程路径 用VB枚举系统进程PID及路径 隐藏进程 XP系统下教你如何显示隐藏进程 一些玩木马的朋友肯定知道,灰鸽子在...
  • 主要原因是退出时程序资源没有完全释放,比如有些窗体隐藏了但没有Unload掉。一般使用以下2种方法可以解决。 一丶在退出程序前(一般为End语句有)加入以下清除资料代码: Dim myForm As Form For Each ...
  • VB程序设计及应用

    2012-11-26 14:07:12
    6.3.3 隐藏窗体 6.3.4 卸载窗体 6.3.5 建立多窗体 6.4 鼠标事件与键盘事件 6.4.1 鼠标事件 6.4.2 键盘事件 实训 习题 第 7章 常用控件使用 7.1 标签框与文本框 7.1.1 标签框 7.1.2 文本框 7.2 ...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    将它的形状编号为0和1,在后面方便调用,其他的方块造型同样的方法。 2.1.3俄罗斯方块的旋转 俄罗斯方块的旋转主要将方块的位置加以变换得到的,例如上述范例,长条型有两中样式,根据小方块的编号变动来实现整个...
  • VB6 系统托盘控件

    2018-05-06 22:03:01
    VB6.0将窗体最小化到系统托盘区 控件法,才是最适合最方便。使用已被微软封装好控件:csystray1(名称可自定)。 可直接使用 SysTray.ocx 控件。也可用VB打开工程,做必要话可作些改进(如更换图标、添加功能...
  • 在网上查了一个,主要原因是退出时资源没有完全释放,比如有些窗体隐藏了但没有Unload掉。一般使用以下2种方法可以解决。 在退出程序前(一般为End语句有)加入以下清除资料代码: Dim myForm As Form For Each ...
  • 在网上查了一个,主要原因是退出时资源没有完全释放,比如有些窗体隐藏了但没有Unload掉。一般使用以下2种方法可以解决。 在退出程序前(一般为End语句有)加入以下清除资料代码: Dim myForm As Form ...
  • 利用了API可读注册表中所有的项目(4KB) 65,wpchanger.zip Windows墙纸更改事例 (3KB) 66,vbtozip.zip 用VB压缩文件(最简单的方法)(2KB) 67,anicursor.zip 演示如何使用动画光标 VB源码(7KB)...
  • 存在坏道,只不过他们被厂家隐藏在P表和G表中, 我们用一般软件访问不到他。G表,又称用户级列表, 大约能存放几百个到一千左右坏道;P表,又称工厂级 列表,能存放4000左右坏道或更多。)由于它扫描硬 盘...
  • 当敲到收取金额查询窗体时,首先看到胡杨系统那个小日历控件,我想它应该不仅仅是一个comboBox控件,也许是和一个隐藏的小日历控件组合起来使用,所以就上网查了一下。它作用就是可以让用户自己选择查询哪个...
  • Delphi具有以下的特性:基于窗体和面向对象的方法,高速的编译器,强大的数据库支持,与Windows编程紧密结合,强大而成熟的组件技术。但最重要的还是Object Pascal语言,它才是一切的根本。 Object Pascal语言是在...
  • 本目录监视程序内含两种使用方法:一是MFC使用方法、二是在VB使用方法(如果是 CXPW_THREAD 方式,请确保推出之前要 Disable 掉 ClassXP)。为了便于使用,程序还有一些实用设置,比如自动开始监视、开机自动...
  • ASP.NET网页代码模型及生命周期

    热门讨论 2009-07-28 14:22:11
    Cookie在客户端用户保存网站的少量的用户信息,服务器可以通过编程的方法获取用户信息,Cookie信息和页面请求通常一起发送到服务器,服务器对客户端传递过来的Cookie信息做处理。通常Cookie保存用户的登录状态、...
  • Java快捷键制作用过VB的知道按下F5是运行窗体,用过Photoshop知道按下Tab是隐藏所有面板,你Java程序也想有这个功能么?那么希望这篇文章对您有所帮助。子菜单类JMenuItem有一个方法不知道你注意过没有:...
  • 用过VB的知道按下F5是运行窗体,用过Photoshop知道按下Tab是隐藏所有面板,你Java程序也想有这个功能么?那么希望这篇文章对您有所帮助。子菜单类JMenuItem有一个方法不知道你注意过没有:setAccelerator。打开...
  • Java 图形界面 快捷键制作用过 VB 知道按下 F5 是运行窗体, 用过 Photoshop知道按下 Tab 是隐藏所有 面板,你 Java 程序也想有这个功能么?那么希望这篇文章对您有所帮助.子菜单类 JMenuItem有一个方法不知道你...
  • Java快捷键制作

    千次阅读 2010-01-16 14:26:00
    Java快捷键制作 用过VB的知道按下F5是运行窗体,用过Photoshop知道按下Tab是隐藏所有面板,你Java程序也想有这个功能么?那么希望这篇文章对您有所帮助。子菜单类JMenuItem有一个方法不知道你注意过没有:...
  • JMenuItem 设置快捷键

    千次阅读 2008-05-21 16:16:00
    用过VB的知道按下F5是运行窗体,用过Photoshop知道按下Tab是隐藏所有面板,你Java程序也想有这个功能么?那么希望这篇文章对您有所帮助。子菜单类JMenuItem有一个方法不知道你注意过没有:setAccelerator。打开...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    在案例讲解中,可只讲解一种方法,也就是以程序的手段来实现对文本及数据的读写操作以及ASP.NET对文件的操作,另外的方法可以让学生自主学习。 当整个案例的基本功能实现差不多了,就可以对案例进行扩充和扩展,例如...

空空如也

空空如也

1 2 3
收藏数 57
精华内容 22
关键字:

vb隐藏窗体的方法是