Hirdetés
- Meggyi001: Áram nélkül....méltóság nélkül.....
- MasterDeeJay: Intel Optane M10 mire lehet használni? Ötletek.
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- bambano: Bambanő háza tája
- Luck Dragon: Óraátállítás
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: MárkaLánc
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
Gh0sT
addikt
válasz
[HUN]Zolee
#475
üzenetére
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba?
Új hozzászólás Aktív témák
- Lenovo Chromebook 5 2in1 (2020)
- újszerű iPhone 15 Plus 128GB blue kék független Apple 100% akkumulátor
- Apple Watch Series 10 GPS 46mm kozmoszfekete alumíniumtok fekete Apple garancia
- Használt Nintendo Switch amoled
- szinte új Apple Watch Ultra 2 GPS + Cellular 49 mm fekete titántok titán milánói szíj 3 év garancia
- Belépő Gaming PC! i7-8700 / RTX 3060 Ti / 16GB DDR4 / 500GB SSD / Z390 / 500w!
- ÚJ AKCIÓS HP EliteBook 6 G1a Ryzen 5 PRO 230 16GB DDR5 512GB FHD+ 16:10 már jobbik kijelző, gar 2028
- Thermalright Phantom Spirit 120 SE
- Apple iPhone 12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
