摘要:
使用gdi+畫了一個Label,支持陰影,圓形邊框,漸變背景,其中較重要的幾個應用1/繪畫區域的獲得:Private Sub GetRoundRect() Dim gp As New GraphicsPath gp.StartFigure() gp.AddLine(PSL + RC, PST, PSL + RL - RC, PST) gp.AddArc(New RectangleF(PSL + R... 阅读全文
posted @ 2005-09-10 14:15
James Wong
阅读(665)评论(0)推荐(0)
编辑
摘要:
一、查找其他數據庫的檔案並打開Sub Click(Source As Button)Dim s As New NotesSessionDim w As New NotesUIWorkspace 'Dim dc As NotesDocumentCollection Dim db As NotesDatabase Dim doc As NotesDocument Set db=s.GetDatabas... 阅读全文
posted @ 2005-06-22 11:40
James Wong
阅读(782)评论(0)推荐(0)
编辑
摘要:
數據庫的存取一、簡單的Access數據庫存取(ODBC)Sub Click(Source As Button)Dim conn As New ODBCConnection Dim tqry As New ODBCQuery Dim trst As New ODBCResultSet Dim ProdCode As StringDim js As Long Dim msg As String If ... 阅读全文
posted @ 2005-06-16 10:22
James Wong
阅读(2442)评论(0)推荐(0)
编辑
摘要:
一、對視圖(VIEW)的操作 Sub Initialize Dim session As New NotesSession '定義當前的存儲 Dim db As NotesDatabase '設置當前的數據庫 Dim dc As NotesDocumentCollection '定義當前文檔集合 Dim doc As NotesDocument '定義單個文檔 Dim item As ... 阅读全文
posted @ 2005-05-05 08:40
James Wong
阅读(1832)评论(1)推荐(0)
编辑