[VB6]Optional parameters for function declares

- 
  1. Private Sub SomeSub(Optional SomeParam As Integer = 0)
  2.     ' user code
  3. End Sub

Ref
https://docs.microsoft.com/zh-tw/dotnet/visual-basic/programming-guide/language-features/procedures/optional-parameters
https://stackoverflow.com/questions/4071820/default-value-for-function-parameters-in-vb6

留言

張貼留言

這個網誌中的熱門文章

[VB6]使用File Dialog選擇檔案

-
圖片
加入 Common Dialog 的控件 , 成功加入後出現紅框的 Icon 表示成功 Microsoft Common Dialog Control 6.0 Control Object of Form 先在 Form 上建立 CommonDialog 的控件 , 如未建立使用控件會跳出 Variable not defined. Button 呼叫 CommonDialog, 顯示 FileDialog Private Sub CTL_BTN_SEL_FILE_Click() With CommonDialog1 .DialogTitle = "Select the Report File" .Filter = "Custom Format (*.xls)|*.xls" .Flags = .Flags + cdlOFNHideReadOnly .InitDir = specialPath("Desktop") .ShowOpen CTL_BTN_SEL_FILE.Caption = .fileName End With End Sub Property DialogTitle As String 設定 Dialog 的 Title Property Filter As String 設定檔案類型 https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa238813(v=vs.60) Property Flags As Long 設定屬性 https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa238842(v=vs.60) Property InitDir As String 設定初始位置 Sub ShowOpen () 顯示 File Dia...
閱讀完整內容

[VB6]MSFlexGrid使用記錄

-
圖片
- 設定 於 Components 加入 MSFlexGrid Microsoft FlexGrid Control 6.0 (SP6) C:\Windows\SysWow64\MSFLXGRD.OCX 加入後即在 Component Panel 上出現 MSFlexGrid 的控件 ( 紅框處 ) 在 Form 上建立 MSFlexGrid 控件 ,  對控件按右鍵可設置其 Property Common Property Style Property   Font Property   Color Property   Picture Property 在 Code 中設置 Property 較有彈性 , 故於選單中的屬性怒不設定 - 記錄 ' configuration property of MSFLESGRID1 With MSFlexGrid1 .AllowBigSelection = False .ColAlignment(-1) = flexAlignCenterCenter .FixedCols = 0 .FixedRows = 1 .HighLight = flexHighlightNever .ScrollBars = flexScrollBarVertical .ScrollTrack = True End With Property AllowBigSelection As Boolean 在 Row / Column 點選 Header 時 , 全選該 Rows 或 Columns Property ColAlignment (index As Long) As Integer 指定 Columns 的文字對齊 , -1 表設置全部 Columns Property FixedCols As Long Property FixedRows As Long 指定 Header 的數量 Property HighLight As HighLightSettin...
閱讀完整內容

[VBA]如何藉由使用 Excel 中的 Visual Basic 程序選取儲存格/範圍

-
https://support.microsoft.com/zh-tw/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel Microsoft 僅提供示範性的程式設計範例，不做任何明示或默示的保證。 其中包括 (但不限於) 其適售性與適合某特定用途之默示擔保。 本文將假設您已相當熟悉示範所使用的程式設計語言，以及用於建立和偵錯程序的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能，但無法修改這些範例以提供附加功能或建構程序來滿足您的特定需求。  本文中的範例會使用下表中所列的 Visual Basic 方法。 方法 引數 ------------------------------------------ Activate none Cells rowIndex, columnIndex Application.Goto reference, scroll Offset rowOffset, columnOffset Range cell1 cell1, cell2 Resize rowSize, columnSize Select none Sheets index (or sheetName) Workbooks index (or bookName) End direction CurrentRegion none 本文中的範例會使用下表中的屬性。 屬性 用途 --------------------------------------------------------------------- ActiveSheet 指定使用中的工作表 ActiveWorkbook 指定使用中的活頁...
閱讀完整內容