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 ?
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.
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.
Saygılar iyi çalışmalar...
(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
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.
Ben siteye yeni üye olduğum için bilemedim.Bana hatırlattığınız içi size çok teşekkür ederim.Saykılar