formshowfunction.bas

USB卸载助手- 让USB设备卸载从此简单USB卸载助手- 让USB设备卸载从此简单

Attribute VB_Name = "FormShowFunction"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/08/06
'描    述：USB卸载助手 - 让USB设备卸载从此简单...
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'/* 显示&隐藏主窗体 */
Sub SwitchShow()
 MainForm.Visible = Not MainForm.Visible    '切换窗体显示
End Sub

'/* 隐藏主窗体 */
Public Sub HideMainForm()
 MainForm.Hide                              '隐藏主界面
End Sub

'/* 显示关于窗体 */
Public Sub ShowAbout()
MsgBox "dfhkdfhk"
End Sub

'/* 退出程序 */
Sub LetExitMe()

Dim intAns As Integer

intAns = MsgBox("您确定要关闭我么？", vbYesNo, "关闭程序")
 
    If intAns = vbYes Then
        Call HideMainForm
        Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
    End
 End If
End Sub



Public Sub Update()
Dim StartDoc As Long
Dim hwnds As Long
hwnds = MainForm.hwnd
StartDoc = ShellExecute(hwnds, "open", App.Path & "\DOC.HTM", "", "C:\", SW_SHOWNORMAL)
If Dir(App.Path & "\DOC.HTM", vbNormal) = "" Then
MsgBox "软件帮助文件不存在，请访问网站进行查看。", vbInformation, "提示"
Btn5.Picture = LoadResPicture(103, 0)
GoToWeb
End If
End Sub

Public Sub UpdateMenu()
Dim StartDoc As Long
Dim hwnds As Long
hwnds = mainmenu.hwnd
StartDoc = ShellExecute(hwnds, "open", App.Path & "\DOC.HTM", "", "C:\", SW_SHOWNORMAL)
If Dir(App.Path & "\DOC.HTM", vbNormal) = "" Then
MsgBox "软件帮助文件不存在，请访问网站进行查看。", vbInformation, "提示"
Btn5.Picture = LoadResPicture(103, 0)
GoToWeb
End If
End Sub



Sub GoToWeb()
 ShellExecute hwnd, "open", "http://www.promiseforever.com", "", "", 1
End Sub