UserForm Login Ekranı Validation Örneği

Kulanıcı arayüz formu

UserForm Login Ekranı Validation Örneği

İleti#1)  Tarkan VURAL » 26 May 2013 02:07

Arkadaşlar, bir projemde kullandığım login ekranını aynı visual studio programlarındaki validation nesneleri kullanımındaki gibi düzenledim. Animasyonda da görüleceği üzere form açıldığında, kutucukların içinde kullanıcıyı yönlendiren ifadeler yazdım. Kutucuklar seçildiğinde ise içindeki ifadeler siliniyor. Yerine sizin gireceğiniz dikkate alınıyor. Kutucuklara bilgi girmeden işleme devam ederseniz validation nesneleri gibi label nesneleri görünür olup sizi eksikler konusunda uyarıyor. Hatalı bilgi girişinde hata mesajı, doğru bilgi girişinde ise tebrik mesajı alıyorsunuz. Kodlar aşağıda, örnek dosya ekte. Dilediğiniz gibi projelerinizde login form olarak kullanabileceğiniz bir örnek çalışma oldu.

Faydalı olması dileğiyle ... --)(



Kod: Tümünü seç
Private Sub UserForm_Activate()
Dim X As Integer
Dim current As Variant
Dim Y As String
TextBox1.ForeColor = RGB(0, 120, 0)
TextBox2.ForeColor = RGB(0, 120, 0)
TextBox1.BorderColor = RGB(0, 0, 0)
TextBox2.BorderColor = RGB(0, 0, 0)
Me.TextBox2.BackColor = RGB(0, 102, 0)
Me.TextBox1.BackColor = RGB(0, 102, 0)
Me.Caption = "EVN Login - Www.ExcelVBA.Net"
Call TextBox1_Enter
Call TextBox2_Enter
Y = UserForm1.Caption
UserForm1.Caption = ""
For X = 0 To Len(Y)
    If X = 0 Then
    UserForm1.Caption = ""
    current = Timer
        Do While Timer - current < 0.1
           DoEvents
        Loop
   GoTo bitti
Else: End If
UserForm1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label5.Visible = False
If TextBox1.Text = "Kullanıcı Giriniz" Then
TextBox1.Text = ""
TextBox1.ForeColor = &HFFFFFF
ElseIf TextBox1.Text = "" Then
TextBox1.Text = "Kullanıcı Giriniz"
TextBox1.ForeColor = RGB(0, 120, 0)
End If
End Sub

Private Sub TextBox1_Enter()
If TextBox1.Text = "Kullanıcı Giriniz" Then
TextBox1.Text = ""
TextBox1.ForeColor = &HFFFFFF
ElseIf TextBox1.Text = "" Then
TextBox1.Text = "Kullanıcı Giriniz"
TextBox1.ForeColor = RGB(0, 120, 0)
End If
End Sub


Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.BorderColor = RGB(255, 255, 255)
TextBox2.BorderColor = RGB(0, 0, 0)
End Sub

Private Sub CommandButton1_Click()
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
If TextBox1.Text = "Kullanıcı Giriniz" Then
Label3.Visible = True
Exit Sub
End If
If TextBox2.Text = "Parola Giriniz" Then
Label4.Visible = True
Exit Sub
End If
If TextBox1.Text = "Admin" And TextBox2.Text = "EVN" Then
MsgBox "Tebrikler", vbInformation, "Www.ExcelVBA.Net"
Else
Label5.Visible = True
End If
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.BorderColor = RGB(0, 0, 0)
TextBox2.BorderColor = RGB(0, 0, 0)
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label5.Visible = False
If TextBox2.Text = "Parola Giriniz" Then
TextBox2.Text = ""
TextBox2.ForeColor = &HFFFFFF
TextBox2.PasswordChar = "*"
ElseIf TextBox2.Text = "" Then
TextBox2.Text = "Parola Giriniz"
TextBox2.ForeColor = RGB(0, 120, 0)
TextBox2.PasswordChar = ""
End If
End Sub

Private Sub TextBox2_Enter()
If TextBox2.Text = "Parola Giriniz" Then
TextBox2.Text = ""
TextBox2.ForeColor = &HFFFFFF
TextBox2.PasswordChar = "*"
ElseIf TextBox2.Text = "" Then
TextBox2.Text = "Parola Giriniz"
TextBox2.ForeColor = RGB(0, 120, 0)
TextBox2.PasswordChar = ""
End If
End Sub


Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox2.BorderColor = RGB(255, 255, 255)
TextBox1.BorderColor = RGB(0, 0, 0)
End Sub

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#2)  Enes Recep BAĞ » 26 May 2013 02:44

Ellerine, bilginize sağlık Tarkan Bey. şkşk
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#3)  Erhan Yavuz » 26 May 2013 13:43

Tarkan teşekkürler.. şkşk [evet]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: UserForm Login Ekranı Validation Örneği

İleti#4)  murguc » 27 May 2013 11:34

Teşekkürler Tarkan ağabey. En çok arananlar arasında bir uygulama. Çok şık. şkşk
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 19:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 34
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: UserForm Login Ekranı Validation Örneği

İleti#5)  Murat OSMA » 28 May 2013 01:13

Tebrikler dedi ! Ne kazandım ? [fısıltı] :P :lol:

https://www.excelturkey.com
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: UserForm Login Ekranı Validation Örneği

İleti#6)  Ozan İLGÜN » 28 May 2013 01:25

Elinize sağlık Tarkan Bey. şkşk
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm Login Ekranı Validation Örneği

İleti#7)  enteresan2333 » 09 Şub 2014 22:37

Tarkan Bey,
Çok güzel bir uygulama .Kullanıcı adı ve şifre tanımlamasını nereden yapacağımızı bulamadım ben.
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#8)  Enes Recep BAĞ » 09 Şub 2014 23:10

Kodların içinde aşağıdaki satırı bulun ve kendi isteğinize göre değiştirin.
Kod: Tümünü seç
If TextBox1.Text = "Admin" And TextBox2.Text = "EVN" Then

Admin dediği kullanıcı adı,
EVN dediği şifredir.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#9)  enteresan2333 » 09 Şub 2014 23:25

Teşekkürler Enes Bey
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#10)  enteresan2333 » 09 Şub 2014 23:46

Ben bu kodu userform2 ye yerleştirdim.
Kod doğru olunca excel sayfasına gitmesini yapamadım.
Nasıldır?
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#11)  Enes Recep BAĞ » 10 Şub 2014 00:18

sheets("Sayfaisminiz").select
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#12)  Emir Hüseyin ÇOBAN » 10 Şub 2014 00:27

. . .

Tarkan Bey' in 1 nolu mesajında kodlarının uygulandığı farklı bir login tasarımı.

Ekran Görüntüsü:
1_01.jpg


. . .
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Emir Hüseyin ÇOBAN
Site Dostu
 
Adı Soyadı:Hüseyin Çoban
Kayıt: 24 Ağu 2010 11:01
Konum: Gezgin
Meslek: Ü.Tğm.
Yaş: 28
İleti: 612
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Özel Destek için 0531 285 06 15

Cevap: UserForm Login Ekranı Validation Örneği

İleti#13)  Enes Recep BAĞ » 10 Şub 2014 01:13

Teşekkürler Hüseyin Bey. şkşk
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#14)  enteresan2333 » 10 Şub 2014 01:17

Enes Bey,

Sheets("tanımlar").Select
Kod: Tümünü seç
Sheets("tanımlar").Select


nereye konuşlandıracağımız bilemedim...
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#15)  Enes Recep BAĞ » 10 Şub 2014 20:59

Uygun bulduğunuz yere.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#16)  enteresan2333 » 10 Şub 2014 21:20

Enes Bey,
Dosya ektedir.
Kullanıc adı:Z
Şİfre:1

Sayfa:tanımlar

Şu durumda çıkış simgesine de bassanız excel sayfasına otomatik gidiyor.
Şifre doğru değilse gitmesin istiyorum.
Vaktiniz olursa...Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#17)  Enes Recep BAĞ » 10 Şub 2014 21:42

Kod: Tümünü seç
Sub WORKBOOK_OPEN()
Application.Visible = False
UserForm2.Show
Application.Visible = True
End Sub

Yukarıdaki kodu aşağıdaki ile değiştirin.
Kod: Tümünü seç
Sub WORKBOOK_OPEN()
Application.Visible = False
UserForm2.Show
Application.Visible = False
ActiveWorkbook.Close savechanges = False
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#18)  enteresan2333 » 10 Şub 2014 22:16

Gönderdiğiniz kodu denedim, olmuyor.
enteresan2333
 
 

Cevap: UserForm Login Ekranı Validation Örneği

İleti#19)  Enes Recep BAĞ » 10 Şub 2014 22:18

Daha fazla yardımcı olamayacağım.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: UserForm Login Ekranı Validation Örneği

İleti#20)  enteresan2333 » 10 Şub 2014 22:19

Teşekkürler.
enteresan2333
 
 

Sonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe