TextBox ScrollBars 2 eller 3

Jeg mener at det er umuligt ved hjælp af normal kode at ændre ScrollBars (som du jo nok har fået af vide af VB da du prøvede *s*)

Hvis der er nogle der ved anderledes så er jeg lige med på en lytter :)

Nej, som der står i MSDN Library (\'99) under et lookup af \'scrollbars\' property:

\"Returns or sets a value indicating whether an object has horizontal or vertical scroll bars. Read only at run-time.\"

Så det er desværre ikke muligt.. med mindre der er nogle der kan subclasse det og lave det på den måde..

tdaugaard har ret. Men der findes fuzker løsningen (hehe) den kommer her:

lav to textboxe over hinanden, hvor der i den ene er en scrollbar der er lig med horisontal og i den anden textbox er scrollbars der understøtter begge (both).

Så er det bare at skrive:
If Check1.value = false then
  textbox1.visible = true
  textbox2.visible = false
  textbox1.text = textbox2.text
End if
If Check1.value = true then
  textbox2.visible = true
  textbox1.visible = false
  textbox2.text = textbox1.text
End if

<< powell >>
hi hi .. den løsning har jeg brugt engang jeg lavede min egen flat textbox .. det var så godtnok med MultiLine, men den er også read only @ run-time..

Forresten så har CheckBox.Value ikke true og false, men istedet 0,1,2 (Unchecked, Checked, Grayed)

Lidt optimering af koden...

Text1.Visible = (Check1.Value = vbUnChecked)Text2.Visible = (Check1.Value = vbChecked)

Select Case (Check1.Value = vbChecked)
    Case True: Text2.Text = Text1.Text
    Case False: Text1.Text = Text2.Text
End Select

Okay .. Text1.Vis.. og Text2.Vis.. skal se\'følig være på hver sin linie ;)

tdaugaard > Du har ret, jeg har stadig ikke fået glædet nok kaffe ind i øjnende, det er min fejl.

<< powell >>
Det er sådan noget der slipper når man sidder med søvn i øjnene og prøver på at ligne en der er vågen, samtidig med man prøver at få krænget en bluse ned over hovedet i det sekund man beslutter sig for at klikke \"Udfør\" .. *lol*

tdaugaard: i linje \"Text1.Visible = (Check1.Value = vbUnChecked)Text2.Visible = (Check1.Value = vbChecked)\" mangler der et \":\" hvis det skal stå på en linje.

Så kommer koden til at se sådan ud:

Private Sub Check1_Click()
Text1.Visible = (Check1.Value = vbUnchecked): Text2.Visible = (Check1.Value = vbChecked)

Select Case (Check1.Value = vbChecked)
    Case True: Text2.Text = Text1.Text
    Case False: Text1.Text = Text2.Text
End Select
End Sub

jeg kan ikke give dig point da du lavet det som en  Kommentar, så dem må du have tilgode. ;)

Helt oki :) Jeg lavede også bare lidt om på powell\'s svar (og rettede en lille ting) så det er helt fint.

Hi hi .. jeg manglede ikke et :, men da jeg trykkede Udfør så kom det til at stå sådan her.
Det var meningen at det skulle ha været:

Text1.Visible = (Check1.Value = vbUnChecked)
Text2.Visible = (Check1.Value = vbChecked