Помогите разобраться!

[moppuk]

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

Dim x0 As Single, y0 As Single, DrawFirst As Boolean

Private Sub Form_Load()
DrawMode = vbInvert (почему инверт?)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
x0 = X
y0 = Y
DrawFirst = True
End Sub


Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'если кнопка не нажата - выход из процедуры'
If Button = 0 Then Exit Sub
Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь! не понимаю, что вот тут происходит.
и Как работают координаты...
ForeColor = vbRed


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
DrawFirst = faulse
End Sub

Я понимаю, вы начнете ругаться, читай есть на форуме. Да я нашел, но вот разобраться не получается! Да и почему-то цвет линии не меняется, а все время черная! ForeColor = vbRed - это вот так, как я понимю...

[Matew]

1. Поставь пиксели в св-вах.
2. там где вопросы пиши типа:

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

me.line(x0,y0)-(x1,y1), me.backcolor ' закрасить предыдущую линию
x1=x' глобальные
y1=y
me.line(x0,y0)-(x1,y1), vbRed


в маусАп или запоминай координаты, что бы происовывать их каждый раз в событии форм_пайнт или создаваь Shape(линию). В общем поправь, если че..

[Info_m.be_free]

Странно что я это говорю.. но для постановки данной задачи необходимо выяснить - что это за код? зачем тебе линия на форме? сколько всего линий на форме необходимо? почему именно красную?

Если ты хочешь использовать DrawFirst или DrawFаst необходимо менять цвет пера а не линии. а если линии то надо менять BorderStyle, а не ForeColor. Все время черная она может быть потому что Drawmode = Blackness или монитор отображает только черный цвет. Можно исправить заменой монитора. Интересно получится также если выбрать Drawmode =Nop.
Координаты работают наоборот.

DrawFirst = faulse - может заработать будет не сразу, особенно если переменная faulse будет String.
ЗЫ: За дополнительными сведениями читайте
А.В. Г.В. Фролов Диалог.Мифи Москва 1994 г.- "Графический интерфейс GDI в Microsoft Windows"
(14 том БСП) ну и конечно Этот журнал как его? Забыл.
___________________________________________________________
С уважением Я. Кто же ещё....

offtор: Политика как обычно переменилась не знаю корректно ли давать код или вообще отвечать ... радуют PUNK-GRUNGER Novichok$ burnIIIusion Юджин moppuk и конечно же я Ж)

[moppuk]

не работает нормально...
Какая-то вообще фигня понлучатся.
Объясните кто-нибудт подробнее как это правильно и грамотно сделать!

[d3drm]

выложи свой проект - поправим.