Skip to main content

AccessTr.neT


Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek

Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek

Çözüldü #1
iyi günler herkese hayırlı cumalar
Ctrl+c ile Clipboard içine kaydettiğimiz veriyi tek tuşa basarak Strconv fonksiyonu ile istediğimiz formata çevirip
istediğimiz yere yeni haliyle yapıştırabilir miyiz
@benbendedeilem
Cevapla
#2
Kod
Private Sub Komut203_Click()
    Dim clipboard As MSForms.DataObject
    Set clipboard = New MSForms.DataObject
    
    clipboard.GetFromClipboard
    clipboard.SetText StrConv(clipboard.GetText, vbProperCase)
    clipboard.PutInClipboard
    
    MsgBox clipboard.GetText
End Sub
şunu kullanmaya çalışıyorum ama referans hatası veriyor galiba
[Resim: do.php?img=10052]
@benbendedeilem
Cevapla
#3
Visual Basic Code
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim strActiveCtl As String

Select Case KeyCode
       
       Case vbKeyF3
            KeyCode = 0
            
            strActiveCtl = Screen.ActiveControl.Name
            Me.mtn_gecici.SetFocus
            DoCmd.RunCommand acCmdPaste
            Controls(strActiveCtl).Value = StrConv(Me.mtn_gecici.Text, 1)
End Select
End Sub

Formda mtn_gecici adında metin kutusu olacak, formda veri yapıştılacak metin kutusunu tıklayıp F3'e bastığında kopyaladığın veriyi tümü büyük harflerle yapıştırır. Tuş önizleme özelliğinin Evet olarak seçilmesi de gerekli.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
bunu eklemek gerekiyormuş
[Resim: do.php?img=10053]

(16/04/2020 09:51)ozanakkaya Adlı Kullanıcıdan Alıntı:
Visual Basic Code
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim strActiveCtl As String

Select Case KeyCode
       
       Case vbKeyF3
            KeyCode = 0
            
            strActiveCtl = Screen.ActiveControl.Name
            Me.mtn_gecici.SetFocus
            DoCmd.RunCommand acCmdPaste
            Controls(strActiveCtl).Value = StrConv(Me.mtn_gecici.Text, 1)
End Select
End Sub

Formda mtn_gecici adında metin kutusu olacak, formda veri yapıştılacak metin kutusunu tıklayıp F3'e bastığında kopyaladığın veriyi tümü büyük harflerle yapıştırır. Tuş önizleme özelliğinin Evet olarak seçilmesi de gerekli.
teşekkürler sn. @ozanakkaya
@benbendedeilem
Son Düzenleme: 16/04/2020, 09:54, Düzenleyen: accessman.
Cevapla
#5
Bir problem var arkadaşlar yukarıda yazdığım kod ile
"ANKSİYETE BOZUKLUĞU"
kelimesini
"Anksİyete Bozukluğu"
şekline çevirdi. Yani "İ" harfi büyük kaldı neden olabilir
@benbendedeilem
Cevapla
#6
Visual Basic Code
Public Function bkucuk(kelime)
Dim kont, i As Integer
Dim harf, eharf As String
    kont = Len(kelime)
    If kont <> 0 Then
        harf = Mid(kelime, 1, 1)
        If Asc(harf) = 73 Or Asc(harf) = 253 Then
            bkucuk = bkucuk & "I"
            ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
            bkucuk = bkucuk & "İ"
 
            ElseIf harf = "ç" Or harf = "Ç" Then
            bkucuk = bkucuk & "Ç"
            ElseIf harf = "ğ" Or harf = "Ğ" Then
            bkucuk = bkucuk & "Ğ"
            ElseIf harf = "ö" Or harf = "Ö" Then
            bkucuk = bkucuk & "Ö"
            ElseIf harf = "ş" Or harf = "Ş" Then
            bkucuk = bkucuk & "Ş"
            ElseIf harf = "ü" Or harf = "Ü" Then
            bkucuk = bkucuk & "Ü"
            Else
            bkucuk = bkucuk & UCase(harf)
        End If
        For i = 2 To Len(kelime)
            harf = Mid(kelime, i, 1)
            If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
                If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   bkucuk = bkucuk & "I"
                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                    bkucuk = bkucuk & "İ"
                    ElseIf harf = "ç" Or harf = "Ç" Then
                    bkucuk = bkucuk & "Ç"
                    ElseIf harf = "ğ" Or harf = "Ğ" Then
                    bkucuk = bkucuk & "Ğ"
                    ElseIf harf = "ö" Or harf = "Ö" Then
                    bkucuk = bkucuk & "Ö"
                    ElseIf harf = "ş" Or harf = "Ş" Then
                    bkucuk = bkucuk & "Ş"
                    ElseIf harf = "ü" Or harf = "Ü" Then
                    bkucuk = bkucuk & "Ü"
                    Else
                    bkucuk = bkucuk & UCase(harf)
                End If
                Else
                If Asc(harf) = 73 Or Asc(harf) = 253 Then
                    bkucuk = bkucuk & "ı"
                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                    bkucuk = bkucuk & "i"
                    ElseIf harf = "ç" Or harf = "Ç" Then
                    bkucuk = bkucuk & "ç"
                    ElseIf harf = "ğ" Or harf = "Ğ" Then
                    bkucuk = bkucuk & "ğ"
                    ElseIf harf = "ö" Or harf = "Ö" Then
                    bkucuk = bkucuk & "ö"
                    ElseIf harf = "ş" Or harf = "Ş" Then
                    bkucuk = bkucuk & "ş"
                    ElseIf harf = "ü" Or harf = "Ü" Then
                    bkucuk = bkucuk & "ü"
                    Else
                    bkucuk = bkucuk & LCase(harf)
                End If
            End If
            eharf = harf
        Next i
    End If
End Function
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task