Unload ??

[_Мика_]

А где Form_Unload() и Form_QueryUnload()???

[_Мика_]

А лдано.. на это нашел
Form1_FormClosing


теперь: замена app.path, app.EXEname, app.TaskVisible

[EvilCoder]

что значит где?

[_Мика_]

:shock: что значит где?

ты про что?

[EvilCoder]

А где Form_Unload() и Form_QueryUnload()???

теперь: замена app.path, app.EXEname, app.TaskVisible

О чем вообще вопрос? Ты что то ищеш

[_Мика_]

Я вроде форумом не ошибся-VB.NET

Пытаюсь найти замену app.

[EvilCoder]

опа Лапухнулся эээх ну нельзя до поздна за компом сидеть...

[_Мика_]

Ну так что?



Ко мне приходят новые идеи почему то ночью!

[ZeroX]

app.path - Application.StartupPath()
app.EXEname - Application.ExecutablePath()

[_Мика_]

Спасибо...
Дальше.
Как сделать чтоб при нажатии правой кнопки мыши вылезала менюшка?

[ZeroX]

У больщинства контролов есть свойство ContextMenu
А у ContextMenu есть метод Show если что

[_Мика_]

ok..спасибо
Теперь....
Как получит список файлов, которые лежат в конкретной директории

[ZeroX]

Код: Выделить всё

Dim D As System.IO.Directory
Dim Dirs as String()=D.GetDirectories("C:\Windows")

[Tarik]

Хм... А MSDN уже отменили, да?

[_Мика_]

Хм... А MSDN уже отменили, да?

хм....он у меня даже стоит на компьютере

Пасибо

Я думаю скоро будут еще вопросы

[ZeroX]

Хм... А MSDN уже отменили, да?

Поддерживаю

[_Мика_]

Есть Form1 и Form2.
Вызываем из Form1 Form2.
Надо сделать так чтобы пока Form2 не закроется, form1 не была бы доступна!

извенясь за кривоту вопроса

[areh]

если не ошибаюсь, вот так: Form2.ShowModal

[_Мика_]

если не ошибаюсь, вот так: Form2.ShowModal

ошибаешся

[areh]

ну тогда вот так:

Dim frm2 As New Form2
frm2.ShowDialog()
frm2 = Nothing

[_Мика_]

Шпасибо.. щп попробую

[_Мика_]

Как получить список процесов и их загруженность процессора

[ZeroX]

Вот тебе пример

[_Мика_]

Прикольно..спасибо.... и еще надо чтобы загруженность процессора показывал

[ZeroX]

Код: Выделить всё

Private CurrentCPU, PreviousCPU As Long

Private Function CPUUsage() As Integer
Dim P As Process = Process.GetProcessById(0)
Dim CPU As Double
CurrentCPU = Convert.ToInt64(P.TotalProcessorTime.TotalMilliseconds)
CPU = Math.Round(100 - ((CurrentCPU - PreviousCPU) * 0.1))
If CPU < 0 Then
CPU = 0
End If
PreviousCPU = CurrentCPU
P.Dispose()
Return Convert.ToInt32(CPU)
End Function


Если проц с гипертрейдингом пример работать не будет

[_Мика_]

А если с ним? P4 3.0 GHz Hyper Threading (или как та это пишется )

[ZeroX]

А если с ним? P4 3.0 GHz Hyper Threading (или как та это пишется )

тогда только System Monitor Automation Interface
Открываешь МСДН и читаешь и да поможет тебе PROMT

[_Мика_]

А у меня вроде русский стоит!

[_Мика_]

А если с ним? P4 3.0 GHz Hyper Threading (или как та это пишется )

тогда только System Monitor Automation Interface
Открываешь МСДН и читаешь и да поможет тебе PROMT

Ну это как я понял понятие растяжимое...А где конкретней искать? Это вообще возможно или нет?

[ZeroX]

sysmon.ocx - единственная альтернатива, у тебя в папке System32 лежит
Можно еще WMI заюзать, но только проверять загрузку проца с его помощью - вечный тормоз, даже на твоем P4
По поводу WMI може поискать в MSDN или здесь