Uygulamalarınızda kullana bileceğiniz değişik bir örnek

FORMA OTOMATİK RESİM EKLEME

1-formunuza bir resim kutusu ekleyeceksiniz birde tckimlik nolarının geldiği metinkutusu

Private Sub Form_Current()
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
End Sub

2-Private Sub Form_Current()
On Error GoTo HATA
If IsNull(Me.TCKIMLIKNO) Then
Me.FotoDosyasi.Caption = ""
Me.Foto.Picture = ""
Else
Me.FotoDosyasi.Caption = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
Me.Foto.Picture = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
End If
Exit Sub
HATA:
Me.Foto.Picture = ""
End Sub

Not;Alıntıdır....

Ctrl + F ve Ctrl + P Tuşlarını Kapatma Kodları,

aşağıdaki kodu modüle kaydedin.

Public Function HotKeys(KeyCode As Integer, Shift As Integer, callerForm As String)

Dim strOpenarg As String

Dim intkey As Integer

intkey = KeyCode

KeyCode = 0



    Select Case intkey

        Case 17

            ctrlKey = True

        Case 70



        If ctrlKey = True Then

            ctrlKey = False

            MsgBox "Ctrl+f kullanılamaz"

            GoTo abort



        End If

            

        Case 80



        If ctrlKey = True Then

            ctrlKey = False

            MsgBox "Ctrl+p kullanılamaz"

            GoTo abort



        End If

    



        Case Else

            GoTo abort

        End Select

    

exitsub:

Exit Function



abort:

KeyCode = intkey

End Function

Modülü kaydedin,
formun tuş önizleme özelliğini evet olarak değiştirin,
Formun tuşa basıldığında olayına aşağıdaki kodu ekleyin

Call HotKeys(KeyCode, 0, Me.Name)

Koddaki 17 ctrl, 70 f ve 80 p tuşlarının kodudur.

Veritabanı Nesnelerini İncelemek İçin Shift Tuşuna Basılı Tutarak Açın

Yönetici Olarak Açmak İçin

Kullanıcı Adı: admin
Şifre: admin

Kullanıcı Olarak Açmak İçin

Kullanıcı Adı: kullanıcı
Şifre: kullanıcı

Program Resimleri


Uygulamadaki kişi bilgileri gerçek değildir.


Lisans Süresini uzatmak için aşağıdaki uygulamayı kullanın
KEYGEN