收录日期:2018/07/18 14:48:30 时间:2016/05/21 14:12:13 标签:VB基础类
当我的程序运行时如何在桌面显示一图片
没有窗体的那一种,然后自动消失
其实也是有窗体的
yes, nonborder window.
把窗体的系统菜单以及bordstyle设置为0
其实也是有窗体的

把窗体的Pictrue、MaxButton、MinButton设置一下

Private Sub Form_Activate()
    Timer1.Enabled = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
    
    frmSplash.Left = (Screen.Width - frmSplash.Width) / 2
    frmSplash.Top = (Screen.Height - frmSplash.Height) / 2 - 600
    
End Sub

Private Sub Form_Click()
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    frmMain.Show
End Sub

Private Sub Timer1_Timer()
    Unload Me
End Sub
谢了