Dział 24 już jest !

Witam, zapraszam do działu 24, dowiecie się w nim jak pobierać pliki z serwerów HTTP i FTP.
Niestety z czasem stoję ostatnio krucho stąd te obsuwy z dodawaniem kolejnych materiałów.
Pozdrawiam i miłego analizowania

Witam !! dział 23 poradnika już jest !

Witam po dłuższej przerwie znalazłem chwilę aby kontynuować dzieło :) Zapraszam do 23 działu mojego poradnika. Główną motywacją były ostatnio pojawiające się komentarze, po których wiem przynajmniej, że ktoś to czyta i komuś pomogłem ;)

VB.NET Jak wyczyścić dane z wszystkich tekstbox'ów na formie?

Jak wyczyścić dane z wszystkich tekstbox'ów na formie?

Po dłuższej przerwie czas wrócić do pracy :)

Załóżmy, że na formie mamy 50 tekstbox'ów, czyszczenie ich zawartości w kodzie za pomocą każdorazowego odwołania się do nich było by męczące i zajęło by sporo miejsca w kodzie. Wyglądało by to mniej więcej tak:

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ...
        TextBoxN.text = ""

Można to zrobić w automatyczny sposób np tak:

                For Each a As Control In form1.Controls
                    If TypeOf a Is TextBox Then
                        a.Text = Nothing
                    End If
                Next

Czy nie wygląda to o wiele lepiej ?

Równie dobrze można tak postąpić z innymi  kontrolkami np ProgressBar:

                For Each control As Control In form1.Controls
                    Dim pb As ProgressBar = TryCast(control, ProgressBar)
                    If pb IsNot Nothing Then
                        pb.Value = pb.Minimum
                    End If
                Next

Czasami jednak nie chcemy aby na formie czyściły się wszystkie dane np w przypadku gdy chcemy wyczyścić wszystkie dane z kontrolek Label bo część to opisy a część stanowi wyświetlacz danych.
Najlepszą metodą wówczas jest trzymanie kontrolek (tych w których będziemy zmieniać dane) w kontenerach np TabControl, GroupBox oraz innych. Wtedy stosujemy odniesienie tylko do danego kontenera i tylko w nim działa nasz kod np:

                For Each control As Control In form1.GroupBox1.Controls
                    Dim pb As ProgressBar = TryCast(control, ProgressBar)
                    If pb IsNot Nothing Then
                        pb.Value = pb.Minimum
                    End If
                Next

Dział 22 już jest !

Witajcie, dziś pokaże wam jak wysłać E-maila za pomocą prostego kodu!
Zapraszam serdecznie!

21 dział poradnika już jest !

Czołem, w tym poradniku dowiemy się jak wyeksportować nasze dane do arkusza kalkulacyjnego Excel'a.

20 dział poradnika już jest !

Witam wszystkich po krótkiej przerwie, dziś zapoznamy się z możliwością wygenerowania dokumentu Worda poprzez naszą aplikację. Przyda nam się to gdy będziemy chcieli wyeksportować gdzieś nasze dane tekstowe, stworzyć raporty itp. Zapraszam do lektury.

Dział 19 poradnika już jest !

Witam, po dłuższej przerwie czas iść naprzód z poradnikiem. Dziś w naszym poradniku zapoznamy się z bazą danych SQLite. Nauczymy się z niej korzystać i wykonywać na niej 4 podstawowe operacje "CRUD". Ten dział zaopatrzyłem również w 2 dodatki, które znajdziecie na jego końcu.