genede emeğe saygı düşünmesi yeterli

Onun Yerine flash animasyonlu bi yazı hazırlayıp onu koysan çok daha güzel şeyler yapabilrsn.

Teşşekürler Blot. Bunu herhangi bir splash screen'e koyabilirim demi?

Arkadaşlar bu kod kolay gibi görünebilir fakat gerçekten kullanışlı ve güzel bir koddur Aslında yaptığı şey 3 tane label'ı kullanarak Loader şeklinde kullandırmak. Örneğin Yükleniyor... yazısını daha can alıcı bir şekilde kullanıcıya göstermek Bu kodlar bu anlattığım şeyleri yapmaktadır : Kod: Private Declare Sub Sleep Lib "kernel32" Public Sub LoaderLbl(L1 As Label, L2 As Label, L3 As Label, byt As String, Optional DELIM As String = "\\", _ Optional minFontSize As Double = 11, Optional maxFontSize As Double = 24, Optional Bold As Boolean = True, _ Optional SleepTime As Double = 30, Optional Siraligit As Boolean = False, Optional Animation As Boolean = True) Dim i# Dim str$ Static inmbr# Static nmbr# str = Split 'Eğer sırali gidilmeyecek ise If Siraligit = False Then Randomize Do nmbr = (Rnd 1024) Mod (UBound + 1) If nmbr <> inmbr Then Exit Do If UBound = 0 Then Exit Do Loop inmbr = nmbr End If ' 'Eğer L2'nin Fontu fazla ise animaston yap If L2. FontSize = maxFontSize And Animation = True Then For i = minFontSize To maxFontSize L2. FontSize = maxFontSize - i + minFontSize L2. Left = L1. Left + L1. Width L3. Left = L2. Left + L2. Width L2. Top = L1. Top + L1. Height - L2. Height - 80 maxFontSize / 48 L3. Top = L1. Top Sleep SleepTime DoEvents Next End If L1 = "" L2 = "" L3 = "" 'Kelimeler ayarlanıyor For i = 0 To nmbr - 1 L1 = L1 & str Next L2 = str For i = nmbr + 1 To UBound L3 = L3 & str Next 'Eğer Sırali gitdilecek ise If Siraligit = True Then nmbr = nmbr + 1 If nmbr > UBound Then nmbr = 0 End If ' 'Labellar ayarlanıyor L1. AutoSize = True L2. AutoSize = True L3. AutoSize = True L2. FontBold = Bold L1. Font = minFontSize 'Animasyon ayarları If Animation = True Then L2. FontSize = minFontSize Else L2. FontSize = maxFontSize End If L3. Font = minFontSize If Animation = True Then For i = minFontSize To maxFontSize L2. FontSize = i L2. Left = L1. Left + L1. Width L3. Left = L2. Left + L2. Width L2. Top = L1. Top + L1. Height - L2. Height - 80 maxFontSize / 48 L3. Top = L1. Top Sleep SleepTime DoEvents Next Else L2. Left = L1. Left + L1. Width L3. Left = L2. Left + L2. Width L2. Top = L1. Top + L1. Height - L2. Height - 80 maxFontSize / 48 L3. Top = L1. Top End If End Sub Kod olarak bunu istediğiniz yere kopyaladıktan sonra Örnek olarak şu uygulamayı kullanabilirsiniz Tabi bu fonksiyonu nasıl kullanılacağını görmek için bir tane formunuza Timer ekleyin, intervalini ideal olarak 250 yapın sonrada aşağıdaki kodları timer'ın içine koyun Kod: Call LoaderLbl(L1, L2, L3, "Wardom \\Blot \\Loader \\Label", , 24, 28, , 50) Şimdi burada "\\" ne işe yarıyor : Örnek vermek gerekirse "Wardom \\Blot..." yerine "Wardom Blot\\..." yazarsanız Blot yazısı yerine Wardom Blot yazısı büyüyüp küçülecektir Siraligit fonksiyonu ise sırası ile yazıların büyüyüp küçülmesini sağlar, Bold büyüyen yazının kalın olmasını sağlar, Animation Animasoyon ayarıdır, Sleeptime büyüyüp küçülme arasındaki zamanlamadır... Diğerleri zaten isimlerinden belli Neyse arkadaşlar sizlere kolay gelsin, iyi Kodlamalar Not: Bu kod alıntı değildir, Bizzat Blot taradından yapılmıştır Not 2: Kodu defalarca denedim, çalışmaktadır...