Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому) / 3 сообщений из 3, страница 1 из 1
23.02.2011, 14:08
    #37132097
Игорь1973
Игорь1973
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)
Так, чтобы форма выглядела точно также, как при разработке. См. рисунок.
Как это сделать, подскажите, плз.
Я пробую следующий код:

Код: 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:32
    #37132150
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)
Код: 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:35
    #37132157
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому)
Или лучше так, горизонтальная перерисовка.

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нарисовать на форме VB6 точки-маркеры с помощью метода Line (или по-другому) / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 448ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158938]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 316ms
total:  448ms
x
x
Закрыть


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