Formu Yakıp Söndürme


Private Sub Timer1_Timer()
If Me.Visible = True Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub

Private Sub Command1_Click()
' That value for duration 1000 = 1 second
Timer1.Interval = 1000
End Sub


Formu Kaydırma


Private Sub Command1_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub


Ekran Koruyucu

Public Sub drawcircle()
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99) + 1) * Rnd
Circle (xPos, yPos), radius, RGB(red, blue, green)
End Sub

Private Sub Timer1_Timer()
'Form1.BackColor = &H0& 'these things look awsome if you want to use them.....
'Form1.WindowState = 2
Call drawcircle

End Sub


Titreyen Form

Private Sub Form_Load()
Timer1.Interval = 22

End Sub

Private Sub Timer1_Timer()
'Move Form Down
Form1.Top = Form1.Top + 50
'Move Form Up
Form1.Top = Form1.Top - 50
'Move Left
Form1.Left = Form1.Left - 50
'Move Form Right
Form1.Left = Form1.Top + 50

End Sub


Formunuz Yuvarlak Olsun

Private Sub Form_Load()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
' Olusturuluyor...
hr& = CreateEllipticRgn(55, -20, usew, useh) 'Bu sayilari degistirerek pencere ile oynayabilirsiniz..
' Gosteriliyor...
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub


Her Köşeden Programı Kapatan Program

Private Sub Cmd1çıkış_Click()
'Code thought up for no reason at all by VisualBlind
'No matter what height/width your form is, it will always
'shrink the form
'This would be great for a about windows after the user closes it
'you should put this in the form/unload procedure...

Do Until Form1.Height = 405 And Form1.Width = 1680
Form1.Height = Form1.Height - 1
Form1.Width = Form1.Width - 1
Loop
Unload Me
End Sub

Private Sub Form_Load()
Form1.Caption = "Form Move"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
For x = 0 To Form1.Height + 2000
Form1.Height = x
Next x
For y = 100 To Form1.Width + 1500
Form1.Width = y
Next y
Timer1.Enabled = False

End Sub


Yanıp Sönen Label

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 = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
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 = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
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 = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed


Etrafa Çarpan Top

Private Sub Command1_Click()
End

End Sub

Private Sub topa_Click()

End Sub

Private Sub xgeri_Timer()
topa.Left = topa.Left - 100
If topa.Left < 0 Then

xileri.Enabled = True
xgeri.Enabled = False

End If
End Sub

Private Sub xileri_Timer()
topa.Left = topa.Left + 100
If topa.Left > 13000 Then

xileri.Enabled = False
xgeri.Enabled = True

End If



End Sub

Private Sub ygeri_Timer()
topa.top = topa.top - 100
If topa.top < 0 Then

yileri.Enabled = True
ygeri.Enabled = False

End If
End Sub

Private Sub yileri_Timer()
topa.top = topa.top + 100
If topa.top > 9000 Then

yileri.Enabled = False
ygeri.Enabled = True

End If
End Sub


Ctrl-Alt-Delete ve Ctrl-Esc tus kombinasyonlarinin çalismasi nasıl iptal edilir?


Asagidaki kodu projenizin declarations kismina yazin:

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long


Sub CtrlAltDeleteKapat(Kapali As Boolean)
Dim X As Long
X = SystemParametersInfo(97, Kapali, CStr(1), 0)
End Sub


Ctrl-Alt-Delete kombinasyonunu kapatmak için:

Call CtrlAltDeleteKapat(True)


Ctrl-Alt-Delete kombinasyonunu açmak için:

Call CtrlAltDeleteKapat(False)

sağolasın.

ArkaSokaK KARTALLARI

" Sevinmek İçin Sevmedik "

Yağmurlu bir günde görmüştüm seni.
Üstünde çubuklu formalar vardı
Bir anda vuruldum aşık oldum ben
Hayatın anlamı Siyah beyazdı...

Ölümle Yaşamı Ayıran çizgi
Siyahla beyazı ayıramaz ki...
Her yolun sonunda ölüm olsa da
Sevenleri kimse ayıramaz ki...

teşekkürler

METAL-ROCK MÜZİK SEVERLER BİRLİĞİ

"Soluk Gri Bir Gökyüzü Altında Ortaya Çıkacağız...!"

İÇ KOLAYI LIKIR LIKR İSRAİL VE AMERİKA VURSUN TAKIR TAKIR ( BOYKOT EDİYORUZ )