Új hozzászólás Aktív témák

• [HUN]Zolee őstag

  #479

  #478 Gh0sT

  2006-05-22 16:56:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #478 Gh0sT

  #478 Gh0sT

  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?
  
  

  Dim n As Integer
  For n = 1 to 100
  Me.Opacity = n/100
  System.Threading.Thread.Sleep(5
  Me.Refresh()
  Next
  
  így jó lesz
  kifelejtetted a form frissítést.
  
  [Szerkesztve]
  
  [Szerkesztve]

Új hozzászólás Aktív témák