Программирование и дизайн
Выпуск #11
18 июля, 2001 г.
Сайт рассылки: http://prs.narod.ru - всё для программиста и дизайнера.
Всего подписчиков: ~3800

В этом выпуске

Новости сайта

18.07.2001
Сегодня очень много обновлений. Во-первых плностью изменился дизайн сайта.
Как всегда, Вышел очередной, одиннадцатый выпуск рассылки.
Добавлено 4 новых модуля для VB: "Disable PasswordChar", "Disable X Button", "Folder Browser" и "Help View".
Добавлено 4 новых исходника: "CDLG Demo", "Pretty Clock", "BitBlt", "Comm Demo". Автор модулей и исходников - Бельбаков Александр (посетить сайт).
Также пополнилась коллекция Java Script'ов.



Голосование

Уважаемые подписчики! Нам очень интересно Ваше мнение по поводу этой рассылки, поэтому просим Вас оценить эту рассылку по 10-ти бальной шкале (результаты откроются в новом окне).


Текущие результаты



Вопрос-ответ

Имя: Victor
E-mail: vicont43@hotmail.com
Вопрос:
Где можно найти электронный учебник по Fotoshop?
Ответить

    Вопросы можете задавать в соответствующем разделе сайта.


API функции

Функция PaintDesktop

Описание: Функция заполняет область в указанном контексте устройства картинкой Рабочего стола или обоями.
Объявление: Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
Параметры: Нет

Возвращаемое значение: В случае ошибки функция возвращает 0 или отличное от нуля в успешном случае.

Функция GetPixel

Описание: Возвращает значение RGB пиксела в заданный координатах в контексте устройства.
Объявление: Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal nXPos As Long, ByVal nYPos As Long) As Long
Параметры: hdc
Дескриптор контекста устройства

nXPos
Координата x точки для определения цвета

nYPos
Координата y точки для определения цвета

Возвращаемое значение: В случае ошибки функция возвращает &HFFFF. В успешном случае функция возвращает значение RGB пиксела в заданной точке.


Java Script'ы

Этот скрипт выводит надпись "Добро пожаловать!", которая плавно следует за курсором мыши.

<html>
<head>
<STYLE>
.spanstyle {position: absolute; top: -50px; visibility: visible}
</STYLE>

<SCRIPT>
var message="Д О Б Р О П О Ж А Л О В А Т Ь ! ! ! "
message=message.split(" ")

var step=8
var stepbasic=8

var x,y
var flag=0
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos[i]=-100
}

var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos[i]=-100
}

var spacebetweenwords=new Array()
for (i=0;i<=message.length-1;i++) {
spacebetweenwords[i]=stepbasic+step*message[i].length-1
}

var colorstep=Math.round(255/message.length-1)

var colorrgb=new Array()
for (i=0;i<=message.length-1;i++) {
colorrgb[i]=i*colorstep
}

var wordcolor=new Array()
for (i=0;i<=message.length-1;i++) {
var colhex_left = Math.floor(colorrgb[i]/16)
var colhex_right= colorrgb[i]-(colhex_left*16)
if (colhex_left == 10) {colhex_left="A"}
if (colhex_left == 11) {colhex_left="B"}
if (colhex_left == 12) {colhex_left="C"}
if (colhex_left == 13) {colhex_left="D"}
if (colhex_left == 14) {colhex_left="E"}
if (colhex_left == 15) {colhex_left="F"}
if (colhex_right == 10) {colhex_right="A"}
if (colhex_right == 11) {colhex_right="B"}
if (colhex_right == 12) {colhex_right="C"}
if (colhex_right == 13) {colhex_right="D"}
if (colhex_right == 14) {colhex_right="E"}
if (colhex_right == 15) {colhex_right="F"}
wordcolor[i] =""+colhex_left+colhex_right
}

function handlerMM(e){
x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX
y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY
flag=1
}

function makesnake() {
if (flag==1 && document.all) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+spacebetweenwords[i-1]
ypos[i]=ypos[i-1]
}
xpos[0]=x+stepbasic
ypos[0]=y

for (i=0; i<message.length-1; i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos[i]
thisspan.posTop=ypos[i]
}
}

else if (flag==1 && document.layers) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+spacebetweenwords[i-1]
ypos[i]=ypos[i-1]
}
xpos[0]=x+stepbasic
ypos[0]=y

for (i=0; i<message.length-1; i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos[i]
thisspan.top=ypos[i]
}
}
var timer=setTimeout("makesnake()",30)
}

</SCRIPT>
</head>

<body onload=makesnake() style="OVERFLOW-X: hidden; OVERFLOW-Y: scroll; WIDTH: 100%">

<SCRIPT>
for (i=0;i<=message.length-1;i++) {
document.write("<span id='span"+i+"' class='spanstyle'>")
document.write("<font color='"+wordcolor[i]+wordcolor[i]+wordcolor[i]+"'>"+message[i]+"</font>")
document.write("</span>")
}

if (document.layers){
document.captureEvents(Event.MOUSEMOVE);
}
document.onmousemove = handlerMM;
</SCRIPT>

</body>
</html>



Ссылки

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

Visual Basic Helper
Статьи, примеры, исходные коды программ, ActiveX, приколы, API и ещё много чего!



Подписка на рассылку "Мир программирования на Visual BASIC и HTML".
Архив рассылок

Сайт рассылки: Program Studio
Автор: Павел

Ваши предложения можете присылать на prs@narod.ru.

Хотите опубликоваться? Присылайте свои статьи на prs@narod.ru и получите гонорар в показах RLE.
Hosted by uCoz