Транспарентна Форма (Опацити)
Овај пут желим да покажемо мали пример у Висуал Басиц нето. да сам волео кад сам први пут. То није нешто што ми користимо сваки дан, али сам сигуран да ће се допада, а где ћете наћи. Ја посебно волим да га користите када сам показати слику "о ..." У неким од мојих апликација ...
То је постепено појављивање форми, почиње све док се јасно гледа на 100%. Да бисте то урадили морамо да користимо контролу тајмера и Опацити имовину обрасца.
У примеру ћемо креирати оно што две форме Форм1 и Форм2 (), Форм1 са дугметом и акција овог дугмета је да позовете другу форму. Други облик постепено ће се појавити и да ће учинити исто када смо затворили. То би требало да изгледа као на слици испод:
Па, на посао, хаха.
Прво кликните дугме догађај да учита другу форму:
Привате Суб Буттон1_Цлицк (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) ручке Буттон1.Цлицк Ас Нев Форм2 Дим вФорм2 вФорм2.СховДиалог () Енд Суб
У другом инсерта две компоненте обрасца Тајмер (Тимер1 и Тимер2). Затим копирајте следећи код:
Форм2_Лоад Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) ручке МиБасе.Лоад Ме.Опацити = 0 Тимер1.Интервал = 25 Тимер1.Енаблед = Труе Енд Суб Форм2_ФормЦлосинг Привате Суб (БиВал сендер Ас Објецт и БиВал е Ас Систем.Виндовс.Формс.ФормЦлосингЕвентАргс) Хандлес Ме.ФормЦлосинг Тимер2.Интервал = 25 Тимер2.Енаблед = Труе Ако Ме.Опацити> 0 Тхен е.Цанцел = Труе Енд Иф Енд Суб Тимер1_Тицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) Хандлес Тимер1.Тицк Ако Ме.Опацити = 1 Затим Тимер1.Енаблед = Нетачно Друго Ме.Опацити Ме.Опацити + 0.02 = Ме.Рефресх () Енд Иф Енд Суб Тимер2_Тицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) Хандлес Тимер2.Тицк Ако Ме.Опацити = 0 Онда Тимер2.Енаблед = Нетачно Ме.Цлосе () Друго Ме.Опацити Ме.Опацити = - 0.02 Ме.Рефресх () Енд Иф Енд Суб
Ја ћу укратко објаснити шта то ради:
Виндовс Формс имају имовину под називом Непрозирност да складишти вредност од 0 до 1. Ова вредност означава проценат непрозирности у облику, где је 1 100% 0 0% непрозиран и непрозирно, што би било исто као и рећи 100% транспарентан. Дакле, са вредношћу 0,5 ће имати 50 одсто образац 50% непрозирно, или провидна (колико желите).
Шта чини тајмер контроле је да покренете код у случају Тајмер крпеља је миестрас омогућити својство на Труе и сваки интервал одређује интервал имовине.
Онда имамо Тимер1 за када отворите образац (отуда ацриво "Тимер1.Енабле = Труе" у Лоад догађај и да Тимер2 када је затворен (На манифестацији затварања обрасца).
Па, нећу елаборирати на објашњења, јер код је кратак и мислим да је много више од разјасни.
Ако волите овај пример оставите коментар. Волео бих да знам шта су преференције мојих посетилаца.
20 Респонсес то "облик Транспарентна (Опацити)"
Коментар
Информације Битацорас.цом ...
Оцени у Битацорас.цом: Овај пут желим да покажемо мали пример који ми се допао кад сам први пут. То није нешто што ми користимо сваки дан, али сам сигуран да ће се допада, а где ћете наћи. Партицуларм ...
Хвала!
ГМН негц ... бингунг ... Др Мана Дулу мулаи Ниа ..
ГМН Сидебар Направи клу кајак?
Ух управо Буно импреционо мене хаха
хвала
Овај супер фини људи, али ако можете, ако можете да ми пошаљете нове песме на мој маил и ја веома захвални мушкарцима ...
Добар дан масти, нећете имати пример да контролишу (или налепница, дугме, рам) транспарентан? хвала
хвала човек ово је добро код да је оно што човек гледа естава захваљујући друге слушалице
Хвала вам добро ове ЕСПЛИЦАДО
Хвала брате АЦ пут сам гледао ово, она постиже про АЦР д другачије К се не хтели, сада проблем не постизања АЦР К КЛ ефекат се дешава када се форма налази у другој ваааааааааааа.
Хвала
Есат добро ....
али бих волела да знам како да се приказују слике к УА другом али да десванесцан или постану транспарентни непрозирност ....
грасиас надам се да ми помогне!
Тражим да се транспарентно, или променити своје Опацити, једним контролом, не обрасца. неко зна.
Нису све контроле имају ову особину, требало би да проучите сваку посебну контролу.
Је веома добра хвала пуно
веома добар наставак је цењена више информација молимо Вас да ово веома интересантно .....
Сјајно.
Погледао сам на неколико сајтова екплицанцион лак за управљање компоненте Висуал Студио. алгунсо су веома сиромашни, остали нису јасне, а други се многе ствари и компликују.
Желим да вам честитам на вашем блогу. Практично, "сингл" да објасни и веома корисна.
Хвала вам пуно ми је помогао.
Настави да бисте видели примере да се ускоро заврши пројекат имам у кући.
Даглас Салседо
Чудо - Еквадор
Хвала пуно на коментару, то је дух који покреће овај блог: Не знам све, али сваки чланак написан да објасни га као једноставно и практично могуће, сваки предмет.
Поздрав
Јелисије
Добар посао
молим вас, ја сам супер заглави, треба да знам код за преузимање садржаја ћелије где кликнем на датагридвиев у Висуал Студио, ја бих га заиста ценим, надам се да свој одговор ... хвала
Здраво
морају да пишу код у цлицк догађају ћелије и чита вредност датагридвиев1.цуррентЦелл.валуе
или
датагридвиев1.цуррентров.целл (Н) вредност где је н индекс колоне у питању.
Надам се да служе
ГрдДатос_МоусеДоублеЦлицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас Систем.Виндовс.Формс.МоусеЕвентАргс) Хандлес ГрдДатос.МоусеДоублеЦлицк
Ако Цонверт.ТоИнт32 (ГрдДатос.ЦуррентРов.Индек) <= Цонверт.ТоИнт32 (ГрдДатос.Ровс.Цоунт - 2) Онда
тктОрденинтер.Тект = ГрдДатос.ЦуррентРов.Целлс (0). Валуе.ТоСтринг ()
Енд Иф
тктОрденинтер.Тект = ГрдДатос.ЦуррентРов.Целлс (0). Валуе.ТоСтринг ()
тктПартинтер.Тект = ГрдДатос.ЦуррентРов.Целлс (1). Валуе.ТоСтринг ()
тктЦант_тер1интер.Тект = ГрдДатос.ЦуррентРов.Целлс (4). Валуе.ТоСтринг ()
тктцантдисп.Тект = ГрдДатос.ЦуррентРов.Целлс (5). Валуе.ТоСтринг ()
тктЦант_ЕнвиоИнтер.Тект = ГрдДатос.ЦуррентРов.Целлс (6). Валуе.ТоСтринг ()
тктЛотинтер.Тект = ГрдДатос.ЦуррентРов.Целлс (10). Валуе.ТоСтринг ()
тктМедидаИнтер.Тект = ГрдДатос.ЦуррентРов.Целлс (13). Валуе.ТоСтринг ()
АцтДесБотонес (ТРУЕ)
Ако Цонверт.ТоИнт32 (ГрдДатос.ЦуррентРов.Целлс (4) Вредност.) = 0 Онда
бтнМодифицарИнтер.Енаблед = Нетачно
Енд Иф
тктЦант_ЕнвиоИнтер.Фоцус ()
Енд Суб
Надам се да СЕРВЕ