tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： PC電源管理について【解決】
投稿日： 2011/02/20(Sun) 17:36
投稿者： 管理職
仕事の片手間で作成したので、時間がかかってしまいました。
なんとか３月からの運用に間に合いそうです。
花ちゃん様はじめ記事を参考にさせていただいた方々ありがとうございます。

何とか形になったのでソースの掲示です。
まだまだ改造が必要になりますが・・・

Private Sub Form_Load()
'起動時にプログラムをタスクトレーに表示させる。
    With objTaskTrayIcon
        .cbSize = Len(objTaskTrayIcon)
        .hwnd = Me.hwnd
        .uID = 1
        .uFlgs = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
    End With
    
    Call Shell_NotifyIcon(NIM_ADD, objTaskTrayIcon)
    Call cmdTaskTray_Click
  
End Sub
    
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Windowsシャットダウン時にフォームを表示させる。

   If UnloadMode = vbAppWindows Then
      If frg = False Then
        Call Me.Show　　'タスクトレーからフォームを表示させる
        Cancel = 1
      End If
   End If

End Sub

Private Sub Cmd_OK_Click()
'OKボタンをクリック=勤怠は入力済み
　　'シャットダウン用プログラムを起動
　　'-->従来から使用していたプログラム（サーバにPCシャットダウン時間を記録）
　　Dim MyStr As String
　　MyStr = App.Path & "\TestProject2.exe"
　　Shell MyStr, 0  

　　'自身を終了
　　Unload Me
End Sub


Private Sub Cmd_NG_Click()
'NGボタンをクリック=勤怠は未入力
'タスクトレーにフォームを隠す
    Call cmdTaskTray_Click
　　Msgbox "勤怠を入力してください。"
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。