metin kutusundakileri programı kapatınca dosyaya kaydediyo. sonra load olayında tekrar okuyo. anlık olarak kaydetmiyo

mbk_kbm ile birlikte yaptığımız bir google desktop benzeri. Özellikleri: Desktopı sürükleyerek ekranın sağına ya da soluna yaslayabilirsiniz. Notdefterine yazdıklarınız otomatik olarak kaydedilecektir. Desktopın rengini değiştirebilirsiniz. Resimleri ileri ya da geri oynatabilirsiniz. Ayrıca slaytı durdurabilirsiniz. resimler: Yorumlarınızı bekliyorum. Umarım beğenirsiniz. Buradan indirin

Görünüm çok kötü olmuş.

Arkadaşım güzel paylaşım ama yanlış hatırlamıyorsam Visual Basic Bölümüne kaynak kod konuluodo Senin paylaştığın dosya exe Exe leri paylamak için wardom programlar bölümüne koyman lazım Hadi Kolay gelsin

Geliştirmek isteyenler buyursun İndir

Emeğe saygıyı öğrenecekler Tasarım projede en son iştir ama arkadaşlar kodlamadan daha fazla önem vermişler tasarıma Bu arada her hangi bir yazıyı sizin programa keylogger gibi bir kodlamayla mı geçiriyordunuz? Programı indirmedim ama herhalde böyle birşeydir.

güzel ama biraz daha iyi olabilir... Sakıncası yoksa yardım edebilirim Kod: 'Projeye 1 adet modül ekleyin 'Forma birkaçtane kontrol nesnesi ekleyin 'Aşağıdakileri modüle kopyalayın Option Explicit Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function SetWindowRgn Lib "user32" As Long Public Sub TransparentForm frm. ScaleMode = vbPixels Const RGN_DIFF = 4 Const RGN_OR = 2 Dim outer_rgn As Long Dim inner_rgn As Long Dim wid As Single Dim hgt As Single Dim border_width As Single Dim title_height As Single Dim ctl_left As Single Dim ctl_top As Single Dim ctl_right As Single Dim ctl_bottom As Single Dim control_rgn As Long Dim combined_rgn As Long Dim ctl As Control If frm. WindowState = vbMinimized Then Exit Sub wid = frm. ScaleX hgt = frm. ScaleY outer_rgn = CreateRectRgn(0, 0, wid, hgt) border_width = / 2 title_height = hgt - border_width - frm. ScaleHeight inner_rgn = CreateRectRgn combined_rgn = CreateRectRgn(0, 0, 0, 0) CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF For Each ctl In frm. Controls If ctl. Container Is frm Then ctl_left = frm. ScaleX + border_width ctl_top = frm. ScaleX + title_height ctl_right = frm. ScaleX + ctl_left ctl_bottom = frm. ScaleX + ctl_top control_rgn = CreateRectRgn CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR End If Next ctl SetWindowRgn frm. hWnd, combined_rgn, True End Sub 'Aşağıdakileri forma kopyalayın Private Sub Form_Resize TransparentForm Me End Sub bunu yap ilk önce sonra o çizgiyi çek istersen devam ediyim mi? Sakıncası

Proje

Görünüm çok kötü olmuş derken biraz acımasız davranıyorsun gibime geliyor. Hadi kötü olmuş desen anlarım ama çok kötü olmuş diyosun bu biraz eleştiri sınırını aşıyor. Dediğim gibi isteyene projeyi vereyim daha iyisini yapsın birde onun yaptığını göreyim.

Alayınız kafayı grafiğe takmışsınız mbk_kbm ye bir sorayım eğer oda onay verirse projeyide veririm. Birde sizi görelim bakalım nasıl değişiklikler yapacaksınız grafikte

Diyecek bişi yok göründüğü gibi gözükmüyor

Geliştirenler daha sonra son halini buraya versin. Beni merakta bırakmasın Ayrıca bu son verdiğim projede birkaç geliştirme daha yapmıştık onu söylemeyi unutmuşum Geliştirmeler: Slayt resmi durdurabilirsiniz. Ayrıca kendiniz elle bir önce ki ya da bir sonra ki resme geçebilirsiniz. Birde takım temaları ekledim . Dediğim gibi daha çok geliştiren özellikle grafiksel anlamda, beni merakta bırakmasın burda paylaşsın. Olmadı özelden mesaj yollasın -

1. si exe eklemek yasak 2. olmamış bir grafikere ihtiyacınız war

güzel olmus beyendim geliştirilebilir & Grafikleri konusunda daha iyisi yapılabilir

grafikler konusunda yardıma ihtiyacın war..