UserForm Login Ekranı Validation Örneği

Kulanıcı arayüz formu

Cevap: UserForm Login Ekranı Validation Örneği

İleti#41)  Murat OSMA » 06 Nis 2016 02:40

Alternatif login örnekleri; viewtopic.php?f=38&t=704
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: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: UserForm Login Ekranı Validation Örneği

İleti#42)  xswordx » 28 Arl 2017 17:10

Herkese merhaba, elinize sağlık yaptıklarınızı görünce insan heveslenmiyor değil.. ben bir şey sormak istiyorum. Biraz araştırdım ama tam işime yarayanı bulamadım. Yine sayfanızdan faydalanarak oluşturduğum bir çalışma var.

userform1 üzerinde webbrowser çalışıyor userform1 üzerindeki bir butona login ekranını bağladım (userform2) userform2 üzerinde bulunan textbox1 (güvenlik kodu) textbox2 (kullanıcı adı) textbox3 (şifre) olacak şekilde ayarladım userform2 üzerinde bulunan giriş butonuna tıkladığımda bu bilgilerin userform1 üzerinde açılan web sayfasındaki ilgili alanlara yazmasını ve giriş butonuna basmasını istiyorum ama olmadı.

Web sayfası üzerinde bulunan bilgilerde şu şekilde;
Güvenlik Kodu id="guvenlikKontrol"
Kullanıcı Adı id="txtKullaniciAd"
Şifre id="txtSifre"
Giriş butonu id="btnGiris"

Kullandığım kod da şu şekilde;

Private Sub CommandButton1_Click()
Dim eog As Object
Set eog = userform1.webbrowser1
With eog
.Visible = True
.Navigate
Do While Not .ReadyState = 4: DoEvents: Loop
eog.Document.getelementbyid("guvenlikKontrol").ID = TextBox1
eog.Document.getelementbyid("txtKullaniciAd").ID = TextBox2
eog.Document.getelementbyid("txtSifre").ID = TextBox3
eog.Document.getelementbyid("btnGiris").Click
End With
Set eog = Nothing
End Sub
Kullanıcı avatarı
xswordx
 
Kayıt: 09 Haz 2017 16:09
Meslek: Bilişim
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Cevap: UserForm Login Ekranı Validation Örneği

İleti#43)  xswordx » 29 Arl 2017 12:12

Farklı örneklerden araştırarak bir çözüm buldum. ihtiyacı olanların kullanabilmesi için paylaşıyorum.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.Visible = True
    Userform1.Webbrowser1.Document.getElementsByName("guvenlikKontrol")(0).Value = TextBox1.Value
    Userform1.Webbrowser1.Document.getElementsByName("txtKullaniciAd")(0).Value = TextBox2.Value
    Userform1.Webbrowser1.Document.getElementsByName("txtSifre")(0).Value = TextBox3.Value
    Userform1.Webbrowser1.Document.getelementbyid("btnGiris").Click
    Unload Me
    Close
    Userform1.Show
    End Sub
Kullanıcı avatarı
xswordx
 
Kayıt: 09 Haz 2017 16:09
Meslek: Bilişim
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Cevap: UserForm Login Ekranı Validation Örneği

İleti#44)  huseyinkkamer » 22 Oca 2018 18:18

Tarkan VURAL yazdı: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



Tarkan Abi,

Eline koluna sağlık. Yalnız benim senden ricam bu userform Makro açıldığı zaman çıksın . Eğer Kullanıcı adı ve şifre doğru ise bize excel sayfasını açsın istiyorum. Bunu yapmak mümkün mü ?
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 17 Arl 2017 00:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 26
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

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

Cevap: UserForm Login Ekranı Validation Örneği

İleti#45)  Tarkan VURAL » 22 Oca 2018 18:37

Merhaba,

Kod: Tümünü seç
MsgBox "Tebrikler", vbInformation, "Www.ExcelVBA.Net"

kod satırı yerine Application.Visible=true yazın.

Workbook.open prosedürüne de Excel açıldığında gizlensin kodu ekleyin.

Kod: Tümünü seç
Private Sub Workbook_Open()
Application.Visible = False
End Sub


Excel açıldığnda sadece form görünür, doğru şifre ile de Excel görünür olur.
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ş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: UserForm Login Ekranı Validation Örneği

İleti#46)  huseyinkkamer » 23 Oca 2018 12:14

Merhaba Tarkan Abi,

Dediklerini yaptım sanırım beceremedim . Dosyayı Düzeltip tekrar yüklemeni rica ederim.
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 17 Arl 2017 00:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 26
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm Login Ekranı Validation Örneği

İleti#47)  Tarkan VURAL » 23 Oca 2018 12:24

Biraz çaba harcamanız gerekiyor. Pişmiş balığı herkes yer. ;)
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ş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: UserForm Login Ekranı Validation Örneği

İleti#48)  huseyinkkamer » 23 Oca 2018 12:33

Tarkan VURAL yazdı:Biraz çaba harcamanız gerekiyor. Pişmiş balığı herkes yer. ;)




Abi haklısın pişmiş balığı herkes yer ama 2-3 saat denedim cidden olmadı. Yardım edebilirsen minnettar kalırım sana.
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 17 Arl 2017 00:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 26
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: UserForm Login Ekranı Validation Örneği

İleti#49)  xswordx » 26 Oca 2018 19:48

Hüseyin bey merhaba,
Yeni bir Module açın ve kod bölümüne
Kod: Tümünü seç
Sub Auto_Open()
On Error Resume Next
Application.Visible = False
UserForm1.Show
End Sub
yazın

sonra da
Kod: Tümünü seç
MsgBox "Tebrikler", vbInformation, "Www.ExcelVBA.Net"
yerine
Kod: Tümünü seç
UserForm1.Hide
Application.Visible = True
kodlarını yazın o zaman istediğiniz gibi olacaktır.
Kullanıcı avatarı
xswordx
 
Kayıt: 09 Haz 2017 16:09
Meslek: Bilişim
Yaş: 42
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Önceki

Forum UserForm

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe