Pomóżcie.... Witam!Mam 2 pytania...1. Jak wczytać tekst do labela przy naciśnięciu przycisku?2. Jak zrobic by wczytany tekst do labela wczytywal duze litery jak i kropki i przecinki czyli dokladny tekst jaki ma zostac wczytany?PozdrowieniagregorP.S.Bardzo prosze o pomoc...
22-05-2004 18:16
zmiana banana
Typ: neutral Postów: 2 Zarejestrowany: May 2004
Synu, wyraź się tu lepiej jakoś konkretniej, o co ci tak właściwie chodzi, bo nawet najlepszy jasnowidz, nie skapowałby twoich zagmatwanych myśli. Czasem nie jest problemem znalezenie ludzi, którzy znają odpowiedź, ale zadanie właściwego pytania...
24-05-2004 20:47
losmac "profesorek"
Typ: neutral Postów: 758 Zarejestrowany: May 2003
Skąd chcesz wczytywać tekst do label'a:- z pliku tekstowego,- ze zmiennej?Co zaś tyczy się dużych liter, zastosuj funkcję Format().Więcej, jak odpowiesz na pytanie. _____________________________________________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ś
29-05-2004 15:10
Piotr T
Typ: neutral Postów: 176 Zarejestrowany: May 2004
A może tak:Option ExplicitDim NUMER As IntegerDim POBRANA_DANA As String, A As VariantPrivate Sub Command1_Click()Call POBIERZ ( "nazwapliku.txt" )End SubPrivate Sub POBIERZ(NAZWA As String)NUMER = FreeFileOn Error GoTo KONIECOpen NAZWA For Input As #NUMER Do While Not EOF(NUMER) Line Input #NUMER, POBRANA_DANA Label1.Caption = Label1.Caption & " " & POBRANA_DANA LoopClose #NUMERExit SubKONIEC:Close #NUMERA = MsgBox( "Numer błędu:" & Err.Number & vbCrLf & "Opis błędu: " & Err.Description, vbCritical, "" )Err.ClearEnd Sub _____________________________________________Visual Basic.NET - Mercedes dla programistów
30-05-2004 10:24
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20