Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ciągłe linie-entery w Label...
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
Ciągłe linie-entery w Label...

Nie wie kto może jak stworzyć, takie coś co po wciśnięciu przycisku ładowałoby do kontrolki Label kilka lini, przy czym aby można było odwoływać się do poszczególnych lini, jak w ListBoxie:

______
linia1|
linia2|
linia3|

Nie wiem też jak zrobić coś, co miałoby wiedzieć, ile każdy miesiąc, nie tylko w bieżącym roku, ale w każdym, ma dni...

Nie chodzi mi oczywiście o jakieś tam przypisanie wartości zmiennym(miesiącom), ale o jakąś pętlę FOR, która jednocześnie dodawałaby mi poszczególne wartości ilości dni do nowych ITEM w ListBoxie oraz aby te wartości były adekwatne do przwadziwych danych, choćby miał to być rok 2025

może:

z=txtIloscRat (robie programik bankowy i tyle ile jest rat tyle kod ma dodać ITEMów do ListBox'a z odpowiednimi ilościami dni w odpowiednich miesiącach)
For a = 1 To z
    w = Date
    q = DateAdd("m", a, w)
    lstDaty.AddItem q
Next a
For a = 1 To z
    r = DateDiff("d", w, q)
    lstIloscDni.List (a)
Next a


sajonara and help me...

01-05-2003 00:45
Pokaż profil AFRO  Wyślij email do AFRO   
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Co do Labla to odpowiadam:

należy na końcu każdej lini dodać klawisz enter (stała vbCRLF) np.

Label1.Caption="Pierwsza linia"+vbcrlf+"druga linia"+vbCRLF+"ostatnia linia"


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

01-05-2003 10:42
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

hm a probowales funkcji typu:

Month(), Day(), WeekDay()

ta srodkowa zwraca dzien miesiaca z podanej daty
Day(Now) - obecny dzien miesiaca

nie wiem czy pomoze... ;]


_____________________________________________
www.KURDE.pl

01-05-2003 18:13
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
spox

dzieki, podsunąłeś mi coś...

zrobiłem to innaczej:

    m = Month(X)
    rok = Year(X)
    X = rok Mod 4
    Y = rok Mod 400
   
If X <> 0 Then
    miesiac(1) = 31
    miesiac(2) = 28
    miesiac(3) = 31
    miesiac(4) = 30
    miesiac(5) = 31
    miesiac(6) = 30
    miesiac(7) = 31
    miesiac(8) = 31
    miesiac(9) = 30
    miesiac(10) = 31
    miesiac(11) = 30
    miesiac(12) = 31
ElseIf X = 0 Or Y = 0 Then
    miesiac(1) = 31
    miesiac(2) = 29
    miesiac(3) = 31
    miesiac(4) = 30
    miesiac(5) = 31
    miesiac(6) = 30
    miesiac(7) = 31
    miesiac(8) = 31
    miesiac(9) = 30
    miesiac(10) = 31
    miesiac(11) = 30
    miesiac(12) = 31
End If
For a = 1 To raty
    data3 = DateAdd("m", a, data)
    m2 = Month(data3)
    i = miesiac(m2)
    caly2 = lblDni2
    lblDni2 = caly2 & vbCrLf & i

działa, ale troche dluzsze od samej pentelki

16-05-2003 23:00
Pokaż profil AFRO  Wyślij email do AFRO   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
data od do

Panowie, po co tyle zabawy?
Przecieź data jest... liczbą!
Zrób coś takiego:

Sub DataOdDo()

Dim l_d_od As Long
Dim l_d_do As Long
Dim i As Long

l_d_od = CLng(DateAdd("m", -1, Date))
l_d_do = CLng(DateAdd("m", 1, Date))

For i = l_d_od To l_d_do
    MsgBox CDate(i)
Next i

End Sub


Przyjemne i proste, co? Kup książkę, dostępną pod adresem: http://helion/ksiazki/ofvba.htm, a takich sztuczek poznasz więcej.
Pozdrowienia autor


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

17-05-2003 10:13
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1