#post-id: 3098-09-31
#original-date: 18.01.2009 Sun
#original-time: 9:31 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

---

#post-id: 3098-07-20
#original-date: 18.01.2009 Sun
#original-time: 7:20 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

---

#post-id: 3098-05-01
#original-date: 18.01.2009 Sun
#original-time: 5:01 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

Вроде новое ^^

    .                                  .o8       oooo               
      .o8                                 "888       `888               
.o888oo oooo  oooo  ooo. .oo.  .oo.    888oooo.   888  oooo d8b     
  888   `888  `888  `888P"Y88bP"Y88b   d88' `88b  888  `888""8P     
  888    888   888   888   888   888   888   888  888   888         
  888 .  888   888   888   888   888   888   888  888   888     .o. 
  "888"  `V88V"V8P' o888o o888o o888o  `Y8bod8P' o888o d888b    Y8P

---

Закрытая запись, не предназначенная для публичного просмотра

---

#post-id: 3098-03-35
#original-date: 18.01.2009 Sun
#original-time: 3:35 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

Кстати, наконец начала таскать Бэки на флэшке (с синхронизацией). А то сначала на работе получаю почту, а потом ещё и дома. Плюс приходится разбирать что почитала, а что нет... Ну и отвечать на работе не всегда могла. Теперь это не проблема. Разве что только Сильфид больше нет причин юзать.

---

#post-id: 3098-01-51
#original-date: 18.01.2009 Sun
#original-time: 1:51 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

Пипец. Вот сколько я видела всяких утилит для синхронизации папок, все они сверкали наворотами, фичами, фильтрами, алгоритмами сравнения, поддерживали всякие хитрые методы быстрого сравнения и копирования, кичились своею шароварностью или опенсорсностью, но ни один из них так и не научился копировать файлы только для чтения и обнаруживать скрытые файлы. Просто писец какой-то.

Тут кто-то заявит, что скрытые файлы на то и скрытые файлы, но я отвечу, что если я выбираю "Mirror" и в папку 20 файлов, то я хочу в зеркальной папке именно 20 файлов, а не 10, не 19, не "15 с небольшим". Тоже и с файлами только для чтения. Я так понимаю, сделать два раза SetFileAttribute() им религия не позволяет, что некоторые вываливают исключение (SyncToy), а некоторые начинают мусорить своими временными файлами (Toucan).

---

#post-id: 3098-00-20
#original-date: 18.01.2009 Sun
#original-time: 12:20 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

Всё, победила. Работает ^^ Теперь как у китайцев: два года (или сколько там?) усиленного труда, две тысячи лет счастья ^^

---

#post-id: 3098-00-05
#original-date: 18.01.2009 Sun
#original-time: 12:05 AM
#original-day:  3098
#original-host: WinXP Prof SP2 (Build 2600)

Хы. Если в объявлении метода параметр, в котором передаётся ссылка на контрол, объявить как Object вместо конкретного типа, то вылеты прекращаются. Я даже не знаю как это объяснить, интерфейсы чтоли сразаются? Или что? OO'

Короче, "Решенье есть!" - воскликнули математики и пошли спать.

---

#post-id: 3097-23-39
#original-date: 17.01.2009 Sat
#original-time: 11:39 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Охренеть! Имеем OCX проект, в нём контрол и класс. В метод класса передаём ссылку на контрол, установленный на форме. Когда оба проекта в IDE - работает, когда оба в OCX и EXE - иногда взбрыкивается. А вот когда EXE проект в IDE, если в методе класс обратиться к свойству контрола, происходит исключение. Охренеть как весело >_<

Бугага. А если обратиться вот так:

MsgBox ParentForm.Controls!SomeControl1.Caption

То ни чего не вылетает! ParentForm - это ссылка на форму, которая тоже передаётся в метод.

---

#post-id: 3097-23-37
#original-date: 17.01.2009 Sat
#original-time: 11:37 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Совсем забыла, что в VB6 можно писать компоненты в подмогу DHTML и расширения для IIS. Интересно, эти расширения заработают с IIS, который в NT4 живёт? По идее - должны...

---

#post-id: 3097-23-07
#original-date: 17.01.2009 Sat
#original-time: 11:07 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Всё, хватит ^^' Азумангу можно смотреть бесконечно ^^'

---

#post-id: 3097-22-12
#original-date: 17.01.2009 Sat
#original-time: 10:12 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

- Встречаемся у твоего дома в 9:00. Смотри, не опоздай!

Юкари жжёт ^___^

#video: Azumanga Daioh (14)

---

#post-id: 3097-20-13
#original-date: 17.01.2009 Sat
#original-time: 8:13 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Мда. Попилила вчерашний код - вылезает исключение, хоть тресни >_<

#music: ORANGE RANGE\Viva Rock\Viva Rock ~Japanese Side~

---

^_^

#post-id: 3097-19-14
#original-date: 17.01.2009 Sat
#original-time: 7:14 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)



#music: ORANGE RANGE\Viva Rock\Viva Rock

---

#post-id: 3097-18-25
#original-date: 17.01.2009 Sat
#original-time: 6:25 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

#499: Месть - это блюдо, которое подается кусками

Лет несколько назад, во времена диалапа и коннекта на 19200, переписывались между собой две конторы, по электронной почте.

Одна контора запросила у другой некий документ. А чтобы тем было проще документ составить - отправили форму, для заполнения. Листов 10 - всякие ячейки, столбцы и прочее в том же духе.
Предварительно распечатав эту форму на принтере, и отсканировав каждую страницу.
В TIF. Несколько мегабайт.
Поскольку в почтовый ящик оно не лезло - запаковали в архив, разбитый на пару десятков кусков.
И отправили. По диалапу.

Восторгу получателей не было предела: надо все это скачать, собрать, распаковать, потом по картинкам набить вручную в Экселе, заполнить...

И месть была страшна: документ был изготовлен, заполнен, распечатан, отсканирован, картинки вставлены в Вордовский документ (ах, с каким трудом еле шевелился под многомегабайтным грузом Ворд!...), все это запаковано в архив и порезано кусками.
И отправлено по диалапу обратно...

Очень напиминает как в прошлой редакции нам присылали постановления по факсу. Ну или сейчас присылают человека со статьёй - всё аккуратно распечатано, флэшек ни у кого нет, ну и так далее.

#497: Жития разработчиков

Лекция по дисциплине "операционные системы".

На большом экране периодически сменяются картинки - лекция на слайдах. Препод объясняет отличия разработчика от пользователя и программиста: "Разработчики скрывают от пользователя ненужные подробности работы аппаратной части компьютера, избавляют нас от детального изучения алгоритмов работы устройств, значит, кто они?".. На слайде медленно грузится изображение православной иконы... "Они святые" - с невозмутимым видом продолжает препод.

А вот эта история просто поразила - идиотизм же полный.

#494: Завышенные требования

Как "хорошего специалиста", меня посоветовали одной небольшой фирме на 25 компьютеров, но с очень суровым руководство. Предупредили, что работа будет сложная и ответственная. Собравшись с духом, проверив наличие драйверов, систем, и бубна - отправился на задание. Прийдя, был приятно удивлен, увидев сервер с двумя процессорам, 5 жестких по 500 Гб, 16 Гб оперативной памяти. Мысленно нарисовал 10 РЭЙД, ДНС Сервер, Контроллер домена, DHCP. Уточнил у строгого руководства мои планы... И узнал что:
- интернет и адреса раздает роутер сразу в сеть для всех - "ничего мудрить не надо"
- контроллер домена - "глупость" - все пользователи должны быть администраторы!
- сервер должен выполнять только роль "Общей папки" для обмена файлов!
- никакого резервного копирования документов пользователей - им удобней все иметь на своем компьютере!

Развернулся и ушел. Денег не взял. Знакомый админ отпаивает валерьянкой...

---

#post-id: 3097-16-26
#original-date: 17.01.2009 Sat
#original-time: 4:26 PM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Дожили. Забуза приснился OO'

Кстати, вот прикольное доменное имя: nekoslovakia.net

---

#post-id: 3097-06-49
#original-date: 17.01.2009 Sat
#original-time: 6:49 AM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Смотрю Ю-Джиновские Tales of, на второй серии вижу неожиданно знакомую прорисовку, а в конце - разгадку ^^ Урушихара ^^ Хправда, его Урушибарой обозвали, но ссылка на Earth Work не обманула ^^

Пожалуй, радует больше всего классическая рисовка, ну и сюжет про мужика, который сам себя оставил без штанов ^^

---

#post-id: 3097-01-37
#original-date: 17.01.2009 Sat
#original-time: 1:37 AM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Не знаю, чего так не любят мувик наруты про спортивный фестиваль ^^' Очень жизненный сюжет ^^

---

#post-id: 3097-00-08
#original-date: 17.01.2009 Sat
#original-time: 12:08 AM
#original-day:  3097
#original-host: WinXP Prof SP2 (Build 2600)

Постоянно забываю про ключевое слово WithEvents, которое любому классу позволяет перехватывать события объекта. Но каждый раз вспоминаю крайне удачно ^^ Например, надоело таскать код из проекта в проект, который отвечает за менюшки и иконки в трее (сворачивание окна, например), написала два класса, которые делают всё сами, просто перехватывая события формы и моего Sys tray control. Всё логично и красиво, а использование сводится к объявлению переменной уровня формы и инициализации одной функцией.

Да-да, это и есть моя любимая философия "Function DoIt() As Boolean" ^^

Вот у нас класс, который отвечает за сворачивание в трэй. На самом деле он при сворачивании окна просто прячет его и выводит иконку.

Option Explicit

Private WithEvents ParentForm As Form
Private WithEvents SysTrayControl As SysTray

Private OpenOnDoubleClick As Boolean
Private DontHideIcon As Boolean

Private PrevWindowState As Long
Private MinimizedFrom As Long

'====================================================================
Public Function Init(ByRef ParentForm_ As Form, _
                     ByRef SysTrayControl_ As SysTray, _
                     Optional OpenOnDoubleClick_ As Boolean, _
                     Optional DontHideIcon_ As Boolean) As Boolean
  ' И контрол, и форма должны что-то содержать.
  If ParentForm_ Is Nothing Then Exit Function
  If SysTrayControl_ Is Nothing Then Exit Function
  
  Set ParentForm = ParentForm_
  Set SysTrayControl = SysTrayControl_
  OpenOnDoubleClick = OpenOnDoubleClick_
  DontHideIcon = DontHideIcon_
  
  ' Сразу запоминаем состояние окна.
  PrevWindowState = ParentForm.WindowState
  Init = True
End Function

'====================================================================
Private Sub ParentForm_Resize()
  ' Действуем только если состояние изменилось.
  If PrevWindowState <> ParentForm.WindowState Then
    ' Если форму свернули...
    If ParentForm.WindowState = vbMinimized Then
      ' Выводим иконку и прячем форму. Если иконка уже была показана
      ' вызов просто проигнорируется...
      SysTrayControl.Visible = True
      ParentForm.Hide
      
      ' Это нужно чтобы знать из какого состояния мы свернули окно.
      ' Почему-то OpenIcon() не восстанавливает максимизированное
      ' окно...
      MinimizedFrom = PrevWindowState
      
    ' Если предыдущее состояние - свёрнуто, тоесть если форму
    ' развернули - состояние-то изменилось.
    ElseIf PrevWindowState = vbMinimized Then
      ' Прячем иконку только если на то было указание при
      ' инициализации...
      If Not DontHideIcon Then SysTrayControl.Visible = False
      ParentForm.Show
    End If
    
    ' Сохраняем текущее состояние как предыдущее состояние.
    PrevWindowState = ParentForm.WindowState
  End If
End Sub

'====================================================================
'Private Sub SysTrayControl_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal ID As Long)
'  If Not OpenOnDoubleClick And Button = vbLeftButton Then
'    ' Восстанавливаем только если окно на самом деле скрыто.
'    If Not ParentForm.Visible Then
'      ' Тут нам установка WindowState не поможет - форма скрыта.
'      ' Поэтому смотрим что было при сворачивании и вызываем
'      ' ShowWindow().
'      If MinimizedFrom = vbNormal Then
'        ShowWindow ParentForm.hWnd, SW_SHOWNORMAL
'      Else
'        ShowWindow ParentForm.hWnd, SW_SHOWMAXIMIZED
'      End If
'    End If
'  End If
'End Sub

' Чтобы не передавалось событие следующей иконке, нужно обрабатывать
' MouseUp. Вроде бы ^^
Private Sub SysTrayControl_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal ID As Long)
  If Not OpenOnDoubleClick And Button = vbLeftButton Then
    ' Восстанавливаем только если окно на самом деле скрыто.
    If Not ParentForm.Visible Then
      ' Тут нам установка WindowState не поможет - форма скрыта.
      ' Поэтому смотрим что было при сворачивании и вызываем
      ' ShowWindow().
      If MinimizedFrom = vbNormal Then
        ShowWindow ParentForm.hWnd, SW_SHOWNORMAL
      Else
        ShowWindow ParentForm.hWnd, SW_SHOWMAXIMIZED
      End If
    End If
  End If
End Sub

Private Sub SysTrayControl_MouseDblClick(ByVal Button As Long, ByVal Shift As Long, ByVal ID As Long)
  If OpenOnDoubleClick And Button = vbLeftButton Then
    ' Восстанавливаем только если окно на самом деле скрыто.
    If Not ParentForm.Visible Then
      ' Тут нам установка WindowState не поможет - форма скрыта.
      ' Поэтому смотрим что было при сворачивании и вызываем
      ' ShowWindow().
      If MinimizedFrom = vbNormal Then
        ShowWindow ParentForm.hWnd, SW_SHOWNORMAL
      Else
        ShowWindow ParentForm.hWnd, SW_SHOWMAXIMIZED
      End If
    End If
  End If
End Sub

А вот класс, который отвечает за контестное меню. Я могла бы их совместить, но мне не хотелось, ибо это две разные задачи, которые могут совмещаться. Лучше уж пусть код и объекты будут понятными и простыми...

Option Explicit

Private WithEvents ParentForm As Form
Private WithEvents SysTrayControl As SysTray
Private PopupMenu As Menu

Private PopOnLeftButton As Boolean
Private PopOnRightButton As Boolean
Private PopOnMiddleButton As Boolean

'====================================================================
Public Function Init(ByRef ParentForm_ As Form, _
                     ByRef SysTrayControl_ As SysTray, _
                     ByRef PopupMenu_ As Menu, _
                     Optional ByVal PopOnLeftButton_ As Boolean = True, _
                     Optional ByVal PopOnRightButton_ As Boolean = True, _
                     Optional ByVal PopOnMiddleButton_ As Boolean = False) As Boolean
  If ParentForm_ Is Nothing Then Exit Function
  If SysTrayControl_ Is Nothing Then Exit Function
  If PopupMenu_ Is Nothing Then Exit Function
  
  Set ParentForm = ParentForm_
  Set SysTrayControl = SysTrayControl_
  Set PopupMenu = PopupMenu_
  
  PopOnLeftButton = PopOnLeftButton_
  PopOnRightButton = PopOnRightButton_
  PopOnMiddleButton = PopOnMiddleButton_
  
  Init = True
End Function

'====================================================================
Private Sub SysTrayControl_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal ID As Long)
  If Button = vbLeftButton And Not PopOnLeftButton Then Exit Sub
  If Button = vbRightButton And Not PopOnRightButton Then Exit Sub
  If Button = vbMiddleButton And Not PopOnMiddleButton Then Exit Sub
  
  ReplyMessage 1
  asSetForegroundWindowEx ParentForm.hWnd
  ParentForm.PopupMenu PopupMenu, vbPopupMenuRightButton ', , , Me.mnuContext(0)
  PostMessageByNum ParentForm.hWnd, WM_NULL, 0, 0
End Sub

А вот как мы это используем:

Option Explicit

Private Handler As New ajpMinimizeToTrayHook
Private MenuHandler As New ajpTrayMenuHook

'====================================================================
Private Sub Form_Load()
  Me.SysTray1.Caption = "Tray hooks test"
  Me.SysTray1.Icon = Me.SysTray1.GetDefaultIcon()
  Me.SysTray1.Visible = False
  
  ' Вот оно! ^^
  Handler.Init Me, Me.SysTray1
  MenuHandler.Init Me, Me.SysTray1, Me.mnuTray(0), False, True, True
  
  Me.WindowState = vbMinimized
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set Handler = Nothing
  Set MenuHandler = Nothing
End Sub

Private Sub mnuContext_Click(Index As Integer)
  MsgBox "Menu item """ & Me.mnuContext(Index).Caption & """ clicked!", vbInformation
End Sub

Контрол для тестов находится в любой момей программе, использующей трэй ^^

---

#post-id: 3096-19-43
#original-date: 16.01.2009 Fri
#original-time: 7:43 PM
#original-day:  3096
#original-host: WinXP Prof SP2 (Build 2600)

Обажаю фразу Путина:

На это у нас есть и всегда будет что ответить.

Универсальная ^_^

#music: STANCE PUNKS\No Boy No Cry\Kurayami ni Hi wo Tsukero