17. juli 2002 - 18:44Der er
10 kommentarer og 1 løsning
Indsæt i VB
hey jeg sad og lavede noget asp da jeg kom i tanke om hvor træt jeg er af at skrive database connection i ASp og sådan noget selv så jeg fyrede VB 6 op og begyndte at lege lidt men da jeg sad med en textbox og en menu med undermenuen kunne jeg ik komme længere fordi jeg mangler kode :(((((( nogen der ved hvordan man laver sådan at når man klikker på en knap bliver der addet noget til en textbox og forresten hvordan laver man open gem og gem som funktion har søgt på nettet men kunne ik finde noget :( på forhånd tak for svar :)
'(open og gemme) ' 'Tilføje to CommandButtons og en TextBox på en form 'TextBox kan du sette til MultiLine = True og ScrollBars = 3 i properties for Text1
'Læse en file (C:\Test.txt) Private Sub Command1_Click() Dim strTekst As String Open "C:\Test.txt" For Binary As #1 strTekst = Space(LOF(1)) Get #1, 1, strTekst Close #1 Text1.Text = strTekst 'Læser fra strTekst til TextBox1 (Text1) End Sub
'Gemme i en file (C:\Test.txt) Private Sub Command2_Click() Dim strTekst As String strTekst = Text1.Text 'Gemmer fra TextBox1 (Text1) Open "C:\Test.txt" For Binary As #1 Put #1, 1, strTekst Close #1 End Sub
'Tilføjer i en file (C:\Test.txt) Private Sub Command3_Click() Dim strTekst As String strTekst = Text1.Text 'Gemmer fra TextBox1 (Text1) Open "C:\Test.txt" For Binary As #1 If LOF(1) > 1 Then Put #1, LOF(1) + 1, strTekst Else Put #1, 1, strTekst End If Close #1 End Sub
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.