PC World Online - Visual Basic

BELGELER MENÜSÜ KULLANIMI

Programı oluşturmak için öncelikle resimde görüldüğü gibi ü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 = vbNullString
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.