Спецэфекты на VB

[Sonic the Hedgehog]

Люди, скажите код как делать форму прозрачной
и как вставить в форму музыку какую-нить

[xolod]

"Все, больше могу..." ©
Тысячу раз об этом уже говорили.. В лом поиск использовать (это кнопочка такая маленькая в виде лупы

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

Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    Dim Ret As Long

    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub


[Sonic the Hedgehog]

Аааааааааа уа уа уа уа!
Что так много писать
мне это всё неделю учить надо
так как не всё понимаю
У кого есть такая програмка прозрачная или с музыкой ! дайте исходник пожалуйсто ! желательно с пояснением
спасибо

[Sonic the Hedgehog]

А что означает, xolod, первые строчки Const

[Sonic the Hedgehog]

Не буду задавать глупых вопросов, пойду лучше функции учить тогда!

[xolod]

Ты бы книжечку купил по VB и почитал.. А то судя по постам - ты не рубишь совсем

[Sonic the Hedgehog]

Щас как начну рубить ! будете знать

[Sonic the Hedgehog]

И Ещё вопрос:
что такое ActiveX ?

[GSerg]

Это раздел нашего форума...

[Sonic the Hedgehog]

Не а что такое вообще ActiveX
просто тут VB для новичков
вот я и решил его задать тут!

[tyomitch]

Это технология создания компонентов.

[Sonic the Hedgehog]

клёва!
VB ЭТО КЛЁВАААА

[Ramzes]

А что означает, xolod, первые строчки Const

Это константы - Данные которые не могут быть измнены во время работы программы

[Sonic the Hedgehog]

Ишь ты, спасибо, а остальное объяснить слабо ?

[Ramzes]

Мне не слабо, а тебе слабо Api Guide почитать???

[Sonic the Hedgehog]

ишь ты! что-за люди пошли
А у меня нету api

[Amed]

http://users.chello.be/cr27630/3.7/agsetup.exe

[Sonic the Hedgehog]

И ещё люди, как сделать Text1.Text так чтоб в нём можно было написать ни одну строчку, а перейти на новую строчку и т п
помогите плизз

[Amed]

Text1.Multiline=True

[Sonic the Hedgehog]

Спасибо
А как ScroolBar вертикальный, прикрепить к тексту?

[Amed]

Text1.Scrollbars=3 'both

Поэкспериментируй ещё с 0, 1, 2...

[Sonic the Hedgehog]

Большое спасибо Amed!

[Sonic the Hedgehog]

Ещё помогите пжалста:
а как сделать так
что в тексте пишешь пешешь и в верху в Label1 отображалось сколько символов ты написал
???

[tyomitch]

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

Label1 = Len(Text1.Text)

[Sonic the Hedgehog]

А можно сделать так чтоб цыфры считались на ходу в Labele
1 2 3 4 5 6 7 8 9

[Sonic the Hedgehog]

А можно сделать так чтоб цыфры считались на ходу в Labele
1 2 3 4 5 6 7 8 9

[tyomitch]

На чьём ходу? Объясни подробнее, что нужно.

[Sonic the Hedgehog]

Ну вот вот текст! вот Label
и когда в тексте пишешь в лабеле идёт подсчёт символов
а который код мне дали то (количество символов) стоит на одном месте

[SHURUP]

СМОТРЯ КУДА ВСТАВИТЬ!
У меня работает

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

Private Sub Text1_Change()
Label1 = Len(Text1.Text)
End Sub

[Sonic the Hedgehog]

Спасибо ! Заработало! а то я код вставлял в загрузку формы