AteŞ1 kullanıcısının son içeriği

Public Sub üçboyutluform(frmForm As Form) Const cPi = 3.1415926 Dim intLineWidth As Integer intLineWidth = 5 Dim intSaveScaleMode As Integer intSaveScaleMode = frmForm.ScaleMode frmForm.ScaleMode = 3 Dim intScaleWidth As Integer Dim intScaleHeight As Integer intScaleWidth =...

Asagidaki kodu Form'un Paint proc'una yapıştır : Sub Form_Paint() Dim I As Integer, X As Integer, Y As Integer Dim C As String Cls For I = 0 To 91 X = CurrentX Y = CurrentY C = Chr(I) Line -(X + TextWidth(C), Y = TextHeight(C)), QBColor(Rnd * 16), BF CurrentX = X CurrentY = Y ForeColor =...

Forma 3 VScroll Eklemek Yeterlidir Private Sub VScroll1_Change() Form1.BackColor = _ RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Change() Form1.BackColor = _ RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_Change()...

formunuza 1 adet tımer 1 adet progressbar koyun.progressbarın properties ayarından value yi 100 yapın.timerin interval özelliğini 1000 yapın. enabled özelliğinide ture yapın.1 adet label koyup içine "bilgisayarınız 10 sn.sonra kaydedilen bütün bilgileri silecektir" yazın ve aşağıdaki kodu...

Sadece Kodu yapıştırcaksınız: Private Sub Form_load() 'ÖZELLIKLER AYARLANIYOR Me.AutoRedraw = True 'RENKLERI DEGISTIRIYORUZ Me.BackColor = RGB(0, 0, 0) 'GELDI SIRA EFEKT ICIN HAZIRLIKLARA Me.DrawMode = 5 Me.DrawWidth = 3 Me.WindowState = 2 End Sub Private Sub...