ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен компонент как в простом Basic команда Circle
15 сообщений из 15, страница 1 из 1
Нужен компонент как в простом Basic команда Circle
    #37118519
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Нужен компонент, как в простом Basic команда Circle,
но обьязательно нужны также параметры как точка начала и точка конца, тоесть круг не замкнут и не зарисован.
Что подскажите ?
...
Рейтинг: 0 / 0
16.02.2011, 01:42
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37118703
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Андрей159,

а точками нарисовать не подойдет?
...
Рейтинг: 0 / 0
16.02.2011, 09:02
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37118734
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Игорь ГорбоносАндрей159,

а точками нарисовать не подойдет?или линиями :)
...
Рейтинг: 0 / 0
16.02.2011, 09:15
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37119028
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Андрей159Что подскажите ?Поскажем читать справку перед тем как задавать вопросы на форуме. Circle есть и умеет даже больше, чем требуется.
...
Рейтинг: 0 / 0
16.02.2011, 10:56
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37119061
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Канонiчный (слегка доделанный) пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Form_Click()
   Dim CX, CY, Radius, Limit   ' Declare variable.
   Cls
   Randomize
   ScaleMode =  3    ' Set scale to pixels.
   CX = ScaleWidth /  2    ' Set X position.
   CY = ScaleHeight /  2    ' Set Y position.
   If CX > CY Then Limit = CY Else Limit = CX
   For Radius =  0  To Limit   ' Set radius.
      Circle (CX, CY), Radius, RGB(Rnd *  255 , Rnd *  255 , Rnd *  255 ), Rnd /  2 , Rnd *  2 , Rnd
   Next Radius
End Sub
...
Рейтинг: 0 / 0
16.02.2011, 11:07
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37121154
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
О... забыли про Sin и Cos еще написать (кстати мое любимое занятие выводить формулы по плавности движения, плавного ускорения и замедления).

Я ж не первый день на форуме, извените пожалуйста, учусь, стараюсь самостоятельно все решать, не стал бы задавать такой вопрос если б просто хотел нарисовать полукруг. Нужен компонент . Тоесть как Shape, но чуть покруче , поскольку мне нужно осуществить свободное перетаскивание мышкой элемента во времья исполнения программы . Даже если я нарисую в собственном элементе полукруг, то мне неизвесно как задать к нему события нажатия мышки, отпускания. Можно делать масив своих элементов и перекрашивать все времья форму в цыкле, но для этого совсем тогда не обьязательно визуал юзать, можно на блиц бейсике дольше посидеть и эфективней выйдет, хоть я не люблю этот язык, поскольку там нет прерывателя Ctrl+Scroll Lock. В первую очередь нужно для удобства, это не для курсовой (дипломной), я уже не в том возрасте. Скрипты пишу для фрез.верстата, пока вручную. Хочу автоматизировать. Типа паинта своего сделать. Дело времья только, хотя хочеться побыстрей конечно.
...
Рейтинг: 0 / 0
16.02.2011, 21:25
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37121156
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Впрочем, может я не коректо вопрос задал, хотя компонет тяжело спутать с командой. Ай да ладно...
...
Рейтинг: 0 / 0
16.02.2011, 21:29
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37121318
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Андрей159,

10173060 может сделаешь сам, такой который нужен? :)
...
Рейтинг: 0 / 0
17.02.2011, 00:39
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37121378
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Посмотрел ссилку, увидел гдето слово ворд вначале и подумал: "Йопсель-мопсель, я ж и забыл что меня ворд может выручить". Остается только сделать прогу транслит с макроса в скрипт.
Всем спасибо. Закрываем тему
...
Рейтинг: 0 / 0
17.02.2011, 03:20
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37121636
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Андрей159
> ... и подумал: "Йопсель-мопсель, я ж и забыл что меня ворд может выручить".

Это сарказм?
Я не встречал контрола с нужной тебе функциональностью, поэтому тебе дал ссылку на пост, в котором выкладывал исходники
одного своего проекта. Там идет интерактивное взаимодействие пользователя и нарисованного изображения. У меня рисуются
прямугольные объекты, можно переделать под сектора или сегменты.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.02.2011, 10:20
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37122553
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Андрей159Я ж не первый день на форуме, извените пожалуйста, учусь, стараюсь самостоятельно все решать, не стал бы задавать такой вопрос если б просто хотел нарисовать полукруг. Нужен компонент .Ну не первый. А толку?
Что мешает завернуть эту команду в UserControl и тем самым получить компонент?
...
Рейтинг: 0 / 0
17.02.2011, 15:00
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37123018
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
"Ну не первый день на форуме. А толку?" Ну да, если читать чужие вопросы и тратить свое времья на ответ, то толку от меня мало. Почти нет у меня свободного времья, а работать програмистом в офисе на когото (с свободным времьям) я не хочу. Я сам на себя работаю. Нужно вертется. Уж что поделаю.

Про контрол думал.
В контрол то завернуть могу, а события перетаскивания нужно поискать как делать

Нашел у себя книгу векторной графики (когда-то покупал). Автор описывает формулы преобрезования таких инструментов как Pen Tool в фотошопе. Тоесть если известно точку А, В, С... и параметр искривления, то описывается как создать неполный круг, как расчитать его центр и дополнительные параметры. Остановился всетаки на ворд-> автофигуры -> линии -> кривая. Рисовать (трафаретить) удобней таким инструментом чем подбирать круги (контрол) под нужный эскиз
...
Рейтинг: 0 / 0
17.02.2011, 17:38
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37123085
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Причем тут вопросы и ответы, а тем более кто на кого работает? Отсутствие толка я вижу в посещении форума, на котором вы не первый даже год, но очевидная мысль о контроле к вам в голову почему-то не пришла. Или вы ее скрыли.

события перетаскивания Необходимый минимум:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim dx, dy

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.DragMode = vbManual
    dx = X
    dy = Y
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.DragMode = vbAutomatic
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Left = X - dx
    Source.Top = Y - dy
End Sub
...
Рейтинг: 0 / 0
17.02.2011, 18:09
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37123332
Фотография Green2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Green2Привилегированный пользователь
Участник
Уточни задачу, зачем нужно рисовать круг и почему его приходится таскать мышью?
...
Рейтинг: 0 / 0
17.02.2011, 21:14
| Ответить | Цитировать | Написать  
Нужен компонент как в простом Basic команда Circle
    #37123462
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Green2Уточни задачу, зачем нужно рисовать круг и почему его приходится таскать мышью?
10248150

To Antonariy:
Спасибо
...
Рейтинг: 0 / 0
17.02.2011, 23:30
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен компонент как в простом Basic команда Circle
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2158947]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 10ms
get forum data:
 1ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 11ms
total:  152ms
созд. / загр.: 152ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]