Arama Sonuçları

Memoryhackers'ta denemeyiniz ! :D Gerekenler : 1 Adet Label 1 Adet Textbox 1 Adet Richtextbox Bunları ekledikten sonra fotoğrafa benzer bir çalışma yapın. Birde Button ekleyip şu kodu yazınız. (BUTONUN İÇİNE) Siteyi yazıp veriyi çek dediğinizde veri gelicektir. Dim client As New...

Label'i fare yönünde hareket ettirtme. 3 TANE LABEL OLUŞTURUNUZ VE AŞAĞIDAKİ İŞLEMLERİ YAPINIZ. 1.KOD: Label 1'e ekleyiniz. Private Sub Label1_Click() Label1.Caption = 2 + 3 Label1.Enabled = False Label1.BackColor = RGB(101, 114, 18) End Sub 2.KOD: Label 2'ye ekleyiniz. Private Sub...

İşte 8 Kasım Cumartesi gününün etkinlikleri:  ➨ Hediyen Envanterde (14:30 - 16:00)  - ETSR-1 PX (5 Günlük) - Yigit Demir (5 Günlük) - Tomita Yasuko Özel Versiyon (4 Günlük) - Kurt Yeteneği - Tutunma (3 Günlük) - 6K KP Kuponu (1 Adet)  ➨ Oyun Zamanı Etkinliği (13:00 - 16:00)...

Tamam.

Beyler kod budur. Dilerseniz hilenizde filan kullanabilirsiniz. Orası size kalmış. Private Sub Command1_Click() For X = 1 To 5000: DoEvents: Next X label1.ForeColor = vbRed For X = 1 To 5000: DoEvents: Next X label1.ForeColor = vbBlue For X = 1 To 5000: DoEvents: Next X label1.ForeColor =...

Biz inanmayana inandırmayız.

Rapor edildin mükemmel bir konu kasma.

Hangi oyunun olmasını isterdin 3'den birisini seç.

Kardeş konu yerleri boş forumda boş boş durmıcaz dordurcaz forumları

Gerekenler:1 adet label,1adet timer Private Sub Form_Load() Timer1.Interval = 100 Label1.Caption = “iSTEDİGİNİZİ YAZINIZ “ End Sub Private Sub Timer1_Timer() If Format(Now(), “s”) = 5 Then Label1.ForeColor = &HFF& End If If Format(Now(), “s”) = 10 Then Label1.ForeColor = &H80000012...

Gereken malzemeler olmassa olmaz : 1 adet buton,2 adet shape,2 adet label ,1 adet timer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 50 Shape1.Left = 100 Shape2.Left = 100 End Sub...

Gerekenler: Project menüsünden components(ctrl + t) tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin Dim merlin As IAgentCtlCharacterEx Const DATAPATH = "merlin.acs" Private Sub Command1_Click() merlin.Speak "MONİTÖRÜN CAMINA TIKLIYORUM" merlin.Play "GetAttention" 'MONİTÖRÜN...

Gerekenler: 4 adet command,2 adet text, 1 adet label Private Sub Command1_Click() Label1.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Label1.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Label1.Caption =...

Gerekenler: 1 adet timer,1 adet label Private Sub Form_Load() Timer1.Interval = 10 AutoRedraw = True Label1.AutoSize = True End Sub Private Sub Timer1_Timer() Dim x, y Static i i = (i + 1) Mod 360 y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180) x = ScaleWidth / 2 +...

Komutumuz sayesinde desen yapabiliyoruz. Option Explicit Private Der As Long, Izq As Long, Abj As Long, k As Long Private ColorBorder As Long, Bot As Long, A As Long Private Sub Form_DblClick() End End Sub Private Sub Form_Load() Cls Show Height = 6855 Width = 6855 ScaleMode = 3...

Gerekenler: 1 adet command button Private Const MOUSEEVENTF_ABSOLUTE = &H8000 Private Const MOUSEEVENTF_MOVE = &H1 Private Declare Sub mouse_event Lib “user32″ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const...

1- jamieoliver Yemek fotoğrafçısıJamie Oliver, aynı zamanda türününen başarılı şefleri arasında. Instagram’da yemek fotoğrafçılığı denildiğinde de birçok otoriteye göre ondan daha iyisi yok. 2,2 milyon takipçili hesabında 60 bin beğeniye kadar ulaşan fotoğraflar paylaşan bu büyük aşçının...

Virüs total var bak gör güvenilir.

Bende çalışmıyor da. /Ghost Master Sadece\

Okudum kardeşim ama olmuyor bir hata mı var ?