檢視 VB6 的原始碼

'''VB6'''（Visual Basic 6.0），{{wikipedia|Visual_Basic|lang=en}}

==技術文件==
*[https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation Visual Basic 6.0 Documentation | Microsoft Docs]
*[https://www.vbtutor.net/vbtutor.html Visual Basic 6 Tutorial]

==相關下載==
*[http://www.microsoft.com/downloads/details.aspx?FamilyID=9EF9BF70-DFE1-42A1-A4C8-39718C7E381D&displaylang=zh-tw Visual Basic 6.0 Service Pack 6]
*[http://www.microsoft.com/downloads/details.aspx?familyid=25437D98-51D0-41C1-BB14-64662F5F62FE&displaylang=zh-tw Microsoft Visual Basic 6.0 通用控制項]（mscomctl.ocx 與 comctl32.ocx）
*[http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=zh-tw Visual Basic 6.0 Service Pack 6：Run-Time 轉散發套件 (vbrun60sp6.exe)]
*[http://www.microsoft.com/downloads/details.aspx?familyid=E1646FB0-29D5-4A6E-A8D2-304C4D7735B7&displaylang=zh-tw Visual Basic 6 OLEAUT32.DLL 安全性更新]
*[http://tlcheng.twbbs.org/TLCheng/Basic/vbindex.htm 「鄭子璉」所寫的一些VB6的模組]
*[http://itgroup.blueshop.com.tw/fleget/FileDownLoad.aspx?CDE=2476 VBAutoIndent.dll] 
*:[https://ithelp.ithome.com.tw/questions/10052913?tag=ithome.nq VB代碼自動縮進與添加行號]

==常用元件==
* [http://support.microsoft.com/?scid=kb%3Bzh-tw%3B194784&x=11&y=15 隨附於 Visual Basic 6.0 的控制項]
{|  class="wikitable sortable" bgcolor="#1f1f1f" border="1" cellpadding="2" cellspacing="0" width="100%"
|-
!元件名稱
!檔名
!路徑
|-
| Microsoft Windows Common Controls 5.0
| comctl32.ocx
| C:\WINDOWS\system32 
|-
| Microsoft Windows Common Controls 6.0
| [[Mscomctl.ocx]]
| C:\WINDOWS\system32 
|-
| Microsoft Rich Textbox Controls 6.0
| [[Richtx32.ocx]]
| C:\WINDOWS\system32 
|-
| Windows Media Platyer
| [[Wmp.dll]]
| C:\WINDOWS\system32 
|-
| Microsoft FlexGrid Control
| msflxgrd.ocx
| C:\WINDOWS\system32 
|-
| MSMask
| [[Msmask32.ocx]]
| C:\WINDOWS\system32 
|-
| THREED32 - 32 Bit OLE Control DLL
| [[Threed32.ocx]]
| C:\WINDOWS\system32
|-
| Microsoft [[ADO|ActiveX Data Objects]] 2.1 Library
| msado21.tlb
| C:\Program Files\Common Files\system\ado
|-
| TabCtl32 Object Library
| [[Tabctl32.ocx]]
| C:\WINDOWS\system32
|-
| MSMAPI Controls Library
| [[Msmapi32.ocx]]
| C:\WINDOWS\system32
|-
| [[MCI]] OLE Control DLL
| [[Mci32.ocx]]
| C:\WINDOWS\system32
|-
|Microsoft [[DAO]] 3.6 Object Library
|dao360.dll
|C:\Program Files\Common Files\Microsoft Shared\DAO
|-
|}

==範例==
* [http://www.vb6.us/source-code Visual Basic Source Code Samples]
* [http://www.codeproject.com/KB/vb-interop/ VB6 Interop - Bringing VB6 into the .NET fold]（在VB6裡使用.Net Framework？）

==FAQ==
===4種字串變數定義方式===
* 定義X為1個字串(可動態長度)
 Dim X As String
* 定義X為1個字串,固定為4個字元(超長會自動切字串, 不夠長會自動補空排字元)
 Dim X As String * 4
* 定義X為1個字串陣列(0~10)
 Dim X(11) As String 
* 定義X為1個字串陣列(0~10), 且各為固定為4個字元(超長會自動切字串, 不夠長會自動補空排字元)
 Dim X(11) As String * 4

===對話框置中===
在 Form_Load() 加入
   Left = (Screen.Width - Width) / 2
   Top = (Screen.Height - Height) / 2

===文字檔分行讀取===
<source lang="vb">
Dim TxtFileName As String
Dim InputFile As Integer
Dim Index As Integer
Dim InputStr As String
Dim InputStr2() As String

InputFile = 2
TxtFileName = "Test.txt"

Open TxtFileName For Input As #InputFile
Do While Not EOF(#InputFile)

    '自檔案中讀入資料，Line Input # 所採用Chr(13) 或 Chr(13)+Chr(10) 的斷行方式
    Line Input #1, InputStr
        
    'Chr(10)的斷行方式修正
    InputStr2 = Split(InputStr, Chr(10), -1)
    For Index = 0 To UBound(InputStr2)
        InputStr = InputStr2(Index)
        If (Len(InputStr) > 0) Then

            '實際的作業(略)

        End If
    Next
Loop
Close #InputFile
</source>

===OpenDatabase函數執行時跑出, "找不出可安裝的ISAM"===
* OpenDatabase 是 [[DAO]]的開啟資料庫用的函數。
# OpenDatabase函數的第4個參數寫錯字？（"dBase IV"，"Text"……等）
#: 參照機碼 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\ISAM Formats
# DAO的版本問題？VB6 剛出的時候，內建DAO 3.5，對應到Jet 3.5，後來新版的Windows已不再支援Jet 3.5了，因此應該將DAO的 引用設定到 3.6，以便使用Jet 4.0 。
#: 在VB6裡 （專案 → 設定引用項目），先把原本的DAO勾選取消掉，確定後，再設定引用DAO 3.6
#: 參照：[http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/3786c9f7-45ce-4bbd-8ef1-ec2f2ac12d48 VB6的問題, OpenDatabase 函數執行時跑出, "找不出可安裝的ISAM"]

===表單上的控制項閃個不停？===
* 可能是UI與程式碼陷入死結，試著在可疑的程式碼前後，用DoEvents去等待完成
<source lang="vb">
Dim nDoEvents

'用下面這個加在可疑程式碼的前後
nDoEvents = DoEvents()
</source>
===安裝VB6在64bit的Windows===
*[http://blog.paramitadirect.com/webtechs/VB6-WIN7-64bit-install 安裝 VB6 在 Windows 7 (WIN7) 64位元系統]

[[Category:程式語言]]
[[Category:VB6]]
[[Category:BASIC程式語言家族]]
[[分類:Microsoft]]