Anasayfa > Kodlar > Visual Basic 6 ile Word’de kopyala-yapıştır ve büyük-küçük harf

Visual Basic 6 ile Word’de kopyala-yapıştır ve büyük-küçük harf


Forma 1 tane text, 3 tane kes kopyala yapıştır adlı buton ekleyin.2tane de buton ekleyin adları "b" ve "k" olacak .forma bir tane daha buton ekleyin ismi "s" olsun.forma 1 tane daha buton ekleyin ismi "print"polsun.proje refernsinden microsoft word11 object library seçinve forma bir tane word adlı buton koyun.

Private Sub kes_Click()
On Error Resume Next
Clipboard.SetText Text1.SelText
've sil
Text1.SelText = ""
End Sub
Private Sub kopyala_Click()
On Error Resume Next
'seçili kısmı panoya kopyala
Clipboard.SetText Text1.SelText
End Sub
Private Sub yapıştır_Click()
On Error Resume Next
'seçili kısma panodakini yapıştır
Text1.SelText = Clipboard.GetText()
End Sub
Private Sub k_Click()
If Text1.SelLength = 0 Then
'seçili kısım yoksa tümünü çevir
Text1.Text = LCase(Text1.Text)
Else
Text1.SelText = LCase(Text1.SelText)
End If
End Sub
Private Sub b_Click()
If Text1.SelLength = 0 Then
'seçili kısım yoksa tümünü çevir
Text1.Text = UCase(Text1.Text)
Else
Text1.SelText = UCase(Text1.SelText)
End If
End Sub
Private Sub s_Click()
text1.text=""
end sub
Private Sub print_Click()
form1.print form
end sub
Private Sub word_Click()
Dim objWord As New Word.Application         ‘ Word nesnesi oluşturuluyor
objWord.Visible = True
objWord.Documents.Add
With objWord.Selection                   ‘ Nesne özellikleri ayarlanıyor
.TypeText Text1.Text
.WholeStory
.Font.Size = 20
.Font.Underline = True
.Font.Italic = False
.Font.Bold = True
.Font.ColorIndex = wdGreen
.HomeKey Unit:=wdStory
End With
Set objWord = Nothing
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: