ınputBox a girilen şifre gözükmesin istiyorum
Tarih
15/05/2011 10:51
Konu Sahibi
Ragıp61
Yorumlar
9
Okunma
3958
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Ragıp61
Üye
Kullanici Avatari
Üye
28
6
03/05/2010
0
Trabzon
Ofis 2007
17/06/2011,10:21
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub genel_Click()
On Error GoTo Err_genel_Click
Dim sifre As String
 
 sifre= InputBox("Bu forma giriş yapabilmek " & Chr(10) & Chr(10) & "için lütfen şifreyi giriniz...", "Şifreli Giriş Alanı")

 If sifre= "" Or sifre= Empty Then
 MsgBox "Şifre alanını boş bıraktınız." & vbCrLf & 
"Şifrenizi girmediğiniz sürece bu formu göremezsiniz." & vbCrLf & 
"Form içeriğini görebilmek için lütfen şifrenizi giriniz...", , "Boş Alan Uyarısı"
 
 Exit Sub
 End If

 If sifre= "12345" Then 'Buraya yazacağınız kelime şifreniz olacaktır.
 
 DoCmd.OpenForm "KONTROL_İZLEME_FORMU" 'Açılacak formun adını belirleyiniz.
 
 Else
 MsgBox "Hatalı Şifre Girdiniz."

 End If
Exit_genel_Click:
 Exit Sub

Err_genel_Click:
 MsgBox Err.Description
 Resume Exit_genel_Click
 
End Sub





'Not: yukarıda yazılı olan ınputBox şifre girişlerinde, yazılan şifrenin gözükmemesini istiyorum.
Yıldızlı görüntü şeklini uyarlarmısınız. Teşekkürler.

Ragıp61, 03-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TestDKInputBox()
Dim x As String

x = InputBoxDK("Type your password here.", "Password Required", "test")
If x = "" Then End
If x <> "yourpassword" Then
 MsgBox "You didn't enter a correct password."
 End
End If

MsgBox "Correct Password", accesstr
 
End Sub

Bu kodu denermisiniz işinize yarıya bilir.

Cevapla


Ragıp61
Üye
Kullanici Avatari
Üye
28
6
03/05/2010
0
Trabzon
Ofis 2007
17/06/2011,10:21
Çözüldü 
arkadaşım teşekkürler ama bir türlü olmadı..
Ragıp61, 03-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Ragıp61
Üye
Kullanici Avatari
Üye
28
6
03/05/2010
0
Trabzon
Ofis 2007
17/06/2011,10:21
Çözüldü 
Yazdığın kodları biraz açıklayabilirmisin
Bınları button a mı yapıştıracağım, açılacak alan form hangisi vb. açıklarmısın. Teşekkürker
Ragıp61, 03-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Class Form1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Int32, ByVal wCmd As Int32) As Int32
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

Dim inputTitle As String = "Enter the Password!"
Dim returnedPW As String
Const asteriskKeyCode = 42
Public Const EM_SETPASSWORDCHAR = &HCC
Public Const WM_CREATE = &H1
Dim windowHandle As Int32
Public Const GW_CHILD = 5

Public Sub setPassword()
Dim editWindow As Int32
editWindow = GetWindow(windowHandle, GW_CHILD)
SendMessage(editWindow, EM_SETPASSWORDCHAR, asteriskKeyCode, 0)
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If m.Result.ToInt32 = WM_CREATE Then
windowHandle = FindWindow(vbNullString, inputTitle)
ElseIf windowHandle > 0 Then
setPassword()
windowHandle = 0
End If
End Sub

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
lblPw.Text = "InputBox Password:"
returnedPW = InputBox("Enter the Password In the box!", inputTitle, "password!", 0)
If Not returnedPW = Nothing AndAlso returnedPW = "password!" Then
lblPw.Text = "InputBox Password Is: " & returnedPW
Else
lblPw.Text = "InputBox Password Is: Wrong!"
MessageBox.Show("Wrong Password!", " Try Again")
End If
End Sub
End Class


Bu kodu denermisiniz her iki koduda değişiklik yaparak kullanabilirsiniz. ilk verdiğim kodu modüle yazacaksınız.
Cevapla


Ragıp61
Üye
Kullanici Avatari
Üye
28
6
03/05/2010
0
Trabzon
Ofis 2007
17/06/2011,10:21
Çözüldü 
Arkadaşım ben acemiyim, çok basit bişey istemiştim. Amacım sadece şifreyi Password "****" şeklinde gözükmesini sağlamak.
İlgine ve emeğine sağlık,, teşekkür ederim..
Ragıp61, 03-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü TextBoxa Girilen Tarihe Göre Veritabanından Kayıt Güncelleme Acil Yardım Metlesshade 8 894 24/01/2016, 11:33 alican60
Çözüldü Şifre Sorunu Trofish 9 2.614 15/03/2012, 23:14 yorum70
Çözüldü textboxa girilen son karakteri alma goodfalles 11 3.510 09/02/2012, 22:36 goodfalles
Çözüldü Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak drummers 5 3.033 17/12/2011, 00:57 mcmaho
Çözüldü Textboxa girilen değerin comboboxa aktarılması qroniq_wqha 8 3.208 29/05/2011, 12:32 ~~KaG~~


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya