20.09.2000
Выпуск N3 Обзор ведет @LEXis
Сегодня в выпуске:
В разделе полезные коды VB: Как сохранять и восстанавливать размеры и позицию формы.
В разделе полезные коды HTML: Ссылка дня.
В разделе детектива "Историк": Часть третья: "Приговор бешеного".
Полезные коды VB
Как сохранять и восстанавливать размеры и позицию формы
'**************************************************************
' Сохраняет и восстанавливает позицию окна формы.
'**************************************************************
Public Sub WindowPosition(frmName As Form, blnSavePostion As Boolean)
Dim strWinPosKey As String
Dim strAppName As String
'**********************************************************
' Пользуйтесь именем продукта, если оно существует,
' в противном случае - именем EXE-файла.
'**********************************************************
strAppName = IIf(Len(App.ProductName), App.ProductName, App.EXEName)
With frmName
'******************************************************
' Эта функция предназначена только для работы
' с "нормальными" окнами, поэтому работа завершается,
' если окно свернуто или развернуто.
'******************************************************
If .WindowState <> vbNormal Then Exit Sub
'******************************************************
' Пользуйтесь именем формы и описательной строкой, чтобы
' впоследствии было легче найти эти значения
' в Системном реестре.
'******************************************************
strWinPosKey = .Name & " Startup Position"
' "Начальная позиция"
'******************************************************
' Сохранить текущие значения ...
'******************************************************
If blnSavePostion Then
SaveSetting strAppName, strWinPosKey, "Height", .Height
' "Высота"
SaveSetting strAppName, strWinPosKey, "Width", .Width
' "Ширина"
SaveSetting strAppName, strWinPosKey, "Left", .Left
' "Левый"
SaveSetting strAppName, strWinPosKey, "Top", .Top
' "Верхний"
'******************************************************
' ... или восстановить их. (Если они не найдены,
' разместить форму в центре.)
'******************************************************
Else
.Height = CSng(GetSetting(strAppName, strWinPosKey, _
"Height", .Height))
' "Высота"
.Width = CSng(GetSetting(strAppName, strWinPosKey, _
"Width", .Width))
' "Ширина"
.Left = CSng(GetSetting(strAppName, strWinPosKey, _
"Left", (Screen.Width - .Width) / 2))
' "Левый"
.Top = CSng(GetSetting(strAppName, strWinPosKey, _
"Top", (Screen.Height - .Height) / 2))
' "Верхний"
End If
End With
End Sub
Полезные коды HTML
Ссылка дня
<html>
<head>
<script language="JavaScript">
function GetTodaysURL()
{
var locationlist = new URLList
(
"1.html", // Monday
"2.html", // Tuesday
"3.html",
"4.html",
"5.html",
"6.html",
"7.html" // Sunday
);
now = new Date();
num = now.getDay();
if (num == 0) num = 7;
location.href = locationlist.list[num-1];
}
function URLList ()
{
var argv = URLList.arguments;
var argc = argv.length;
this.list = new Object();
for (var i = 0; i < argc; i++)
this.list[i] = argv[i];
this.count = argc;
return this;
}
</script>
</head>
<body>
Пример кода, выбирающего
<a href="javascript:GetTodaysURL()">страницу этого дня</a>.
Завтра будет показана другая страница.
</body>
</html>
Юмористический детектив "ИСТОРИК".
Часть 3: Приговор бешеного
На этот раз братва из ментуры была уверена: здесь действует профессионал. Недавно Казанова чуть не поймал его, но когда дело было уже почти раскрыто, Историк скрылся, оставив мента любоваться пейзажем загородной свалки. После того как Сидоровича переехал грузовик, его отвезли в больницу, где чудом вытащили с того света. После этого случая маньяка в уголовных кругах прозвали "бешеный"; настоящей же фамилией - Щитков - никто не знал. УВД города Челябинска было не на шутку встревожено. Послали человека к президенту, но диалог получился не очень удачным:
- Борис Николаевич, учитывая нашу обстановку надо принимать меры!
- А как жа, панимаешь, милиция?
- Ничего не может сделать, Борис Николаевич!
- Задействуйте, панимаешь ли, ФСБ, а я, вам, в этом деле не помощник.
Мысленно называя президента "козлом", человек отправился в ЛДПР, но лидер фракции, кроме того, что "Однозначно, таких козлов ловить надо", нечего толком не сказал. И опять бедному агенту пришлось тащиться за Урал в родной город.
Рассылали письма ко всем премьерам: Примакову, Кириенко, Степашину, Путину. Но ответов не было. Ментура решила действовать сама. На карте города, Казанова вычислил, что все места преступлений расположены, на одинаковом расстоянии от дома номер девятнадцать по улице Российской. Когда Казанова со своим отрядов ворвался в дом, он услышал шум в одной из квартир, стало ясно, что Щитков, он же Историк пытает там Сидоровича, и его ровесницу; одноклассницу как выяснилось позже.
После двухчасовой перестрелки, маньяку удалось скрыться через балкон, оставив перепуганного Сидоровича младшего на произвол судьбы прикованным наручниками к кровати в избитом до полусмерти состоянии.. Сидоровича
отправили в реанимацию.
Этот случай не был последним. После него, уполномоченные власти города вынесли приговор: "Найти и уничтожить".
|
