Yardım edin arkadaşlar visualdan anlıyan
- Konuyu başlatan nokscek
- Başlangıç tarihi
Vb bilgin azcık olsa bnları yapmanın basit oldugunu bilirsin ..
İleride kendini geliştirirsin umarım .
Projene bir adet commondialog ekle
commondialog adını cd olarak degiş
ve şunu butonun click olayına yaz
Şifre koymak için form_load olayına
İleride kendini geliştirirsin umarım .
Projene bir adet commondialog ekle
commondialog adını cd olarak degiş
ve şunu butonun click olayına yaz
Kod:
With cd
.DialogTitle = ""
.Filter = "Tüm dosyalar|*.*"
.ShowOpen
Text1.text = cd.filename 'text1 e seçtigin dosyanın yolunu ekler
End With
Text1.Text = cd.FileNameŞifre koymak için form_load olayına
Kod:
Dim SifreSor As String
SifreSor = InputBox("Program Şifresini Girin", "Şifre")
if sifresor = "12345" then ' Şifre 12345 ise programa giriş yapack
Msgbox "Şifre Dogru Programa Giriş Yapabilirsiniz",,"Dogru Şifre"
Formismi.show
Else
Msgbox "Şifre Yanlış Program Kapatılıyor.",vbcritical,"Yanlış Şifre"
Unload me
End
end if
