Рисование текста на форме и метке

@murfik · Регистрация: 21.07.2012

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

Здравствуйте, форумчане. Есть вот такой код. Программа пишет на форме и на метке Label. На форме пишет, а на метке нет. Объясните почему.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
    Dim Строгий_шрифт As New Font("Arial", 20, FontStyle.Bold)
    Dim Красивый_шрифт As New Font("Times", 80, FontStyle.Bold Or FontStyle.Italic)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Граф As Graphics = Me.CreateGraphics
        Граф.DrawString("Всегда!", Строгий_шрифт, Brushes.Black, 0, 50)
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Гр As Graphics = Label1.CreateGraphics
        Dim T1 As New Point(40, 20)
        Dim T2 As New Point(20, 40)
        Dim Кисть As New Drawing2D.LinearGradientBrush(T1, T2, Color.Blue, Color.Yellow)
        Гр.DrawString("Привет!", Красивый_шрифт, Кисть, 0, 0)
        Гр.DrawString("издалека", Строгий_шрифт, Brushes.Black, 300, 100)
    End Sub
End Class

Добавлено через 27 минут
Рисует на форме и метке разноцветный текст.

Добавлено через 28 минут
Изменил компонент Label на PictureBox все заработало. Тему можно закрывать.

@Yury Komar · 07.09.2016, 04:30

а зачем рисоват на лэйбе? он в свойстве текст по другому отображается чтоли?

@murfik · 07.09.2016, 17:53 **[ТС]**

Просто у Лукина в его книге "Понятно о vb.net" так составлена программа, но это не работает.

@Step_UA · 07.09.2016, 20:49

murfik, установите для autosize (Label1) false и задайте побольше размер, например 500*150

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Yury Komar Модератор 4357 / 3427 / 512 Регистрация: 27.01.2014 Сообщений: 6,258
	07.09.2016, 04:30
	а зачем рисоват на лэйбе? он в свойстве текст по другому отображается чтоли? 0

@murfik 6 / 6 / 0 Регистрация: 21.07.2012 Сообщений: 144
	07.09.2016, 17:53 [ТС]
	Просто у Лукина в его книге "Понятно о vb.net" так составлена программа, но это не работает. 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	07.09.2016, 20:49
	murfik, установите для autosize (Label1) false и задайте побольше размер, например 500*150 0