/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hjælp ønskes til Automatisk dato i en text~
Fra : Mich


Dato : 01-02-03 23:17

Hej Gruppe!

Jeg er i gang med at lave en database, der indeholder et Note felt
(TextBox). Jeg vil gerne have indsat dags dato og placeret markøren efter
datoen sidst i feltet. Hvis der er tekst i feltet inden jeg dobbelt klikker
vil jeg have indsat datoen på en ny linie og placeret markøren her.

Jeg har forsøgt med denne kode, men jeg får ikke det rigtige resultat.
Private Sub txtNote_DblClick()

If Len(txtNote) Then
txtNote.Text = txtNote.Text & vbCrLf & Format(Date$, "dd-mm-yyyy") &
": "
Else
txtNote.Text = Format(Date$, "dd-mm-yyyy") & ": "
End If
End Sub

Markøren står i begyndelsen af linien og istedet for en ny linie, får jeg to
lodrette streger. Jeg tror at problemet er, at jeg ikke for skrevet det
rigtige i keyboard bufferen.

På forhånd tak

Michael





 
 
Martin Wiboe (02-02-2003)
Kommentar
Fra : Martin Wiboe


Dato : 02-02-03 10:05

Hej,

Din kode virker rigtig, men for at lave en ny linie, skift vbCrLf ud med
vbNewLine. (din textbox skal selvfølgelig være MultiLine. For at placere
koden i enden af linien, brug denne kode:
txtNote.selStart = Len(txtNote.Text)
i enden af din datofunktion.
Har ikke testet det, men så vidt jeg kan se burde det virke...

Med venlig hilsen,
Martin Wiboe
"Mich" <reinhold@tiscali.dk> skrev i en meddelelse
news:EHX_9.50693$Hl6.6409844@news010.worldonline.dk...
> Hej Gruppe!
>
> Jeg er i gang med at lave en database, der indeholder et Note felt
> (TextBox). Jeg vil gerne have indsat dags dato og placeret markøren efter
> datoen sidst i feltet. Hvis der er tekst i feltet inden jeg dobbelt
klikker
> vil jeg have indsat datoen på en ny linie og placeret markøren her.
>
> Jeg har forsøgt med denne kode, men jeg får ikke det rigtige resultat.
> Private Sub txtNote_DblClick()
>
> If Len(txtNote) Then
> txtNote.Text = txtNote.Text & vbCrLf & Format(Date$, "dd-mm-yyyy")
&
> ": "
> Else
> txtNote.Text = Format(Date$, "dd-mm-yyyy") & ": "
> End If
> End Sub
>
> Markøren står i begyndelsen af linien og istedet for en ny linie, får jeg
to
> lodrette streger. Jeg tror at problemet er, at jeg ikke for skrevet det
> rigtige i keyboard bufferen.
>
> På forhånd tak
>
> Michael
>
>
>
>



Tomas Christiansen (02-02-2003)
Kommentar
Fra : Tomas Christiansen


Dato : 02-02-03 12:06

Martin Wiboe skrev:
> ... skift vbCrLf ud med vbNewLine.

vbCrLf og vbNewLine er _nøjagtig_ det samme, nemlig Chr(13) + Chr(10).

-------
Tomas


Mich (03-02-2003)
Kommentar
Fra : Mich


Dato : 03-02-03 22:58

Hurra!

Det virker, mange tak for hjælpen.

med venlig hilsen

Michael




Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste