carmelo

VB'de Belgeler Menüsü Kullanımı VB'de Belgeler Menüsü Kullanımı
Belgeler Menüsü Kullanımı Programı oluşturmak için öncelikle üzerinde bir metin kutusu iki opsiyon kutusu bir de komut butonu bulunan bir form oluşturun. Opsiyon kutularının ismini opsiyon(0) ve opsiyon(1) olarak (Tabii ki Control Array) tanımlayarak aşağıdaki kodları uygun alanlara girin.
Private Sub Command1_Click()
Dim r As Long
Dim shFlag As Long
Dim shData As String
shFlag = SHARD_PATH

Select Case opsiyon(0).Value = True
Case True:
shData = (Text1)
Case False:
shData = vbaaaaString
End Select

r = SHAddToRecentDocs(shFlag shData)
End Sub

' Aşağıdaki satırlar formdan
' bağımsız bir BAS modülüne girecek.
Public Const SHARD_PIDL = &H1&
Public Const SHARD_PATH = &H2&
Public Declare Function SHAddToRecentDocs Lib
"shell32.dll" (ByVal dwFlags As Long ByVal
dwData As String) As Long
Programı çalıştırdıktan sonra opsiyon kutularını kullanarak ister metin kutusundaki dosyayı belgeler menüsüne ekler isterseniz belgeler menüsünü tamamen boşaltırsınız.