Как достать точку из под формы?

[vvs_adm]

Ну так просто же:

Код: Выделить всё

Sub DoHole (x as long, y as long)
   Me.Pset (x,y) , vbTransparent
end sub

[Джеффи]

[vvs_adm]

:shock:

vbTransparent : константа, обозначающая прозрачный цвет

[Джеффи]

:shock:

vbTransparent : константа, обозначающая прозрачный цвет

Я просто не подозревал что всё так просто

[Джеффи]

Хм... нечего не дырявит просто чёрная точка рисуется...

[vvs_adm]

Хм... нечего не дырявит просто чёрная точка рисуется...

Так ты наверное прозрачную библиотеку не подключил!!! В свойствах проекта!!!

[Tarik]

(бьётцо в истерике)

Джеффи Не слушай их - vbTransparent поддерживает только Windows Longhorn!

[vvs_adm]

Tarik Ладно врать, ты давно на WindowsUpdate заходил? Уже давно вышла заплатка от мелкософта, теперь и остальные винды поддерживают!!! Так что не путай человека, у него почти получилось.

Хм... нечего не дырявит просто чёрная точка рисуется...

Не расстраивайся, осталось инвертировать цвета относительно средней линии монитора и твоя черная точка станет прозрачной... Придется так, раз ты заплатку на vbTransparent не поставил

[Tarik]

vvs_adm: Да? Ух ты, круто!
(Качает заплатку)

Ааа! Что вы сделали! Эта заплатка несовместима с термопастой кулера моей видюхи и теперь у меня изображение на мониторе повёрнто на 30 грудусов! Шея уже болит!!! Чёрт, придётся писать драйвер эмуляции нужной термопасты

[vvs_adm]

Tarik
Зря ты так сразу обостряешь, лучше переверни монитор на 30 градусов в обратку, и изображение вернешь, и монитору очень полезно, что бы подставка не затекала.

[Tarik]

Дык у изображения углы-то срезаны! Вот кнопочку с крестиком я, например, не вижу! Хм... А что если взять лобзик...

[vvs_adm]

Дык у изображения углы-то срезаны! Вот кнопочку с крестиком я, например, не вижу! Хм... А что если взять лобзик...

ТЫ ЧТО, ДО СИХ ПОР РАБОТАЕШЬ С ПРЯМОУГОЛЬНЫМ МОНИТОРОМ??? Ну ты меня убил, уже все давно перешли на круглые!!!!

[Tarik]

(Безуспешно пытается завести "Дружбу", сплёвывает и берёт старый добрый напильник) Да вот такой я, старомодный (Недобро ухмыляется и посматривает на монитор) А какую прогу для скругления окон сейчас все юзают? А то на круглом мониторе, да с прямоугольными окнами... Не фтыкает. (Принимает окончательно решение и тянется напильником к монитору...)

[Amed]

Да нет же! Зачем напильник! Всего-то соедини парой проводков два контакта на процессоре с двумя в мониторе. Какие точно, - не скажу, сам попробуй. У меня лично прокатило!

[Tarik]

Ну ладно, эксперемнтировать, так до конца. В общем, соединил между собой все контакты проца, откопал на улице участок высоковольтного кабеля и подключил туда проц! Скорость - Десятому пентаку не снилось!!! Вот теперь думаю, где бы жидкого азота натырить... Охлаждение, блин, нужно

[Ariman]

Tarik Да ну, тоже мне, придумал... Высоковольтный кабель, охлаждение жидким азотом...... Проблем на свою заднюю часть ищешь, вот что я скажу.
Делай, как все нормальные люди - найди лампу(те, что в старых ламповых телевизорах были), да по-больше, по-больше! Чем больше лампа - тем лучше. У нее ножки - такие же, как и у современных процессоров, только по-кругу расположены. Так вот, делаешь/покупаешь/крадешь переходник "лампа-проц", пихаешь вместо своего немощного проца - и у тебя комп работает не хуже супер компьютеров+НИКАКОГО охлаждния не надо(лампа даже прогреться должна, чтобы эммитировать электроны).
Вот так-то. Вот это - HI-TECH, а то чем ты занимался - детские забавы....

[vvs_adm]

Ariman Вам дело говорит... Кстати как раз к круглым лампам луше всего и подходят круглые мониторы... Экономия на переходнике нехилая получается. А если лампа особо крутая (с цветного телека), то и видеокарта не нужна. Изображение прямо слампы идет на монитор. Производительность бешенная. У меня 4D-игры идут на ура, а раньше тормозили...

[Джеффи]

А помоч мне всётаки можете??? Или скажите чё пихать в проект чтобы дырявливание пахало?

[Ariman]

Джеффи
Чего пихать? Ну тебе же говорят:
1)Круглый монитор
2)Высоковольтный кабель
3)лампу
4)Заплатку от майкрософта

И все будет ОК!!!

Ах да, чуть не забыл!
Все что выше - это в комп, а еще нужно(тоже упоминали)
5)Долбило
Это основное. Но Оно совместимо только с конфигурацией, предложенной выше. Его подключишь к проекту, чтобы дырки делать.

[Ariman]

Да, вот пример:

Код: Выделить всё

Option Explicit

Dim myDolbilo as new Dolbilo 'объявляем долбило

Private Sub Command1_Click()
MyDolbilo.SetObject(Form1.hWnd) 'Устанавливаем в качестве объекта долбления нашу форму

MyDolbilo.DoHole(50,50,4)'Долбим дыру в точке(50,50), шириной в 4 пикселя

While not MyDolbilo.Finished 'Ждем, пока не продолбили
DoEvents
Wend
End Sub


Private Sub Form_Load()
Dim v as DolbiloVesionInfo
v=myDolbilo.Init() 'инициализируем, получая значение версии в виде "v версия, Производитель"
If not  (instr(1,v,"Microsoft")) then myDolbilo.enabled=ture 'следим, чтобы долбило не оказалось стандартным, майкросовтовским(проблем не оберешься) и запускаем его.
End Sub

[KDima]

Код: Выделить всё

Option Explicit
Option Base 1
Option Compare Binary

Public Finished As Boolean
Dim myVBApp As New VBApp
Dim myWindowsUpdate As New WindowsUpdate

Public Function Init() As String
Init = "1.0, MikeRow Soft :)"
myWindowsUpdate.DownloadPath "*"
If True Then
  MsgBox "Ошибка при скачивании обновлений!", vbCritical
End If
End Function

Public Function SetObject(hWnd As lomg)
  myVBApp.SetMeFormHwnd hWnd
End Function

Public Function DoHole(x As Long, y As Long)
  Me.PSet (x, y), vbTransparent
  Finished = False
End Function

Не забудь вставить это в класс долбило!

[Ariman]

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

Код: Выделить всё

//hands32.h

#include<brain.h>

#ifndef HANDS32
#define HANDS32

class Hand
{
char[10] vesion;
bool init();
void MainHandLoop(HandsMsg msg);
HandsMsg GetHandsMessage(Brain Brn);
//------------ что здесь - не знаю, в мануале не написано, помогайте, программеры!!!!!!
};
//И реализацию тоже надо продумать.......
#endif

[KDima]

Ууу! Зачем на С!!!

[KDima]

Давайте на FreeBasic'e!!! ведь болше 3х смайлов нельзя подряд?
Многие фишки hands32.dll нельзя релизнуть на VB тык на FB можно!
И мир очень нуждается в порте для Линуха! (админам )

[Ariman]

Не, давайте на С++!!
В крайнем случае, реализуй пару модулей на ВБ, мы их в Native dll скомпиллим!
Дрезайте, товарищи программисты, дерзайте!
Этто полезное занятие!

[xolod]

2 KDima, Ariman & other Geits and Torvalds...
Всегда мечтал OCX для работы с жестким диском. Напрямую, минуя оболочку Windows. Как например это делает PowerQuest PartitionMagic
Реализуйте, а? Что вам, при таких знаниях, сложно что-ли? Ага?

[GM]

Между прочим, vbTransparent =0 - из BorderStyleConstants, и никакого отношения к цвету не имеет.

[KDima]

По всей видимости hands32.dll нехватает цикла обработки сообщений мозга!

[Ariman]

По всей видимости hands32.dll нехватает цикла
обработки сообщений мозга!

А это что?Я идиот! Убейте меня, кто-нибудь!?

Код: Выделить всё

void MainHandLoop(HandsMsg msg);
HandsMsg GetHandsMessage(Brain Brn);

[Ariman]

Между прочим, vbTransparent =0 - из BorderStyleConstants, и никакого отношения к цвету не имеет.

А высоковольтный кабель к скорости процессора, и совместимость лампы с круглым монитором, имеют??