Hani office'in bir araç çubuğu vardı hatırlar mısın? ekranın sağında dururdu... İşte onun gibi bi şey. Ben orasını hallettim üzerine gelince açılıyor, mouse'u çekince gizleniyor.
Benim sizden istediğim şey şu: Mesela masaüstünde 20 tane kısayol var. Diyelimki ben Photoshop programının kısayolunu tutup benim sağ taraftaki programımın üzerine sürükleyip bıraktığımda, programım üzerinde Potoshop kısayolunun kullandığı simge yer alsın. Üzerine tıkladığımda da normal kısayol gibi açılsın... Silmek istediğimde de sağ tıklayıp sil deyince silinsin. İşte sizden istediğim olay bu. Bir nevi hızlı başlat da diyebiliriz...,
İşte örnek bir resim de buldum program download menüsünden. İşte bunun gibi üzerinde kısayol istiyorum... http://img450.imageshack.us/full.php...ads305z6eg.jpg
Hızlı başlatı veya benzeri bir menüyü neden kullanmayı denemiyorsun. Bence -ki ben bir zamanlar masaüstünde 50 kısayolu olmuş ve bunların masaüstünde yer kaplamalarından nefret eden bir kişi olarak- herhangi bir yere bir klasör oluştur Önerim..: "d sürücün olsun". Sonra onun içine istediğin kısayollarını at. Ardından başlat çubunu sağ tıkla araç çubukları/yeni araç çubuğu..ç menüsünden klasörünü seç. Al sana güzel bir kısayollar menüsü.
"Ya aynısını hızlı başlatla da yaparım" diyebilirsin. Benimkisi bir öneriydi sadece Programı yapılmaz mı tabii ki yapılır. Takıldığınız bir yer olursa yardım edebilirim elimden geldiğince
abi benim sorunum kayıt proramı yaptım ama sorunum su kayıt edilen kişileri verilen numara ile bula biliyorum ama ben birde ad ve soyad girildiğinde ver mesini istiyom onu nasıl yapcam burayada sayı ile bulduğum kodu veriyorum yardimci olursan cok sevincem tesekürler
Private Sub Command3_Click()
If Text1.Text <> "" Then
Open "body.dat" For Random As #1 Len = Len(kayıtlar)
c = Val(Text1.Text)
müşteri_no = c
Get #1, müşteri_no, kayıtlar
Ben yeni başlayan birisiyim.
1. text1.text isimli metin kutuma sadece rakam girilebilecek, ayrıca virgül ve backspace tuşu çalışabilecek. Kutu para miktarını gösterdiği için vigülden sonra sadece 2 rakam olabilecek. yani 15.25 69.30 gibi. Bunu sağlayan kod rica ediyorum.
2.Tüm aramama rağmen command nesnesinin caption rengini değiştirmeyi beceremedim. Bir de bunun için bilgi istiyorum.
Yardımcı olacak arkadaşlara teşekkür ederim.VB06 kullanıyorum
merhaba
kayıt işlemi için bir kod yazdım fakat bunun içerisine daha önce girilmiş olan kaydı kontrol etmesi için nasıl bir kod eklemeliyim yardımınız lütfen bilal.dundar@gmail.com
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 'kaydet
If KeyCode = 13 Then
If Text1.Text = "" Then
MsgBox "Evrak Okutunuz...", vbCritical, "Dikkat!!!"
Else
KayiT = Text1.Text
RS.AddNew
RS!kayitno = KayiT
RS!tarih = Format(Date, , vbUseSystemDayOfWeek)
RS!saat = Format(Time, , vbUseSystemDayOfWeek)
RS.Update
Text1.Text = ""
End If
End If
End Sub
Programı yapılmaz mı tabii ki yapılır. Takıldığınız bir yer olursa yardım edebilirim elimden geldiğince 
