Music Maker yapılabiliyormuş yorum sizin
Müzik deposu daha önceden forumdan aldıgım bir kardeşimizin yapmış oldugu konuyla ilgili programını ekliyorum ismi yok ellerine saglık onada teşekkür ederim
Belki forumda örnekleri vardır ama degişik bir yöntem
Public Function AutoCompactCurrentProject()
Dim fs, f, S, filespec
Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath & "\" & strProjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb’s
If S > 20 Then 'edit the 20 (Mb’s) to the max size you want to allow your app to grow.
Application.SetOption ("Auto Compact"), 1 'compact app
Else
Application.SetOption ("Auto Compact"), 0 'no don’t compact app
End If
End Function
Dim fs, f, S, filespec
Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath & "\" & strProjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb’s
If S > 20 Then 'edit the 20 (Mb’s) to the max size you want to allow your app to grow.
Application.SetOption ("Auto Compact"), 1 'compact app
Else
Application.SetOption ("Auto Compact"), 0 'no don’t compact app
End If
End Function
1 adet label
2 adet komut butonu hazırlayınız.
lblFlash
cmdFlash
cmdStop
bu butonları hazırladıktan sonra aşağıdaki kodu formumuzun kod yerine kopyala yapıştır yapın.
Option Compare Database
Private Sub cmdFlash_Click()
Me.TimerInterval = 300
End Sub
Private Sub cmdStop_Click()
Me.TimerInterval = 0
Me.lblFlash.ForeColor = vbBlack
End Sub
Private Sub Form_Timer()
With Me.lblFlash
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))
End With
End Sub
2 adet komut butonu hazırlayınız.
lblFlash
cmdFlash
cmdStop
bu butonları hazırladıktan sonra aşağıdaki kodu formumuzun kod yerine kopyala yapıştır yapın.
Option Compare Database
Private Sub cmdFlash_Click()
Me.TimerInterval = 300
End Sub
Private Sub cmdStop_Click()
Me.TimerInterval = 0
Me.lblFlash.ForeColor = vbBlack
End Sub
Private Sub Form_Timer()
With Me.lblFlash
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))
End With
End Sub
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 190 aktif kullanıcı var.
AdsenseBot, AhrefsBot, Applebot, Bing Bot, Core, Google Bot, SemrushBot, Sogou, Sogou web spider, Trendiction, grapeshot, proximic, adirnek, ates2014, husem, KylieNualp
(4 Üye - 174 Ziyaretçi)