Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 | 4 | 5 | 6 |

 

  Вопрос: Создать ActiveX, подобный объекту line Добавлено: 22.08.06 19:44  

Автор вопроса:  -АлександР- | Web-сайт: sham.clan.su

Ответить

  Ответы Всего ответов: 76  

Номер ответа: 31
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #31 Добавлено: 26.08.06 17:30
А зачем вам линия в IDE? Рисуй линию программно, тем же .Line

Ответить

Номер ответа: 32
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #32 		Добавлено: 26.08.06 18:20
HACKER, нужно не линию а границу, короче зырь ответ №11.


Ты где был?

Ответить

Номер ответа: 33
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
  Web-сайт: sham.clan.su
 Профиль | | #33 		Добавлено: 26.08.06 22:09
Может у тебя форма маленькая или контрол. Ты сделай форму 443 х 385 и контрол растени на всю форму - должно заработать :)
Да, спасибо, ты был прав. Я просто растянул её на всю форму. Теперь и
у меня всё работает
Ещё раз спасибо.

ЗЫ:
Может, вместо 4 надо поставить 3, ведь массив оканчивается на 3:

rComb = CreatePolygonRgn(Poi(0), 3, 2)


А ты попробуй, так хуже получится. (тогда он и чертит по трём точкам, а не по четырём)

Пордон, уже поздно и по-видимому я устал, и не могу сообразить.
Dim maX As Integer, maY As Integer
Dim I As Integer
For i = 0 to 3
If Poi(i).X > max then max = po(i).x
if poi(i).y > may then may = po(i).y
Next i
Что это даёт? Или на что ты этим намекаешь?

Ответить

Номер ответа: 34
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
  Web-сайт: sham.clan.su
 Профиль | | #34 		Добавлено: 26.08.06 23:57
2HUCKER:
А зачем вам линия в IDE? Рисуй линию программно, тем же .Line
.line - это не контрол. У него нельзя задать толщину, разные свойства, я уж не говорю о возможности приделать к ней какое-то событие...

Хотя может она и лучше, если программировать в классе через АПИ(отв № 1), ведь тогда цвет программировать не надо... Впрочем идея с классом мне что-то все меньше нравится...

И по мере того, как я за него взялся, понял, что там дело даже не в том, чтобы составить алгоритм события mousedown, а само черчение прямой:
(пока в форме, в класс перенести всегда успею)
Option Explicit

Private Sub Form_Load()
AutoRedraw = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
x2 = X
y2 = Y

Form1.Refresh

Line (x1, y1)-(x2, y2)

End Sub

А как сделать, чтобы он эти прямые строил поочереди? При каждой новой - чертить заново все предыдущие? (вроде так програмка Sharpa работает, которую он привёл в топике "VB и AutoCad" (форум совм. проект)) Нет уж спасибо...

Ответить

Номер ответа: 35
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #35 		Добавлено: 27.08.06 13:05
Пордон, уже поздно и по-видимому я устал, и не могу сообразить


Какая бы не была форма у твоего контрола, он никогда не будет обрезаться.

Ответить

Номер ответа: 36
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #36 		Добавлено: 27.08.06 13:08
2HUCKER:


HUCKER... Гы...

Ответить

Номер ответа: 37
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #37 Добавлено: 27.08.06 14:47
HUCKER... Гы...
Возможности ограниченные у вб, хуки на то что хочеться легко не ставятся, поэтому я с ними не дружу...:)

Ещё есть в боксе приём такой, так что имеем ввиду :)

#11
С каких это пор Line стал оконным контролом? Жжоте, уважаемый.

Я и ничего не говорю про Line, а имею в веду PictureBox'ы, CommandButton'ы и т. д.

p.s. В VB все кроме Line выделяется 8-ю квадратами по бокам. Возможно ли сделать контрол (к примеру, многоугольник), который выделялся бы, например, 10-ю квадратами и эти квадраты можно было такскать как угодно? Возможно ли это, или Line единственная в своем роде?


Line выделяется 10 квадратиками???

line - это не контрол. У него нельзя задать толщину

Не контрол, но толщину задать можно помойму.. Там у линии помимо координат ещё много параметров...

Ты где был?
Водку пил, у меня ж ДР был...

Ответить

Номер ответа: 38
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #38 		Добавлено: 27.08.06 15:27
Водку пил, у меня ж ДР был...

ПОЗДРАВЛЯЕМ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :)))

Ответить

Номер ответа: 39
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #39 		Добавлено: 27.08.06 16:25
Line выделяется 10 квадратиками???
Считать я умею, не волнуйся :), имелось в виду, что Line выделяется двуймя квадратами, а все остальные контролы - восемью.

line - это не контрол. У него нельзя задать толщину

Как?! А DrawWidth?

Ответить

Номер ответа: 40
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #40 		Добавлено: 27.08.06 16:27
Короче обычным полигоном это дело вырезать на контроле, а квадратики рисовать вручную, методами Line(x,y)-(x1,y1), ,BF :)))))))))))))))))

Ответить

Номер ответа: 41
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
  Web-сайт: sham.clan.su
 Профиль | | #41 		Добавлено: 27.08.06 20:31
HUCKER, с днём рождения!!!!!

А что касается
Не контрол, но толщину задать можно помойму.. Там у линии помимо координат ещё много параметров...

Где?
Sub Line(Flags As Integer, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)

Ответить

Номер ответа: 42
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #42 Добавлено: 27.08.06 20:52
GDI юзать совсем не судьба?

Ответить

Номер ответа: 43
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #43 Добавлено: 27.08.06 21:21
Мы рыцари GDI'ая, мы борцы со злом )))

Ответить

Номер ответа: 44
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
  Web-сайт: sham.clan.su
 Профиль | | #44 		Добавлено: 27.08.06 22:08
GDI юзать совсем не судьба?
Пойми, мы сейчас пишем контрол на VB6, чтоб под VB.Net работала. Там GDI+ , который не переваривает GDI

Ответить

Номер ответа: 45
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #45 Добавлено: 27.08.06 22:30
Пойми, мы сейчас пишем контрол на VB6, чтоб под VB.Net работала. Там GDI+ , который не переваривает GDI

Что-то интересное вы там пишите...

В VB .NET есть GDI+, но возможность работы с GDI тоже кстати есть и два этих механизма можно использовать вместе, если, конечно, есть смысл (я считаю, что смысла нет)

Ни один нормальный человек не будет в Vb .NET использовать контрол-линию, написаную на VB6.
Это же абсурд!
Я лучше напишу пару вызовов System.Drawing, чем получить себе отличный геморой в виде COM Interrop! Вы вообще представляете, как это - использовать Vb-шный контрол? Тормоза и глюки в разных пропорциях будут гарантированы.

Вы, ребята, немного оторвались от реальности.
Нафига вы вообще эту байду пишите? Кому она нужна?

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам