- 27 Ocak 2007
- 3,187
- 2
- 616
Programlarınızın içine ek olarak konuldugunda yarar sağlayacağını umdugum basit bir kod parçasını sunuyorum
formunuzun load, mouse move ve unload bolumlerine aşağıdaki kodu ekleyip forecolor ozelliğini siyah, border style ozelliğinide 4 yapın
Dim i As Integer
For i = 0 To 1000
Form1.Top = Form1.Top + 50
If Form1.Top > 1000 Then
Form1.Top = 100
Form1.Left = Form1.Left + 50
ElseIf Form1.Left > 3000 Then
Form1.Left = Form1.Left - 1000
End If
Next i
If Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFF&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H404040
ElseIf Form1.BackColor = &H404040 Then
Form1.BackColor = &HFFFF&
End If
End Sub
formunuzun load, mouse move ve unload bolumlerine aşağıdaki kodu ekleyip forecolor ozelliğini siyah, border style ozelliğinide 4 yapın
Dim i As Integer
For i = 0 To 1000
Form1.Top = Form1.Top + 50
If Form1.Top > 1000 Then
Form1.Top = 100
Form1.Left = Form1.Left + 50
ElseIf Form1.Left > 3000 Then
Form1.Left = Form1.Left - 1000
End If
Next i
If Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFF&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H404040
ElseIf Form1.BackColor = &H404040 Then
Form1.BackColor = &HFFFF&
End If
End Sub