通知領域について

質問

通知領域にあるアイコン（時間やノートンのアイコン等）にカーソルを近づけると説明文がぽこっと出てくるのですが、時々タクスバーの後ろに隠れて見難くなってしまいます。
ＩＭＥツールバーの説明はきちっとタクスバーの上に表示される。
再起動すると直りますが、一度そのような症状が出ると再起動しない限り直りません。

回答No.4

ittochan · ベストアンサー

『タスクバーと[スタート]メニューのプロパティ』
の
「タスクバー」タブをクリックします。

そこに
「タスクバーをほかのウィンドウの手前に表示する」
っているチェックボックスを外して「適用」をクリック

次にチェックを入れて「OK」をクリックします。

すると今回の
＞タクスバーの後ろに隠れて見難くなってしまいます。
が治ります。

ittochan.vbsは↑の作業を自動化するスクリプトです。

お礼

なるほどぉ(^-^)
説明どうも有難うございました(^-^)

回答No.3

ittochan

＞すいませんが全然難しすぎてお手上げ状態です(^^ゞ
あら。

では、
メモ帳を起動させて

ANo.2 の
---この下から
---この上まで
の中にある文章を貼り付けます。

「ファイル」→「名前を付けて保存」をクリック

ittochan.vbs

って名前でデスクトップに保存してみて。

するとデスクトップに
水色のSみたいなアイコンが出来るでしょ？

それをダブルクリックしてみて。

補足

なるほどぉ
ちなみにそれを作るとどういった感じになるのでしょうか？

回答No.2

ittochan

＞時々タクスバーの後ろに隠れて
＞見難くなってしまいます。
そうですね。

タスクバーのプロパティから
設定しなおすと治るみたいです。

で、自動化するためにこういうの作りました。
VBScriptなのでWindows以外のアプリはインストールする必要はありません。
拡張子はvbsね。

---この下から
const HKCU = &H80000001
const TIME_LAG = 100
Set WshShell = CreateObject("WScript.Shell")

Set Shell = WScript.CreateObject("Shell.Application")
Shell.TrayProperties
act "タスク バーと [スタート] メニューのプロパティ"
delayedSendKeys "%u"
delayedSendKeys "%t"
delayedSendKeys "{enter}"
while WshShell.AppActivate("タスク バーと [スタート] メニューのプロパティ")
WScript.Sleep TIME_LAG
wend
WScript.Sleep 1000
Shell.TrayProperties
act "タスク バーと [スタート] メニューのプロパティ"
delayedSendKeys "%u"
delayedSendKeys "%t"
delayedSendKeys "{enter}"
WScript.Quit

Sub delayedSendKeys(str)
WScript.Sleep TIME_LAG
WshShell.SendKeys str
End Sub
sub act(s)
for j=0 to 600
WScript.Sleep(100)
'ダウンロードダイアログの確認
if WshShell.AppActivate(s) then
exit for
elseif j=599 then
'1 分待ってもウィンドウが開かない場合はあきらめる
WScript.Quit
end if
next
end sub
sub checkbusy()
dim objWMIService, objRefresher, objProcessor, intProcessorUse
dim intThresholdViolations
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
set objRefresher = CreateObject("WbemScripting.Swbemrefresher")
Set objProcessor = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfOS_Processor").objectSet
intThresholdViolations = 0
objRefresher.Refresh
Do
For each intProcessorUse in objProcessor
If intProcessorUse.PercentProcessorTime < 50 Then
intThresholdViolations = intThresholdViolations + 1
If intThresholdViolations = 10 Then
intThresholdViolations = 0
Exit Sub
End If
Else
intThresholdViolations = 0
End If
Next
Wscript.Sleep 500
objRefresher.Refresh
Loop
end sub
---この上まで

このスクリプトにショートカットキーを割り当てるか
ランチャーソフトに登録しとくと楽です。

補足

ふむふむ…

すいませんが全然難しすぎてお手上げ状態です(^^ゞ

回答No.1

syunmaru

私も、一時的になった事が有ります。

自然と、直りました。

おかしいと、感じた時は、ディスクのクリーンアップを行い、チェックディスクをかけます。

システム異常の場合は、大抵、直ります。

補足

クリーンアップやスキャンディスクやデフラグはやってみるものの、エラーが発生した事はないですねぇ