![]() |
![]() ![]() v.5.2011.12.30 |
Будь хитрее всех, используй хитрые инструменты! |
|
Visual Basic 5.0/6.0 - Окна и формыВсе примеры / Интерфейс / Окна и формыНестондартная форма
Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:39 | просмотров: 2508 (1+) | комментариев: 0 | рейтинг:
Простой пример формы (окна) в виде текста.
![]() КодOption Explicit Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Const RGN_COPY = 5 Private Sub Form_Load() Const Text = "IpatovSoft" Dim hRgn As Long Font.Name = "Times New Roman" Font.Underline = True Font.Size = 50 Width = TextWidth(Text) Height = TextHeight(Text) BeginPath hdc Print Text EndPath hdc hRgn = PathToRegion(hdc) SetWindowRgn hWnd, hRgn, False End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 54)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|