Skip to main content

AccessTr.neT


Fonksiyon Tuşları Kullanımı

Fonksiyon Tuşları Kullanımı

#7
sayın alpeki99 hocam;

yardımınız için çok teşekkür ederim.

son olarak Case işleminde sormak istediğim,

        Select Case e.KeyCode
            Case Keys.E
                If (e.Control AndAlso e.Shift) Then
                    MsgBox("Control + Shift + E tuşlarına bastınız")
                End If
        End Select
burada ki mantık olarak Case ile akfabetik tuşları kontrol ettirip If ile control & shift & alt gibi tuşların kontrolünümü sağlıyoruz yoksa case ile hangi tuşun kontrol ettirildiğinin bir önemi yok mu ?
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla
#8
Kod:
Case Keys.E
ile birlikte E tuşuna basılması halini kontrol ediyorsunuz. Eğer farklı bir harf olacak ise istediğiniz gibi değiştirebilirsiniz. Alfabetik olarak değil de sadece ihtiyacınız olanı yazabilirsiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#9
Sayın alpeki99 hocam;

anladım bilgilendirmeniz için çok teşekkürler.

atoz112 ve alpeki99 hocalarım sayesinde uzun zamandır uğraştığım işlemi çözümledim çok teşekkürler. +rep

Saygılar iyi çalışmalar...
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla
Brick #10
(19/05/2016, 22:35)SALİH DİKMEN yazdı: Değerli kullanıcılar,
ben ASCII Kodlarını gösteren Ufak bir program Yaptım.Bunu sizlerle Paylaşmak istiyorum.Umarım faydalanırsınız.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To 255
            ListBox1.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        For a = 65 To 90
            ListBox2.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Integer
        For a = 97 To 122
            ListBox3.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As Integer
        For a = 48 To 57
            ListBox4.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Application.Exit()
    End Sub
End Class

formunuzu kendiniz oluşturun.5 adet button,4 adet listbox.ben bunu vb.net'te yaptım
Cevapla
#11
sayın HilasNemkid (ya da,SALİH DİKMEN),

öncelikle,
paylaşımınız için teşekkür ederiz fakat

bu kodları içeren örnek uygulamanızı

Visual Basic .NET Örnekleri ve Uygulamaları

sayfası üzerinde yer alan YENİ KONU butonuna tıklamak sureti ile yeni bir paylaşımda bulunmanız daha yerinde ve katkılı olurdu kanısındayım.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#12
Ben siteye yeni üye olduğum için bilemedim.Bana hatırlattığınız içi size çok teşekkür ederim.Saykılar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task