Visual Basic 6.0 - Создать эллиптический регион

Tue Jan 06 2004 03:47, Sergey Merzlikin wrote to A. Skrobov:





This behavior is by design. В XP этот код лишён красоты, потому что там нет
проблемы, которую он решает. Поэтому я и не заботился, чтобы он там шёл.




Видимой, но некрасивой (2-3 пиксела в толщину, причём толщина меняется при
движении); поэтому тот код и закомментирован.



А вот с этим буду разбираться.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)




Tue Jan 06 2004 13:30, Serge Chervjakov wrote to A. Skrobov:










Я учился программировать по книге "Знакомьтесь - персональная ЭВМ Корвет",
когда компьютер ещё только на картинках видел (в этой самой книге). Просто
заинтересовался и стал изучать, чисто для досуга. Т.е. "чем заинтересовать
человека" очень субъективно: один приходит в восторг, когда точка движется по
экрану, другой - когда Помощник Ворда приветствует его по имени, третий -
когда машина решает систему из 10 уравнений за 10 секунд. Вряд ли есть "общий
подход", способный заинтересовать каждого.
А про то, что не всем дано - не согласен. Просто большинству неинтересно. Вот
я, если бы захотел, наверное, мог бы начать заниматься физкультурой и сдавать
нормативы на тройку по-честному, а не отработкой. Hо я думаю: нафиг это мне? И
те 25 человек наверняка думают так же. Сдали сортировку массива, отмучались и
забыли. Вряд ли им кажется, что они что-то потеряли.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


Мы где-то виделись, Alexander?






Я табе шо казав? (с)


Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Hi All,

У меня есть dll-ка, которой передаётся адрес процедуры, и она её вызывает
асинхронно (с другой нити). Возможно ли как-то ей воспользоваться, или
придётся переписывать её, чтоб та кидала сообщения в моё окно?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)




Hi!





У меня получилось только так: процедура в модуле, которая ТОЛЬКО вызывает
PostMessage, передавая в специально сделанное окно необходимые сообщения. Причем
hWnd этого окна приходилось хранить во внутренней статической переменной данной
процедуры. Так что если есть возможность переписать саму ДЛЛ - лучше это
сделать, чем так извращаться.


--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)





сообщил/сообщила в новостях следующее:
news:1073284465 [@] p84.f130.n5000.z2.ftn...



без




Ага, вот это, походе, то, что нужно: CreateDialogIndirect[Param]




Проще некуда: текстовое сообщение переменной ширины и переменной высоты, и
опционально - под ним кнопка Cancel. Так что единственное возможное событие
для обработки - нажатие на Cancel.
Так что ресурсы нет смысла использовать, поскольку всё равно размер и
положение формы и кнопки Cancel вычисляется динамически в зависимости от
габаритов текста.

А есть ли где работающие примеры такого дела? Все-таки на чужих ошибках
учиться лучше...

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Известен путь к некоему EXE.
Требуется проверить запущена ли эта программа.
Если запущена, то вывести вперед ее окно, если она окно вообще создает.

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)


Мы где-то виделись, Sergei?






Поковыряй мой пример.

Модуль:

============================== Смотри ниже ===============================
Public Const TH32CS_SNAPHEAPLIST = 1
Public Const TH32CS_SNAPPROCESS = 2
Public Const TH32CS_SNAPTHREAD = 4
Public Const TH32CS_SNAPMODULE = 8
Public Const TH32CS_SNAPALL = TH32CS_SNAPHEAPLIST + TH32CS_SNAPPROCESS +
TH32CS_SNAPTHREAD + TH32CS_SNAPMODULE
Public Const TH32CS_INHERIT = &H80000000
Public Const PROCESS_TERMINATE = &H1

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags
As Long, ByVal th32ProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As
Long, pe As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long,
pe As PROCESSENTRY32) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As
Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As
Long, ByVal uExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As
Long

Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long 'this process
th32DefaultHeapID As Long
th32ModuleID As Long ' associated exe
cntThreads As Long
th32ParentProcessID As Long ' this process's parent process
pcPriClassBase As Long ' Base priority of process's threads
dwFlags As Long
szExeFile As String * 255 ' Path
End Type
============================== Смотри выше ===============================

============================== Смотри ниже ===============================
Private Sub Command1_Click()
Dim hProc&

hProc = OpenProcess(PROCESS_TERMINATE, 0,
Me.List1.ItemData(Me.List1.ListIndex))
TerminateProcess hProc, 0

CloseHandle hProc
End If
Call Command2_Click
End Sub

Private Sub Command2_Click()
Dim pe As PROCESSENTRY32, hSS&, LastItem&
LastItem = Me.List1.ListIndex
Me.List1.Clear
pe.dwSize = LenB(pe)
hSS = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
Process32First hSS, pe
Do
Me.List1.AddItem pe.szExeFile
Me.List1.ItemData(Me.List1.ListCount - 1) = pe.th32ProcessID
Loop While Process32Next(hSS, pe)
If LastItem < Me.List1.ListCount Then Me.List1.ListIndex = LastItem
End Sub

Private Sub Form_Load()
Call Command2_Click
End Sub
============================== Смотри выше ===============================

Одна кнопка выводит список процессов, другая прибивает процесс.





Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Hello, Dmitriy!

10:22:42 +0300:




Только что проверил на 2000 и МЕ, в обоих случаях работает.


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)




Hello, A.!



Есть. 3.5 метра в мыло могу кинуть.

Joker


* Origin: Demos online service (2:5020/400)