我正試圖修改某人在VB6中寫過的程序,並且遇到了下面這行以及許多類似的行。我的問題是,在句法上,這個「Get」行看起來像是或可能做什麼?在VB6中做什麼?
Get #3, StartByte + Offset, StudentScrBytes
在此程序,它總是跟着3逗號分隔的項目,並有一個例外,第一個項目就是以#開頭的數字。第二看起來總是解決一個數字,第三個單一變量。
我很確定我已經想出了以#開頭的數字是文件引用 - 第一次出現Get,而不是#3或#10或#whatever,它有一個變量「TempFile」初始化爲FreeFile().
TempFile = FreeFile()
Open "c:\folerName.dir" For Binary Shared As TempFile
唯一的東西,我已經能夠找到獲取VB6,似乎涉及到OOP和getter/setter方法。也許我錯了,但我真的不認爲這是發生了什麼,我所有的都是模糊的猜測。
這裏是該行取自的函數。兩個參數都是整數。
Function StudentScr$(Record, Contest)
Dim StudentScrBytes As String * 4
StartByte = (Record - 1) * LengthOfStudentRecord
If Contest = 1 Then Offset = 77
If Contest = 2 Then Offset = 85
If Contest = 3 Then Offset = 94
If Contest = 4 Then Offset = 102
If Contest = 5 Then Offset = 110
If Contest = 6 Then Offset = 118
If Contest = 7 Then Offset = 126
If Contest = 8 Then Offset = 134
Get #3, StartByte + Offset, StudentScrBytes
StudentScr$ = StudentScrBytes
End Function
我想獲得將獲得從指定的文件的東西,但我不能告訴如何(或者)的文件,即使是在所有指定。
文檔:https://msdn.microsoft.com/en-us/library/office/gg278468.aspx(VBA,但與VB6相同) – GSerg
我想知道您是如何找到它的。即使現在,我也無法通過Google找到它,嘗試3種不同的搜索字符串! – donutguy640
我知道VB6文檔已被刪除,所以我搜索了'office vba get keyword',因爲我忘記了'get'是什麼(操作符?子句?)。這導致https://msdn.microsoft.com/en-us/library/office/gg264285.aspx導致https://msdn.microsoft.com/en-us/library/office/gg278468.aspx。 – GSerg