Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)

3 сообщений из 3, страница 1 из 1

Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)

#37132097

Игорь1973

Гость

Так, чтобы форма выглядела точно также, как при разработке. См. рисунок.
Как это сделать, подскажите, плз.
Я пробую следующий код:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

    Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long, sngScaleWidth As Single, sngScaleHeight As Single
    
    sngScaleWidth = picContEdit( 0 ).ScaleWidth
    sngScaleHeight = picContEdit( 0 ).ScaleHeight
    
    For y1 =  0  To sngScaleHeight Step  8 
        For x1 =  8  To sngScaleWidth Step  8 
            .Line (x1, y1)-(x1 +  1 , y1)
        Next
    Next

Но получается немого не то.
Спасибо.

...

Рейтинг:

0 / 0

23.02.2011, 14:08

| Ответить | Цитировать | Написать

Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)

#37132150

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Option Explicit

Private Sub Form_Load()
    Dim y1 As Integer, x1 As Integer
    
    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels
    
    For x1 =  0  To Me.ScaleWidth Step  8 
        For y1 =  0  To Me.ScaleHeight Step  8 
            Me.PSet (x1, y1), vbBlack
        Next
    Next
End Sub

...

Рейтинг:

0 / 0

23.02.2011, 14:32

| Ответить | Цитировать | Написать

Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)

#37132157

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Или лучше так, горизонтальная перерисовка.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Option Explicit

Private Sub Form_Load()
    Dim y1 As Integer, x1 As Integer
    
    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels
    
    For y1 =  0  To Me.ScaleHeight Step  8 
        For x1 =  0  To Me.ScaleWidth Step  8 
            Me.PSet (x1, y1), vbBlack
        Next
    Next
End Sub

...

Рейтинг:

0 / 0

23.02.2011, 14:35

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37132097&tid=2158938]:	0ms
get settings:	12ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	12ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	326ms

total:	461ms