Avatar billede colg Nybegynder
17. juli 2002 - 18:44 Der 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 :)

//CoLG
Avatar billede sjh Nybegynder
17. juli 2002 - 21:08 #1
'(klikker på en knap bliver der addet noget til en textbox )
'
'Tilføje en CommandButton og en TextBox på en form og prøv :-)

Private Sub Command1_Click()
  Text1.Text = "Dette er en tekst!"
End Sub

Private Sub Form_Load()
  Command1.Caption = "klik her!"
End Sub
Avatar billede sjh Nybegynder
17. juli 2002 - 21:20 #2
'(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
Avatar billede sjh Nybegynder
17. juli 2002 - 21:26 #3
ellers prøv nogle af disse links:

(Artikler på dansk)
http://www.udvikleren.dk/vis_artikler.php4?kat=4

(Visuel Basic for første gang)
http://www.udvikleren.dk/vis_artikel.php4?id=7
Avatar billede colg Nybegynder
17. juli 2002 - 23:55 #4
THX!
Avatar billede colg Nybegynder
18. juli 2002 - 00:00 #5
men det duer ik helt da den overwriter
Avatar billede sjh Nybegynder
18. juli 2002 - 13:46 #6
Så prøv sådan:

'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
Avatar billede colg Nybegynder
18. juli 2002 - 22:02 #7
hmm der er du nødt til at åbne en fil :/
Avatar billede sjh Nybegynder
18. juli 2002 - 22:48 #8
hvad mener du så. Du kan da ikke tilføje noget i en file uden at åbne den.

Hvordan ville du putte noget i en papkasse hvis du ikke må åbne den. :-)
Avatar billede colg Nybegynder
21. juli 2002 - 14:46 #9
hehe man kan da sagtens skrive i en textbox uden at det behøver at være i en fil
Avatar billede sjh Nybegynder
21. juli 2002 - 14:53 #10
men det duer ik helt da den overwriter, er det ikke overskrive en file

ellers skal du gørere sådan:
Private Sub Command1_Click()
  Text1.Text = Text1.Text & Text1.Text
End Sub
Avatar billede colg Nybegynder
22. juli 2002 - 01:10 #11
hehe thx :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester