Можно ли подписать оси графика и приписать к шкале осей цифры?

@Mr.GIR · Регистрация: 20.07.2011

Author24 — интернет-сервис помощи студентам

подскажите пожалуйста!
написал программку для построения графика. можно ли подписать оси графика и приписать к шкале осей цифры?

17.11.2011, 14:56

Не совсем понятный вопрос. Судя по моим догадкам речь идёт о рисования графика на форме. И вопрос заключается в том, можно ли на форме рисовать текст?
На всякий случай подсказываю (если речь идёт именно об этом), что текст на форме в VB рисуется с помощью метода Print
Перед рисованием обязательно нужно установить свойство AutoRedraw=True

Ещё можно перед выполнением метода Print задать свойства:
CurrentX - горизонтальная позиция курсора
CurrentY - вертикальная позиция курсора
ForeColor - цвет шрифта
Font - аттрибуты шрифта

Метод Cls очищает форму от рисунков

Вот пример:
Private Sub Form_Load()
AutoRedraw = True
ForeColor = vbRed
CurrentX = 200
CurrentY = 300
Font.Bold = True
Font.Size = 12
Print "Привет !"
End Sub

@Mr.GIR 0 / 0 / 0 Регистрация: 20.07.2011 Сообщений: 8
		1
	Можно ли подписать оси графика и приписать к шкале осей цифры? 17.11.2011, 11:27. Показов 1781. Ответов 1 Метки нет (Все метки) подскажите пожалуйста! написал программку для построения графика. можно ли подписать оси графика и приписать к шкале осей цифры? 0

aleksmir
	17.11.2011, 14:56	2
	Не совсем понятный вопрос. Судя по моим догадкам речь идёт о рисования графика на форме. И вопрос заключается в том, можно ли на форме рисовать текст? На всякий случай подсказываю (если речь идёт именно об этом), что текст на форме в VB рисуется с помощью метода Print Перед рисованием обязательно нужно установить свойство AutoRedraw=True Ещё можно перед выполнением метода Print задать свойства: CurrentX - горизонтальная позиция курсора CurrentY - вертикальная позиция курсора ForeColor - цвет шрифта Font - аттрибуты шрифта Метод Cls очищает форму от рисунков Вот пример: Private Sub Form_Load() AutoRedraw = True ForeColor = vbRed CurrentX = 200 CurrentY = 300 Font.Bold = True Font.Size = 12 Print "Привет !" End Sub

Опции темы