VB - 49. lekce
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

VB - 49. lekceVB - 49. lekce

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

VB - 49. lekce

Google       Google       13. 10. 2006       15 758×

49.1 Otevření existujícího dokumentu v MDI
49.2 Teoretický rozbor problému funkcí vpřed a zpět
49.3 Tvorba třídy
49.4 Využití třídy vytváření objektů paměti
49.5 Domácí úkol
49.6 V další lekci

Reklama
Reklama

49.1 Otevření existujícího dokumentu v MDI

Kód pro otevření nového dokumentu v MDI je velice jednoduchý:

Private Sub mnope_Click()
    On Error GoTo konec
    
    Dim strCelyText As String
    Dim strRadekTextu As String
    Dim path As String
    
    With MainForm.CommonDialog1 'výběr dokumentu
        .CancelError = True
        .Filter = "Textové soubory *.txt|*.txt; Vše *.*|*.*"
        .ShowOpen
        path = .FileName
        Open path For Input As #1
            Do Until EOF(1)
                Line Input #1, RadekTextu
                strCelyText = strCelyText & RadekTextu & Chr(13) & Chr(10)
            Loop
        Close #1
    End With
    
    Set objDoc = New Form1 'vytvoření nového fromuláře
    objDoc.Caption = "Soubor: " & path
    objDoc.txtMain.Text = strCelyText
    objDoc.Show
    Exit Sub
    
konec: 'oprava chyb
    If Err.Number = 32755 Then
        MsgBox "Nebyl vybrán soubor", vbInformation, "Chyba:"
    Else:
        MsgBox "Nastala chyba při otevírání dokumentu" & path, vbCritical, "Chyba:"
    End If
End Sub

Bloky jsou popsány v komentářích a jejich funkce by měla být zřejmá. Pomocí commondialogu je vybrán dokument, ten je zpracován běžným způsobem, poté se vytvoří nový formulář do nějž je vložen text


49.2 Teoretický rozbor problému funkcí vpřed a zpět

Takže o co nám zde vlastně jde? Jde o to, vytvořit paměť, která příliš nezdržuje program a je schopna pojmout určité množství informací. Paměť bude typu zásobník. Při každé změně se do paměti musí uložit data, a to taková, jaká v objektu byla před tím, než se změna zapsala. My tedy tuto změnu zaznamenáme vždy poté, co se nějaká změna stane (budou to data zaznamenaná před změnou, co bude následovat). Vhodný typ paměti je paměť kruhová. Když tedy do paměti budeme vkládat více dat než na kolik je, data prvně vložená se smažou. A tedy o ně příjdeme. Tutéž paměť jen lehce upravenou použijeme pro funkci Vpřed. S tím rozdílem že do paměti této funkce ze data budou zapisovat jen když použijeme funkci zpět.


49.3 Tvorba třídy

Tvorba třídy tedy může vypadat podobně jako zde.

Dim strData(128) As String 'deklarace proměnných
Dim bytPointer As Byte
Dim strLastData As String

Public Function StrSetData(Data As String) As String 'vložení proměnné
    strData(bytPointer) = Data
    bytPointer = bytPointer + 1
    If bytPointer = 128 Then bytPointer = 0
End Function

Public Function StrGetData() As String 'čtení proměnné
    If bytPointer = 0 Then bytPointer = 128
    bytPointer = bytPointer - 1
    
    If strData(bytPointer) <> "" Then
        StrGetData = strData(bytPointer)
        strLastData = strData(bytPointer)
    Else
        StrGetData = strLastData
    End If

    strData(bytPointer) = ""
End Function

Kód si samozřejmě můžete vylepšit a upravit podle sebe. Tento kód jedno vylepšení potřebuje a je jen na vás, zjistit jaké.


49.4 Využití třídy vytváření objektů paměti

Teď už jde jen o to objekt si vytvořit a vědět, kdy ho zavolat. Já to mám momentálně řešené tako:

Dim PathS As String
Dim objZ As Object
Dim objV As Object

Private Sub Form_Load()
    Set frmLastShow = Me
    Set objZ = New clsZasobnik
    Set objV = New clsZasobnik
End Sub
Public Function Zpet() As String
    Call objV.StrSetData(txtMain.text)
    txtMain.text = objZ.StrGetData
    txtMain.text = objZ.StrGetData
    txtMain.SelStart = Len(txtMain.text)
End Function

Public Function Vpred() As String
    txtMain.text = objV.StrGetData
    txtMain.SelStart = Len(txtMain.text)
End Function

Private Sub txtMain_change()
    Call objZ.StrSetData(txtMain.text)
End Sub

Zde jsou spíše výjimečně použity funkce, jejich obsah jinak můžete dát do přímého volání pomocí menu formuláře.


49.5 Domácí úkol

Za domácí úkol je obohatit minulý domácí úkol o tyto funkce.


49.6 V další lekci

Podíváme se nejspíš na tvorbu ActiveX a nebo budeme pokrčovat v MDI.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

2 názory  —  2 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Pracujete u počítače ve stoje? Dbejte na správné držení těla

Pracujete u počítače ve stoje? Dbejte na správné držení těla

Práce ve stoje je jedna z variant, jak změnit polohu těla při dlouhodobé práci u počítače. Především je důležité nezapomínat na správné držení těla, abychom při práci nenamáhali naší krční páteř. Primářka MUDr. Michaela Tomanová představí hlavní bonusy a rizika práce u počítače ve stoje.

Reklama
Reklama
Obrázek ke článku Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Destabilizace firmy či ukradené know-how. To jsou možná hlavní budoucí rizika spojená s nedostatečnou kybernetickou bezpečností průmyslových firem, na která upozorňují experti. Vzhledem k postupující digitalizaci výrobních či technologických procesů a přechodu k takzvanému Průmyslu 4.0 může těchto hrozeb postupně přibývat. Varují před nimi i nejnovější průzkumy. 

Obrázek ke článku Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový veletrh  CEBIT je připraven. V polovině června začne v Hannoveru evropský festival obchodu s radikálně změněnou koncepcí věnovaný inovacím a digitalizaci.  CEBIT jedinečnou formou spojuje obchod v digitálním hospodářství 
s festivalovými prvky a posouvá do středu pozornosti téma digitální transformace hospodářství a společnosti.  

Obrázek ke článku Black Swan Security Congress ukáže, jak se chránit před největšími hrozbami na internetu

Black Swan Security Congress ukáže, jak se chránit před největšími hrozbami na internetu

Dva dny plné přednášek a diskusí na téma často podceňovaných bezpečnostních rizik na internetu pořádá Paralelní polis v pražských Holešovicích. Akce s názvem Black Swan Security Congress bude od pátku 18. do soboty 19. května hostit etické hackery a experty na IT bezpečnost převážně z Česka a Slovenska. Ti účastníkům vysvětlí, jaká rizika nese fenomén „černé labutě a jak se před ním mohou chránit.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý