小吳 VBQA 程式設計討論

我的方法是不用 MScalendar8.0 的外觀很爛.... 而且到網上找找看，類似的有很多

謝謝大貓大大的指導 小弟已開始著手弄個自製的日曆控制項 ' 之前的問題..以下是小弟隨便瞎湊出來的解法，還請各位大大指導一下 因為事實上有些東西還不是很了解 '宣告一個VB...不知道的東東 @@ Option Explicit Dim WithEvents MyCal As VB.VBControlExtender ' '抓出機碼中日曆控制項的ProgID，藉以新增日曆控制項 'basRegistry.GetRegDataCStr為小弟自己的模組，目的為讀取Registry的值 'Private Sub Form_Load() Dim strProgID As String strProgID = basRegistry.GetRegDataCStr("HKEY_CLASSES_ROOT\CLSID\{8E27C92B-1264-101C-8A2F-040224009C02}\ProgID", "") 　　Set MyCal = Controls.Add(strProgID, "MyCal", Me) 　　MyCal.Visible = True 　　MyCal.Move 120, 360, 4335, 2655 　　MyCal.object.FirstDay = 1 End Sub ' '利用ObjectEvent的Info來作事件處理 'Private Sub MyCal_ObjectEvent(Info As EventInfo) Select Case Info.Name 　　　　Case "NewMonth" 　　　　　　...... 　　　　Case "NewYear" 　　　　　　...... 　　　　Case "AfterUpdate" 　　　　　　Label1.Caption = MyCal.Object.Value 　　End Select End Sub