Sitede ara   Gelişmiş Arama seçenekleri »
TurkProgrammers.NeT
Ana sayfa Ana Sayfa | Ana sayfanız yapın | Sık kullanılanlara ekle | Rss/Rdf Besleme| JavaScript
Bölümler
Arşiv
paz sa ça pş cu cum pa
1234
567891011
12131415161718
19202122232425
262728293031

Mailinizi ekleyin
Haberlere abone olun:

anket: Web Programcılığının Geleceğini nasıl görüyorsunuz
Web Programcılığının Geleceğini nasıl görüyorsunuz?
Önü Fazlası ile açık
ilerde yapacak web sitesi kalmayacak
Hazır sistemler işleri iyice bitirecek
Bugünden daha kötü olamaz
Anket sonuçları | Eski Anketler


Ana sayfa : Makaleler : Visual Basic : OLE Metodları
email Arkadaşınızın maili | print Yazıcı versionu | comment Yanıtlar (0 Gönder)

OLE Metodları

by caner kuru on Ağustos 10,2008

small font medium font large font
image
Kodun yazıldığı sistem..: Pentium II 333Mhz, 64Mb ram
İşletim Sistemi.........: MS WindowsNT 4.0, Service Pack 5
Version.................: MS Visual Basic 6.0 Enterprise

Bu örneğimizde Visual Basic'de form üzerindeki objelerin OLE metodlarını nasıl kullanacağımızı görücez. Bunu için yeni bir proje başlatın ve formun üzerine bir 'Rich Text Box' ile bir 'List Box' koyun ve aşağıdaki kodu forma yapıştırın.

'Çeşitli formatlar için kullanılacak sabitler:
'Sabit Değeri Açıklama
'vbCFText 1 Text (.txt dosyaları)
'vbCFBitmap 2 Bitmap (.bmp dosyaları)
'vbCFMetafile 3 metafile (.wmf dosyaları)
'vbCFEMetafile 14 Enhanced metafile (.emf dosyaları)
'vbCFDIB 8 Device-independent bitmap (DIB)
'vbCFPalette 9 Color palette
'vbCFFiles 15 List of files
'vbCFRTF -16639 Rich text format (.rtf dosyaları)

Private Sub Form_Load()

List1.OLEDropMode = 1
List1.OLEDragMode = 1
rt1.OLEDropMode = 1

End Sub

Private Sub List1_OLEDragDrop(Data As DataObject, _
Effect As Long, _
Button As Integer, _
Shift As Integer, _
x As Single, _
y As Single)

Dim i%
If Data.GetFormat(vbCFFiles) Then
Caption = Data.Files.Count & " objesi seçildi"
List1.Clear
For i = 1 To Data.Files.Count
List1.AddItem Data.Files(i%)
Next i
End If

'If Data.GetFormat(vbCFText) Then
' List1.AddItem "Text : " & Data.GetData(vbCFText)
'End If

End Sub



Private Sub rt1_OLEDragDrop(Data As RichTextLib.DataObject, _
Effect As Long, _
Button As Integer, _
Shift As Integer, _
x As Single, _
y As Single)

If Data.GetFormat(vbCFText) Then
rt1.LoadFile Data.GetData(vbCFText), rtfText
End If

If Data.GetFormat(vbCFFiles) Then
rt1.LoadFile Data.Files(1), rtfText 'Demo için bir dosya yükle
End If

Caption = rt1.FileName

End Sub


F5 ile programı çalıştırın ve Visual Basic'i 'minimize' edin. Form üzerinde mouse ile gezerken formun aktif duruma geçtiğini göreceksiniz. Şimdi bir .rtf dosyasını yada bir text dosyasını windows explorer'dan fare ile taşıyarak 'List Box' üzerine bırakın. Dosyanın hangi dizinde olduğu görünecektir. Şimdide 'List Box' içinde görünen item'ı gene fare ile tutarak 'Rich Text Box' bölümüne taşıyın. Böylece dosyanın içeriği görünecektir

93 Kere okundu

Bu makaleyi beyendinizmi ?

1 2 3 4 5 Rating: 5.00Rating: 5.00Rating: 5.00Rating: 5.00Rating: 5.00 (Toplam 3 Oylar)
comment Yanıtlar (0 Gönder)
Çok okunanlar
En Çok Yorumlananlar
Yazarlar

Mr. CanaWar
Ana sayfa | Ana sayfanız yapın | Sık kullanılanlara ekle |

Tasarım: Türk Programmers

Netvibes Modulü

Siyyah