1 write to m_lRecordLen
Microsoft.VisualBasic.Core (1)
Microsoft\VisualBasic\CompilerServices\VB6File.vb (1)
391m_lRecordLen = lRecordLen
37 references to m_lRecordLen
Microsoft.VisualBasic.Core (37)
Microsoft\VisualBasic\CompilerServices\VB6BinaryFile.vb (4)
41If m_lRecordLen = -1 Then 45absRecordLength = m_lRecordLen 67If m_lRecordLen = -1 Then 71absRecordLength = m_lRecordLen
Microsoft\VisualBasic\CompilerServices\VB6File.vb (26)
486If (m_lRecordLen = -1) OrElse (GetMode() <> OpenMode.Random) Then 490If m_lRecordLen = 0 Then 500Return (m_position \ m_lRecordLen) + 1 511If m_lRecordLen = 0 Then 517ElseIf m_lRecordLen = -1 Then 534If (lSeekPos Mod m_lRecordLen) = 0 Then 541lSeekPos = m_lRecordLen * (lSeekPos \ m_lRecordLen + 1) 546If m_lRecordLen = -1 Then 549lSeekPos = (RecordNumber - 1) * m_lRecordLen 625If m_lRecordLen = -1 Then 628m_file.Lock((Record - 1) * m_lRecordLen, m_lRecordLen) 636If m_lRecordLen = -1 Then 639m_file.Unlock((Record - 1) * m_lRecordLen, m_lRecordLen) 647If m_lRecordLen = -1 Then 650m_file.Lock((RecordStart - 1) * m_lRecordLen, ((RecordEnd - RecordStart) + 1) * m_lRecordLen) 658If m_lRecordLen = -1 Then 661m_file.Unlock((RecordStart - 1) * m_lRecordLen, ((RecordEnd - RecordStart) + 1) * m_lRecordLen) 1000If m_lRecordLen = -1 Then 1004If Length > m_lRecordLen Then 1007If (GetPos() + Length) > (m_lRecordStart + m_lRecordLen) Then 1754If GetPos() + totalLength <= m_lRecordStart + m_lRecordLen Then
Microsoft\VisualBasic\CompilerServices\VB6RandomFile.vb (7)
136lStartByte = (lStart - 1) * m_lRecordLen 137lLength = (lEnd - lStart + 1) * m_lRecordLen 153lStartByte = (lStart - 1) * m_lRecordLen 154lLength = (lEnd - lStart + 1) * m_lRecordLen 172If m_lRecordLen = 0 Then 177Return (pos + m_lRecordLen - 1) \ m_lRecordLen