一个在启动时自动刷新窗口的问题

Question

可以form_load, form_resize里加代码

Answer 1

我加了，但是不管用
好像是用setwindowpos函数设，但我不知具体如何用？

Answer 2

你試試用setwindowpos﹐然后把它的座標定義在顯示范圍以外呢﹐這是一個騙人的方法﹐有的網頁就用這種方式

Answer 3

有更简单的方法，你直接把Form的窗体BorderStyle属性设为NONE 就可以实现这个要求了。

Answer 4

或者把以上的语句改为这样也可实现：    Dim m_bdr As New CFormHide
    Me.WindowState = 1
    Me.Hide
    
    Set m_bdr.Client = Me
    m_bdr.Titlebar = False      '隐藏窗体标题
    
    Me.WindowState = 0
    Me.Show

Answer 5

还是不管用啊，我之所以不把Form的窗体BorderStyle属性设为NONE，就是为了让软件运行时在状态栏可以显示出图标和控制菜单。
各位再帮帮我吧！

Answer 6

你把我修改过后的语句放在Form_Load里运行即可，我在这里调试已通过了的。

Answer 7

是放在Form_Activate里，不好意思。
Private Sub Form_Activate()
    Dim m_bdr As New CFormHide
    Me.WindowState = 1
    Me.Hide
    
    Set m_bdr.Client = Me
    m_bdr.Titlebar = False      '隐藏窗体标题
    
    Me.WindowState = 0
     Me.Show
End Sub