Posted under Visual Basic
‘Bir modül aç ve bu kodu pastele
Declare Function ShowCursor Lib “user32″ (ByVal fShow As Integer) As Integer
Global maxLines As Integer
Sub endScrnSave()
showmouse
End
End Sub
Sub HideMouse()
While ShowCursor(False) >= 0
Wend
End Sub
Sub main()
BlankForm.Show
End Sub
Sub showmouse()
While ShowCursor(True) < 0
Wend
End Sub
Posted under Visual Basic
Bu programda 4 label 2 timer kullanılmıştır. Labelleri formun üzerine her biri bi köşede olmak üzere formu kaplayacak şekil de eşit olarak büyültünüz. Formu tam ekran yapınız. Her labelin rengini ve formun rengini değişik rengte yaparsanız farkı görürsünüz.Mesela label1′i kırmızı,label2′ yi sarı, label3′ ü sarı ve label 4′ü kırmızı yapınız.kodları uygun yerlerine yazdıktan sonra çalıştırınız.
NOT:bilgisayarın ekran kartının iyi olması gerekmektedir Aksi taktirde görüntü iyi olmaya bilir.
Private Sub Form_Load()
Timer1.Interval = 1
Timer2.Enabled = False
End Sub
Continue Reading »
Posted under Visual Basic
Renkli daireler ekran koruyucu gibi birde kayan form başlığı
Forma 2 tane timer ekleyin. timer1 in intervali 1500 timer2 nin intervalini 50 yapın ve aşağıdaki kodları forma yapıştırın…
Private Sub Form_Load()
Form1.caption=”mutlu_suat@hotmail.com”
Me.AutoRedraw = True
Me.BackColor = RGB(0, 0, 0)
Me.DrawMode = 5
Me.DrawWidth = 3
Me.WindowState = 2
End Sub
Continue Reading »