08. februar 2004 - 23:30Der er
8 kommentarer og 1 løsning
Function Spm
Jeg bruger denne kode til at indlæse en tekst fil til et tekst felt. Er der en som ikke kan lave det om til en function så man ikke skal skrive hele koden ved alle de steder den skal bruges? Et lille eks:
Private Sub Command1_Click()
Dim intFree As Integer Dim strOut As String
intFree = FreeFile Open "C:\Visual Basic\Reinstall\Lyd.txt" For Binary Access Read As #intFree strOut = Space$(LOF(intFree)) Get #intFree, 1, strOut Close #intFree
Text1.Text = strOut End Sub
Skal gerne laves om til en function, og så skal den linie der henviser til filen skal kunne ændres så den er tilpasset hver kanp!
Da din function ikke returnerer noget som helst, ville jeg
1: lave det som en Sub:
Sub ReadFile(fname as String) 'Bla bla, kode fra ovenstående End Sub
Den kaldes så med: ReadFile "c:\mappe\fil" 'Kald uden paranteser
2: Eller lade den returnere noget
Function ReadFile(fname as String) as String Dim intFree As Integer Dim strOut As String intFree = FreeFile Open fname For Binary Access Read As #intFree strOut = Space$(LOF(intFree)) Get #intFree, 1, strOut Close #intFree ReadFile = strOut End Functionj
Den kaldes så med: Text1.text = ReadFile("c:\mappe\fil")
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
