|
| Autor |
Nachricht |
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
In einer Textbox Scrollen
Verfasst am: 23.06.2007, 21:33 |
|
|
also habs mal so versucht ging aber net
wie bekomm ich das mir dem scrolen ihn ?
hier beispiel:
code:
Private Sub Command1_Click()
Label1.Caption = "text1"
End Sub
bild:
so
text1 is aber ziehmlich groß
deshalb der scroll button
nun weis ich aber nicht wie ich den mireinbringen kann |
|
| |
|
 |
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 23.06.2007, 21:38 |
|
|
Das ist keine Textbox, sondern ein Frame 
Mach eine Textbox und setz die Eigenschaft "Scrollbars" auf 2 |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 23.06.2007, 23:12 |
|
|
aso -.-
wie kann ich das denn so machen das man an dem text nichts ändern kann ?
edit: ok habs gemacht
passt jetzt aber hiermit nicht zusammen:
http://enco.silent-thunder.de/board/viewtopic.php?t=579
kann da keinen absatz machen -.-
also kurtzgefasst:
ich brauch etwas wo ein text drinne stehen kann mit absatz aber man den nicht verändern kann und ich einen scroll reinsetzen kann |
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 23.06.2007, 23:57 |
|
|
Textbox
Scrollbars = 2
Multiline = True
Enabled = False |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 24.06.2007, 00:33 |
|
|
ok das geht jetzt
kann aber i-wie net runterscrolen
naja auch egal
es werden bestimmt noch weitere fragen folgen da ich grad ein programm in einem stück mache und in den tuts nicht alles erklärt ist -.- |
|
| |
|
|
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 24.06.2007, 10:28 |
|
|
wahrscheinlich ist der text in der textbox einfach nicht langgenung, dass es irgendwas zum scrollen gäbe  |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 24.06.2007, 11:37 |
|
|
doch hab das textfeld klein gemacht und einen ca.50 zeilen langen text eingefügt
wie lang der text ist weis ich nicht genau da ich ja net runterscrolen kann -.-
hier:
bild:
code:
Private Sub Command1_Click()
If Check1.Value Then Text1.Text = Text1.Text & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf
End Sub
das kommt dabei aber raus:
hier das programm:
http://uploaded.to/?id=wzbej9 |
|
| |
|
|
Chickenman_
Poster
Anmeldedatum: 24.04.2007
Beiträge: 149
|
Verfasst am: 24.06.2007, 11:58 |
|
|
| Code: | Private Sub Command1_Click()
If Check1.Value = 1 Then
Text1.Text = Text1.Text & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf
End Sub |
so ist es richtig = 1 jedenfalls gibt es dann keine probleme du könntes auch das so machen
IF check1.value = 1then
text1.text = text1.text & " text"
end if
dann machst du ein timer
in den stehet dann
if text1.text = "text" then
text1.text = & vbCrlf "text"
end if
den intervall setz du dann auf z.b 500
und dann macht der timer
immer
Text
text
text
text
text
jetz macht er das aber un entlich also
muss du das noch rein fügen in den timer
Dim Zähler as Interger
Dim Stop as Interger
Zähler = 0
stop = 50
Zähler = Zähler +1
if Zähler = Stop then
timer1.enabele = false
So nun hört er bei 50 text nachrichten oder texten auf .
Aber naja ist alles per kopf kann sein das ich mich verschrieben habe |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 24.06.2007, 12:03 |
|
|
der soll aber ja nicht immer den selben code senden sondern einen bestimmten
das mit "text" is ja nur ein bespiel -.-
das einzige was net geht is ja der scroler
weis auch net warum |
|
| |
|
|
413X_
« Moderator »
Anmeldedatum: 16.12.2006
Beiträge: 266
|
Verfasst am: 24.06.2007, 12:05 |
|
|
Wenn du mit scrollen meinst, das der automatisch immer ans Ende gehen soll dann hilft dir das:
Text1.SelStart = len(text1.text)
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 24.06.2007, 13:42 |
|
|
also so ? :
Private Sub Command1_Click()
If Text1.SelStart = len(text1.text) & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf
End Sub
edit:
geht nicht
Laufzeitfehler '13':
Typen unverträglich
-.-
Zuletzt bearbeitet von big earl_ am 24.06.2007, 13:50, insgesamt einmal bearbeitet |
|
| |
|
|
413X_
« Moderator »
Anmeldedatum: 16.12.2006
Beiträge: 266
|
Verfasst am: 24.06.2007, 13:44 |
|
|
nein
das was ich geschrieben hat kommt einfach ans ende um zu scrollen..
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 24.06.2007, 13:55 |
|
|
Private Sub Command1_Click()
If Check1.Value Then Text1.Text = Text1.Text & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf & "text" & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub ??????? |
|
| |
|
|
413X_
« Moderator »
Anmeldedatum: 16.12.2006
Beiträge: 266
|
Verfasst am: 24.06.2007, 13:59 |
|
|
ja dann scrollt de rnach dem hinzufuegen immer zum ende
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
|
Registrieren
Login
