Close
Duke shfaqur rezultatin -19 deri 0 prej 9
  1. #1
    i/e regjistruar Maska e valdetshala
    Anëtarësuar
    15-03-2008
    Vendndodhja
    Pejë-Republika e Kosovës
    Postime
    2,365

    Si mund t'i shndërroj shkronjat normale në ***?

    Tung te gjitheve, e kam nje pyetje, a ka mundesi qe ne nje ngjarje(event) ne access shkronjat qe me paraqiten ne INPUTBOX ti shndrroj ne ****pra te mos shihet fjalekalimi???, E di metoden per text box por po me duhet per Input Box
    psh If Inputbox("blablabal")="lejekalim" pra si mund ta beje kete procedure qe fjala lejekalim te shihet si ********* sepse po me shihen shkronjat normal e une po dua qe me ane te nje inputboksi te me hapet nje forme si readonly., qellimit ja kam arritur te procedura por me ka mbetur qe vetem ti maskoj shkronjat ne *****.


    ju faleminderit

  2. #2
    i/e regjistruar Maska e hot_prinz
    Anëtarësuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    Pershendetje,
    ja nje shembull per Access 2003:

    Kodi per Formen ne Access:
    Kodi:
    Option Compare Database
    Option Explicit
    
    Private Sub Form_Load()
    
        On Error GoTo Err_Out:
        
        Dim lTemp As Long
        Dim sTemp As String
        
        lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
        sTemp = InputBox("Shenoni fjalen kaluese", "Dialogu i fjales kaluese")
        
        If sTemp = vbNullString Then
            Err.Raise 1000, "Sheno fjalen kaluese", "Fjalka kaluese eshte e doemosdoshme"
        Else
            MsgBox sTemp
        End If
        
    Exit Sub
    
    Err_Out:
        Select Case Err.Number
        Case 1000
            MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source
            Err.Clear
            DoCmd.Close acForm, "Form1", acSaveNo
        Case Else
            Err.Clear
            DoCmd.Close acForm, "Form1", acSaveNo
        End Select
    End Sub
    dhe kodin per nje Modul:
    Kodi:
    Option Compare Database
    Option Explicit
    
    Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
    Private Declare Function FindWindowEx Lib "user32" Alias _
    "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    
    Public Declare Function SetTimer& Lib "user32" _
    (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
    lpTimerFunc&)
    
    Private Declare Function KillTimer& Lib "user32" _
    (ByVal hwnd&, ByVal nIDEvent&)
    
    Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
    
    
    Const EM_SETPASSWORDCHAR = &HCC
    Public Const NV_INPUTBOX As Long = &H5000&
    
    Private Declare Function GetCurrentVbaProject _
    Lib "vba332.dll" Alias "EbGetExecutingProj" _
    (hProject As Long) As Long
    
    Private Declare Function GetFuncID _
    Lib "vba332.dll" Alias "TipGetFunctionId" _
    (ByVal hProject As Long, ByVal strFunctionName As String, _
    ByRef strFunctionId As String) As Long
    
    Private Declare Function GetAddr _
    Lib "vba332.dll" Alias "TipGetLpfnOfFunctionId" _
    (ByVal hProject As Long, ByVal strFunctionId As String, _
    ByRef lPfn As Long) As Long
    
    Const NO_ERROR = 0
    
    Public Function TimerProc(ByVal lHwnd&, ByVal uMsg&, _
    ByVal lIDEvent&, ByVal lDWTime&) As Long
    
        Dim lEditHwnd As Long
    
        lEditHwnd = FindWindowEx(FindWindow("#32770", "Dialogu i fjales kaluese"), 0, "Edit", "")
        
        Call SendMessage(lEditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
              
        KillTimer lHwnd, lIDEvent
    
    End Function
    
    Public Function MyAddressOf(sFuncName As String) As Long
    
        Dim lResult As Long
        Dim lHproject As Long
        Dim sFuncID As String
        Dim lFuncPtr As Long
        Dim sFuncNameUnicode As String
    
        sFuncNameUnicode = StrConv(sFuncName, vbUnicode)
        Call GetCurrentVbaProject(lHproject)
        
        If lHproject <> 0 Then
            lResult = GetFuncID(lHproject, sFuncNameUnicode, sFuncID)
            If lResult = NO_ERROR Then
                lResult = GetAddr(lHproject, sFuncID, lFuncPtr)
                If lResult = NO_ERROR Then
                    MyAddressOf = lFuncPtr
                End If
            End If
        End If
        
    End Function

  3. #3
    i/e regjistruar Maska e valdetshala
    Anëtarësuar
    15-03-2008
    Vendndodhja
    Pejë-Republika e Kosovës
    Postime
    2,365
    hot prinz shume te faleminderi per kohen e shpenzuar dhe gatishmerin per te ndihmuar, vetem desha te lajmeroj se me ka kryer pune me pak ndryshime qe bera por desha te shohesh edhe ti kodin qe e ndryshova sepse keshtu me konvenon mua shume flm

    Private Sub Form_Load()
    On Error GoTo Err_Out:

    Dim lTemp As Long
    Dim sTemp As String

    lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
    sTemp = InputBox("Shënoni fjalën kaluese", "Dialogu i fjalës kaluese")
    If sTemp = "pasword" Then
    Form_Klienti17F.AllowAdditions = True
    Form_Klienti17F.AllowDeletions = True
    Form_Klienti17F.AllowEdits = True
    MsgBox "Keni qasje të ndryshoni të dhënat"

    ElseIf sTemp = vbNullString Then
    Err.Raise 1000, "Shëno fjalën kaluese", "Fjala kaluese është e domosdoshme nëse dëshironi të ndryshoni"
    Else
    MsgBox "Lejekalimi Gabim! Hyrja Lejohet vëtëm lexim", vbCritical, "Vërejtje!!"
    End If


    Exit Sub

    Err_Out:
    Select Case Err.Number
    Case 1000
    MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source
    Err.Clear
    DoCmd.Close acForm, "Form1", acSaveNo
    Case Else
    Err.Clear
    DoCmd.Close acForm, "Form1", acSaveNo
    End Select

    End Sub

  4. #4
    i/e regjistruar Maska e hot_prinz
    Anëtarësuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    me vjen mire qe te ka ndihmuar

  5. #5
    i/e regjistruar Maska e valdetshala
    Anëtarësuar
    15-03-2008
    Vendndodhja
    Pejë-Republika e Kosovës
    Postime
    2,365
    hot prinz me fal por nuk e di se qka ka databaza prape sepse mbreme shkronjat qe i shkruaja ne inputbox me ate kodin tend mire bente, dmth shkronjat e merrshin vetin e "*" por sot kur e qela tani prape po shihet i tere paswordi, a thua qka mund te kete

  6. #6
    i/e regjistruar Maska e hot_prinz
    Anëtarësuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    Une edhe njhere e testova me Access 2007 dhe po funksionon. Vendose kodin ketu e do i hudh syrin, sepse nuk besoj se mbreme ka funksionu kurse sod nuk funksionon . Une edhe njhere e testova me Access 2007 dhe po funksionon.

  7. #7
    i/e regjistruar Maska e valdetshala
    Anëtarësuar
    15-03-2008
    Vendndodhja
    Pejë-Republika e Kosovës
    Postime
    2,365
    qe modulin nuk e kam nderruar hiq

    Option Compare Database
    Option Explicit
    Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

    Private Declare Function FindWindowEx Lib "user32" Alias _
    "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    Public Declare Function SetTimer& Lib "user32" _
    (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
    lpTimerFunc&)

    Private Declare Function KillTimer& Lib "user32" _
    (ByVal hwnd&, ByVal nIDEvent&)

    Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long


    Const EM_SETPASSWORDCHAR = &HCC
    Public Const NV_INPUTBOX As Long = &H5000&

    Private Declare Function GetCurrentVbaProject _
    Lib "vba332.dll" Alias "EbGetExecutingProj" _
    (hProject As Long) As Long

    Private Declare Function GetFuncID _
    Lib "vba332.dll" Alias "TipGetFunctionId" _
    (ByVal hProject As Long, ByVal strFunctionName As String, _
    ByRef strFunctionId As String) As Long

    Private Declare Function GetAddr _
    Lib "vba332.dll" Alias "TipGetLpfnOfFunctionId" _
    (ByVal hProject As Long, ByVal strFunctionId As String, _
    ByRef lPfn As Long) As Long

    Const NO_ERROR = 0

    Public Function TimerProc(ByVal lHwnd&, ByVal uMsg&, _
    ByVal lIDEvent&, ByVal lDWTime&) As Long

    Dim lEditHwnd As Long

    lEditHwnd = FindWindowEx(FindWindow("#32770", "Dialogu i fjales kaluese"), 0, "Edit", "")

    Call SendMessage(lEditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)

    KillTimer lHwnd, lIDEvent

    End Function

    Public Function MyAddressOf(sFuncName As String) As Long

    Dim lResult As Long
    Dim lHproject As Long
    Dim sFuncID As String
    Dim lFuncPtr As Long
    Dim sFuncNameUnicode As String

    sFuncNameUnicode = StrConv(sFuncName, vbUnicode)
    Call GetCurrentVbaProject(lHproject)

    If lHproject <> 0 Then
    lResult = GetFuncID(lHproject, sFuncNameUnicode, sFuncID)
    If lResult = NO_ERROR Then
    lResult = GetAddr(lHproject, sFuncID, lFuncPtr)
    If lResult = NO_ERROR Then
    MyAddressOf = lFuncPtr
    End If
    End If
    End If

    End Function

    dhe qe kodin qe mbreme ka bere kurse sot po me dalin shkronjat ne vend te **** por ne ACCESS 2003

    Private Sub Form_Load()
    On Error GoTo Err_Out:

    Dim lTemp As Long
    Dim sTemp As String

    lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
    sTemp = InputBox("Shënoni fjalën kaluese", "Dialogu i fjalës kaluese")
    If sTemp = "valdet" Then
    Form_Klienti17F.AllowAdditions = True
    Form_Klienti17F.AllowDeletions = True
    Form_Klienti17F.AllowEdits = True
    MsgBox "Keni qasje të ndryshoni të dhënat"

    ElseIf sTemp = vbNullString Then
    Err.Raise 1000, "Shëno fjalën kaluese", "Fjala kaluese është e domosdoshme nëse dëshironi të ndryshoni"
    Else
    MsgBox "Lejekalimi Gabim! Hyrja Lejohet vëtëm lexim", vbCritical, "Vërejtje!!"
    End If


    Exit Sub

    Err_Out:
    Select Case Err.Number
    Case 1000
    MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source
    Err.Clear
    DoCmd.Close acForm, "Form1", acSaveNo
    Case Else
    Err.Clear
    DoCmd.Close acForm, "Form1", acSaveNo
    End Select

    End Sub

  8. #8
    i/e regjistruar Maska e hot_prinz
    Anëtarësuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    problemi eshte se ti nuk e ke nderru modulin .


    Ne Form ke ndrruar emrin e Dialogbox-it ne:

    sTemp = InputBox("Shënoni fjalën kaluese", "Dialogu i fjalës kaluese")

    kurse ne Modul kerkohet nje Dialogbox me kete emer:

    lEditHwnd = FindWindowEx(FindWindow("#32770", "Dialogu i fjales kaluese"), 0, "Edit", "")


    "Dialogu i fjalës kaluese"(Form) nuk eshte i njejte me "Dialogu i fjales kaluese"(Modul), dhe per ate fjala kaluese nuk maskohet me "*".

  9. #9
    i/e regjistruar Maska e valdetshala
    Anëtarësuar
    15-03-2008
    Vendndodhja
    Pejë-Republika e Kosovës
    Postime
    2,365
    hot prinz faleminderit per mundin qe te shkaktova per nje pakujdesi timen te vogel sepse per 1 "ë" ose 2 e di qe eshte krijuar ky konfuzion te une, u bo, mire eshte krejt.

    Përshëndetje

Tema të Ngjashme

  1. Historia e alfabetit të gjuhës shqipe - Stavri Skëndo
    Nga AsgjëSikurDielli në forumin Gjuha shqipe
    Përgjigje: 7
    Postimi i Fundit: 14-04-2021, 14:37
  2. Dy shkronjat e fundit të fjalës./ Fitues ai që mbyll lojën /
    Nga projekti21_dk në forumin Lojra dhe rebuse
    Përgjigje: 1009
    Postimi i Fundit: 14-06-2009, 08:16
  3. Përgjigje: 9
    Postimi i Fundit: 06-04-2006, 13:45
  4. Kodikët e Shqipërisë
    Nga Albo në forumin Komuniteti orthodhoks
    Përgjigje: 15
    Postimi i Fundit: 27-12-2005, 15:25

Regullat e Postimit

  • Ju nuk mund të hapni tema të reja.
  • Ju nuk mund të postoni në tema.
  • Ju nuk mund të bashkëngjitni skedarë.
  • Ju nuk mund të ndryshoni postimet tuaja.
  •