|
| Autor |
Nachricht |
Chickenman_ Poster

Anmeldedatum: 24.04.2007 Beiträge: 149
|
Slidebar
Verfasst am: 20.07.2007, 13:16 |
|
|
Wenn man die Slidebar einstellen möchte z.b für 1 - 10. Das soll dann in einer TExtbox dargestellt werden
so z.b http://www.pcdmx.de/ger/software/skelet/vb6scrn.gif
Ich habe das mit change probiert und dann halt if.
Das funktioniert aber nur 1 mal dann irgend wie nicht mehr.
Könnte jemand mir mal erklären wie man eine if auf die Slide schreibt. ?
Und wie man den anfang auf unten setzen und das ende auf oben wiel standart ist ja
oben ist 1 unten ist 10
ich will aber oben ist 10
danke  |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 20.07.2007, 14:24 |
|
|
[code]
Private Sub Form_Load()
VScroll1.Max = 1
VScroll1.Min = 10
End Sub
Private Sub VScroll1_Change()
VScroll1_Scroll
End Sub
Private Sub VScroll1_Scroll()
Text1.Text = VScroll1.Value * 10 & "%"
End Sub
[/code] Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |
Chickenman_ Poster

Anmeldedatum: 24.04.2007 Beiträge: 149
|
Verfasst am: 22.07.2007, 17:55 |
|
|
ähm , ich will selber defenieren , in die text box also keine zalhen sondern wörter bzw. ein text .
danke |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 22.07.2007, 18:26 |
|
|
Ich versteh nicht ganz was du machen möchtest.
Möchtest du die Zahlen ausgeschrieben darstellen? Also eins, zwei, drei etc.
Gib mir bitte noch ein Beispiel darüber was du mit Wörter oder Sätze meinst. Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |
Chickenman_ Poster

Anmeldedatum: 24.04.2007 Beiträge: 149
|
Verfasst am: 23.07.2007, 17:25 |
|
|
z.b
if sidebar1.count = 1 then
text1.text = " Kill"
end if
if sidebar1.count= 2 then
text1.text = "Fire"
end if
das funktioniert nicht  |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 23.07.2007, 18:27 |
|
|
Dazu benötigst du die Option "Value".
Und mach das ganze mit "Select Case". Ist einfach übersichtlicher.
[code]
Select Case (VScroll1.Value)
Case 1
text1.text = " Kill"
Case 2
text1.text = "Fire"
End Select
[/code]
mfg Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |
Chickenman_ Poster

Anmeldedatum: 24.04.2007 Beiträge: 149
|
Verfasst am: 24.07.2007, 16:00 |
|
|
danke schön
warum wird eigenlich wenn man ein button oder co in ein pic erstellt immer der name so geschrieben
Button.click(index as interger)
? |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 24.07.2007, 17:55 |
|
|
Ähm. Wird er eigentlich nicht. Glaube ich jedenfalls.
Das ist nur wenn du ein Steuerelementfeld erstellst. Also, dass alle Buttons den selben Namen haben, aber jeder einen anderen Index hat.
Über Button.click(index as integer) bekommst du den Index übergeben, womit du rausfinden kannst welcher Button gedrückt wurde. Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |