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
Close #1
End If
If Text1.Text = "" Then
n = "Kayıt Girmediniz"
l = MsgBox(n, 48 + 0)
End If
End Sub
Anladığım kaarıyla ada göre arama yapmak istiyorsun dosyadan önce kayıt bilgilerini okutursun sonra karşılaştırma yaparak yani if kayıt.adı=ara then
text1.text=kayıt.adı
text2.text=kayıt.soyadı end if
şeklinde tamamlandırsın kolay gelsin
Arkadaşlar Benim bi sorunum var visual basicte butona tıklanıldığı zaman bilgisayar'a RESET atan bir program yapmak istiyorum ama birtürlü komutların bulamıyorum yardımcı olursanız sevinirim
kardes senden bır rıcam olcak bana visual basic 6.0 programi lazım forumda buldum ama rapıdsharedan ındırmeye calısıyorum bır turlu olmuyor senden rıca etsem bunu bana maıla vya sadece bır lınk olarak toplayıp gonderemezmısn eger yardımcı olursan sevınırım 3 gundur ugrasıyorum.Sadece 2.parcayı ındırebıldım allah rızası ıcın bır el at su konuya sımdıden t.ederim:confused:
slm arkadaşlar 3 tane sorum olcak cevaplarsanız çok sevinirim
1) private sub command1_click()
kill("Dosyanın yolu")
end if bunu çalıştıramadım zaman "compile error: end if without block if" yazıyo sorun nedir? dosya yolunu falan yazıyorum ama olmuyo
2)ikincisi ise command buttom u tıkladığımda nasıl bir klasörü açabilirim veya bi dosyayı çalıtırabilirim
3)son olarakta projemin arkasına nasıl müzik eklerim yada ekleyebilir miyim??
Arkadaslar Vısual Studio Yukledim (En son surumden bi onceki surum) ilk baslarda normal calısıyordu sımdı yeni bir proje acmaya calıstıgımda ""__Otomasyon Sunucusu Nesne Yukleyemiyor__"" Diye bi hata mesajı alıyorum. Cd den uninstall yapıp tekrar kurmayı denedim yıne aynı hatayı verdi.. İşletim sistemiyle alakalı mı yoksa programlamı bilmiyorum..Yardımcı olursanız sevinirim..Ne yapabilirim?????
kardeş sen bu komutu yanlış kullanıyorsun.Bu komutun kullanma şekli örneğin
private sub command1_click()
kill("C:windowsdeneme.exe")
end sub
Eğer silmek istediğin dosya sistem dosyasıysa hata verir ve programdan çıkar
ama sen bu hata olduğunda programın kapanmasını istemiyorsan şu kodları yaz
private sub command1_click()
on local error goto hata
kill("dosya yolu.türü")' Yani örneğin; "c:programfilesdeneme.exe" şeklinde
msgbox("dosya silindi")
exit sub
hata:
msgbox("dosya silinemedi")
exit sub
end sub
