Вывод сообщения средствами VB
Формулировка задачи:
Добрый день! Можно ли, красивую надпись вывести на форме. То есть не просто сообщение, а покрасивее там, к примеру что-то типа картинки во вложении, но не картинку показать, а надпись с эффектами, надеюсь поняли.
Или точно так же как на картинке.
Решение задачи: «Вывод сообщения средствами VB»
textual
Листинг программы
- Private Sub Form_Load()
- Dim i As Integer
- Picture1.CurrentX = 1
- Picture1.CurrentY = 0
- Picture1.ForeColor = vbBlack
- Picture1.Print "Text3D"
- Picture1.CurrentX = 0
- Picture1.CurrentY = 1
- Picture1.ForeColor = vbBlue
- Picture1.Print "Text3D"
- For i = 0 To 5
- Picture2.CurrentX = 5 - i
- Picture2.CurrentY = i
- Picture2.ForeColor = RGB(100, 0, 0)
- Picture2.Print "Text3D"
- Next
- Picture2.CurrentX = 0
- Picture2.CurrentY = 5
- Picture2.ForeColor = RGB(150, 0, 0)
- Picture2.Print "Text3D"
- For i = 0 To 5
- Picture3.CurrentX = 5 - i
- Picture3.CurrentY = i
- Picture3.ForeColor = RGB(0, 50 + i * 20, 0)
- Picture3.Print "Text3D"
- Next
- Picture3.CurrentX = 0
- Picture3.CurrentY = 5
- Picture3.ForeColor = RGB(0, 200, 0)
- Picture3.Print "Text3D"
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д