| Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
| Tags1: | Created on Feb 5, 2008, 10:14 AM by fibkids/9Notes|Topic Responses: 16 |
| &action=openDocument&documentId=1792 |
คือสรุป แล้ว เราต้องสร้าง วิว หรือ โฟล์เดอร์มาตัวหนึ่ง
มาโชว์ใช่ไหมค่ะ แล้ว เอา โค๊ด พวกนี้ไปใส่
Dim Workspace As New NotesUIWorkspace
Dim Session As New NotesSession
Dim DbCurrent As NotesDatabase
Dim ServerName As String
Dim FileName As String
Dim PathName As String
Dim Dbname As String
Dim Uidoc As NotesUidocument
Set Uidoc = Workspace.CurrentDocument
Set DbCurrent = Session.CurrentDatabase
ServerName = DbCurrent.Server
FileName = DbCurrent.FileName
PathName = Left(DbCurrent.FilePath,Instr(1,DbCurrent.FilePath,FileName) - 1)
:yellow_redface.gif: :yellow_redface.gif: อยากรู้ว่าใส่ไว้ตรงไหนด้วยค่ะ
แล้วพอเรากดปุ่ม มันจะขึ้น วิว หรือ โฟลเดอร์มันจะขึ้นอีกอันมาให้เลยหรอค่ะ |
|