VBA.Mania

vbamania.pl

Dziś jest niedziela, 12 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	mam kłopot z userform otwarty rozpoczął: nimitz postów: 4

napisał: nimitz postów: 14 umieszczony: 11 kwietnia 2005 21:04
	no i sie udało z scrollBar w Label i TextBox oto przykład z Label Private Sub ScrollBar1_Change() Temp.Caption = ScrollBar1.Value End Sub Private Sub Temp_Change() NewVal1 = Val(Temp.Text) If NewVal1 >= ScrollBar1.Min And _ NewVal1 <= ScrollBar1.Max Then _ ScrollBar1.Value = NewVal1 End Sub natomiast z textbox trzeba zmienic .Caption na .Text

napisał: nimitz postów: 14 umieszczony: 24 marca 2005 20:40
	ok dzieki zobaczymy co to da

napisał: pil postów: 154 umieszczony: 23 marca 2005 08:51
	tak może wyglądać ta procedura : Private Sub ScrollBar_Change() Dim wartoscNaPasku As Integer Dim wartoscWzgledna As Double wartoscNaPasku = ScrollBar.Value wartoscWzgledna = wartoscNaPasku / 32767 lblWartosc = wartoscNaPasku 'w lblEtykieta wyświetla liczby z zakresu 0..32767 lblProcenty = Format(wartoscWzgledna, "#0.00%") End Sub

napisał: nimitz postów: 14 umieszczony: 21 marca 2005 15:07
	witam poraz pierwszy tu pisze jest taka sprawa bawie sie w VBa od niedawna szczegolnie user form i mam klopot dotyczacy ScrollBar a szczegolnie wyswietleniu wartosci w label. Potrzebuje tresc procedury ktora bedzie wstawiała wartosc prrzesuwana w lasnie w label na bieżąco.

wstecz 1 dalej

wszystkich stron: 1