Merhabalar:...
Eminim çoğu kişi konunun başlığına takılarak buraya gelmiştir.
(Sadece tahminim)
Çünkü gerçekten başka bir başlık bulamadım. En uygunu buydu. Neyse örneğe geçelim.
Örnek kolay bir yapıdan oluşuyor. (Modül,Sorgu,Makro vs. yok. Sadece bir formdan ve içindeki kodlardan oluşuyor.)
Örnekteki kodları da sizinle paylaşayım.
Yazdığınız metni labelde fantastik biçimde yazmak için kullandığım butonun kodu:
Buda Losuj kodu:
Aslında bu kodlar bana ait değil,başka bir yerden buldum. Sadece bana kalan görev:
Kendi uygulamamı oluşturmak,kullanmak ve SİZ DEĞERLİ DOSTLARIMLA paylaşmak oldu..
Buyrun:
FurkanTorun-FurqanTrYapim.rar (Boyut: 11,79 KB / İndirilme: 357)
Eminim çoğu kişi konunun başlığına takılarak buraya gelmiştir.
(Sadece tahminim)Çünkü gerçekten başka bir başlık bulamadım. En uygunu buydu. Neyse örneğe geçelim.
Örnek kolay bir yapıdan oluşuyor. (Modül,Sorgu,Makro vs. yok. Sadece bir formdan ve içindeki kodlardan oluşuyor.)
Örnekteki kodları da sizinle paylaşayım.
Yazdığınız metni labelde fantastik biçimde yazmak için kullandığım butonun kodu:
Visual Basic
- Private Sub Go_Click()
- Dim k, p, y, t
- t = Me.Tekst: k = 1: p = ""
- While Me.etykieta.Caption <> t
- Me.etykieta.Caption = p & Losuj(Right$(t, Len(t) - k + 1))
- If Mid$(Me.etykieta.Caption, k, 1) = Mid$(t, k, 1) Then
- p = p & Mid$(t, k, 1): k = k + 1
- End If
- Me.Repaint
- Wend
- End Sub
Buda Losuj kodu:
Visual Basic
- Function Losuj(txt)
- Dim x As Integer, tt As String
- x = 1
- While x <= Len(txt)
- tt = tt & Chr(Int(224 * Rnd + 32)): x = x + 1
- Wend
- Losuj = tt
- End Function
Aslında bu kodlar bana ait değil,başka bir yerden buldum. Sadece bana kalan görev:
Kendi uygulamamı oluşturmak,kullanmak ve SİZ DEĞERLİ DOSTLARIMLA paylaşmak oldu..
Buyrun:
FurkanTorun-FurqanTrYapim.rar (Boyut: 11,79 KB / İndirilme: 357)
