Visual Basic 6.0 - time

Привет, Klim.

Вы, было дело, писали 12 ноября 2004 г., 21:45:






Dim dcur As Date
'dcur = #7:00:00 PM# ' днев
'dcur = #10:00:00 PM# ' ночн
dcur=Now ' текущ

MsgBox "Попали внутрь дневного диапазона!"
Else
MsgBox "Попали внутрь ночного диапазона!"
End If
--
С уважением, Alexander
12:29:11 AM
* Origin: Talk.Mail.Ru (2:5020/400)


Hello A!

Wednesday November 03 2004 04:56, A Skrobov wrote to Alex Mazaev:







Спасибо. Пpимеp хоpоший, память я пpочитал и нашел в ней данные спpавочника.
Только, похоже, извлечь их оттуда будет сложно, так там все пеpемешано.
Хочу попpобовать записать их в двоичном виде в файл, пpоанализиpовать стpуктуpу и извлечь записи спpавочника. Hо надежды на успех мало.
Может есть дpугие идеи?
Или, может, дpугие способы?
К пpимеpу, такой - записать окна спpавочника в файлы как каpтинки, а потом натpавить на них FineReader, pаспознать и текст сохpанить в файл.
Как по твоему, бpед?

Alex

* Origin: Слушайте зайчики деда Мазая (FidoNet 2:5090/105.8)




Hello, All!

Привет всем, кто меня еще помнит! Давненько я здесь не был...

Делаю сабж (хотя MS уверяет, что это невозможно ;)) Готового ничего не
нашел, но разные идеи из разных мест почерпнул и скомпилировал вместе.
Выглядит это примерно так (несущественные вещи пропущены или заменены
псевдокодом):

For Each Ctl In UserControl.ContainedControls

control_rgn = CreateRectRgn(X0, Y0, X1, Y1)
Else
new_font = CreateFont(...) ' такой же, как у лейбла
hBrush = CreateSolidBrush(color) ' такого же цвета
'выбираем все в DC

BeginPath hdc
TextOut hdc, X, Y, Caption, Len(Caption)
EndPath hdc
control_rgn = PathToRegion(hdc)

BeginPath hdc
TextOut hdc, X, Y, Caption, Len(Caption)
EndPath hdc
FillPath hdc
'прорисовка пути нужна из-за описанного ниже несовпадения

'восстанавливаем прежние объекты в DC
'уничтожаем созданные объекты
End If
CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
Next Ctl
SetWindowRgn hWnd, combined_rgn, True

Проблема в том, что путь (и регион), полученный через
BeginPath-TextOut-EndPath, выглядит не совсем так, как исходный текст. При
больших размерах шрифта видна разница на границах примерно в +/-1 пиксел,
при стандартном размере в 8pt символы выглядят нескругленными, как бы
составленными из прямых отрезков и с разрывами (похоже, Path довольно грубо
конвертирует кривые в ломаные). При использовании не TrueType шрифта (напр.
стандартного MS Sans Serif) путь вообще не создается. Как с этим бороться,
может, есть другие пути решения этой проблемы?

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

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




Привет, Alex.

Вы, было дело, писали, 13:14 07.11.2004:






Если уж собрался натравливать внешнее приложение, тогда попробуй
сперва SnagIt (http://www.techsmith.com/products/snagit/)

=============
Text Capture

Capture text in tab-delimited format to import into spreadsheets or
database applications.

Entire Screen
Window
Active Window
Region
Fixed Region
Object
Scrolling Window
Scrolling Region
Scrolling Active Window
Clipboard
Full-Screen DOS

=============

Кроме всего прочего SnagIt является еще и COM-сервером

=============
SnagIt COM Server

The SnagIt COM Server is a programming interface to SnagIt. It allows
any programming language that supports COM access to SnagIt's image
and text capture features. For example, developers using Visual Basic,
VB Script, Visual C/C++, Visual Studio.Net, Delphi, or C++ Builder can
now embed and control SnagIt directly in their applications.

SnagIt is the only screen capture product that provides a full
featured, enterprise-level screen capture COM Server.
=============

--
Alexander

* Origin: Talk.Mail.Ru (2:5020/400)


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






Dim t As Date

Const t1 = #8:00:00 AM#
Const t2 = #22:00:00 PM#

't = #7:59:00 AM#
t = Time


Stop ' День
Else
Stop ' Hочь
End if









Кошмар...

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

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


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





Помним-помним. ;)



[...]

Советую посмотреть сюда:

http://www.vbrussian.com/download.asp?Type=Control&ID=100

Там лежит продвинутый Label с поддержкой прозрачности. Авторство принадлежит
Артему.

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

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













* Origin: 1134.moveax.ru (2:5045/44.13)




Привет, Roman.

Вы, было дело, писали 13 ноября 2004 г., 23:28:





Точнее будет просто '<22'. Если в этом выражении оставить '<=22' ,
тогда целый час до 23 часов останется в первом диапазоне.

А, гулять, так гулять :-) Такой еще "экзотический" вариант:

Select Case Time
Case #8:00:00 AM# To #9:59:59 PM#
MsgBox "vhodit"
'Case #Если надо - тут добавить любые другие поддиапазоны времени суток#
' Msgbox "blablaBlaBlashechki"
Case Else
MsgBox "nea"
End Select

Выглядит слегка странновато (хотя бы оттого, что под Case должно
стоять вроде бы только "Any numeric expression or string expression"
(с)Microsoft), но ведь работает, и в одной Select Case можно легко
описать _любое_ количество диапазонов.
--
С уважением, Alexander
7:52:51 PM
* Origin: Talk.Mail.Ru (2:5020/400)


Hi All!

как мне в пpоект всатвить xp-шные кнопки, а не стандаpтные квадpатные...?


Bye All!

* Origin: | - - [-slash- [@] id.ru] [2:6000/14.4] - - | (2:6000/14.4)





Смотри http://www.vbnet.ru/activex/activexdownload.asp?id=56

Там всего полно. Вообще в сети полно контролов...

Удачи, Макс








* Origin: CenterTelecom Voronezh ISP (2:5020/400)