İKİ DAKİKA GÜNCEL HABER MERKEZİ

Timer Uygulaması

Yazar jawscod2

Option Explicit
Dim ad
Dim yazi As String
Private Sub Command1_Click()
Text1.ForeColor = ad
yazi = String(30, ” “) + “serdar daloğlu”
Timer1.Enabled = True
End Sub

Private Sub Option1_Click()
ad = vbRed
Command1_Click
End Sub

Private Sub Option2_Click()
ad = vbBlue
Command1_Click
End Sub

Private Sub Option3_Click()
ad = vbBlack
Command1_Click
End Sub

Private Sub Option4_Click()
ad = vbYellow
Command1_Click
End Sub

Private Sub Option5_Click()
ad = vbWhite
Command1_Click
End Sub

Private Sub Timer1_Timer()
yazi = Mid(yazi, 2) & Left(yazi, 1)
Text1 = yazi
End Sub

Bu yazı toplamda 51, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın

• İnternet Programı
• String Fonksiyonlari
• Adam Asmaca Oyunu
• Tek Tusla Windows Kapama
• Renk Geçişi
• Titreyen Form
• Bilgisayarı Konuşturma
• Dll Kullanımı
• Adodc Bağlantı Yöntemleri
• Taksitli Satış Programı

Aradığınız bu haberimizde yoksa, alttaki kutucuğa yazarak google yada sitemizde arama yapmak size yardımcı olabilir.

	Arama terimlerinizi girin Arama formu g�nder
	Web www.ikidakika.com