Stránka 1 z 1

potřebuju radu k MDI aplikacím (VB)

Napsal: sob 16. črc 2005, 14:30
od honza1986
Ahoj, potřebuju pomoc s MDI aplikací. Dělám HTML editor. :)
Nevím jak udělat, aby se mi před ukončením aplikace (MDIForm1) zobrazila zpráva jestli chci uložit soubor (form1->RichTextBox). Doufám, že je moje vysvětlení pochopitelný.

Napsal: sob 16. črc 2005, 15:02
od €agle
do volani funkce MDIForm1 QueryUnload si napis co potrebujes

Napsal: sob 16. črc 2005, 15:08
od honza1986
když to tam napíšu tak mi to nic neudělá. Mohl bys napsat nějakou ukázku?

Napsal: sob 16. črc 2005, 15:13
od €agle
Private Sub Form_Load()
MDIForm1.Show
End Sub


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Opravdu ukoncit", vbYesNo, "Ukoncit?") = vbNo Then Cancel = 1
End Sub

Kdyz das Ano/Yes, okno se zavre, kdyz Ne/No okno zustane

Napsal: sob 16. črc 2005, 15:18
od honza1986
nemohl bys mi napsat jednoduchej texťák. (mdi form+form1)
-aby v něm šlo, když změnim něco v RichTextBoxu tak aby se to při ukončení MdiForm dotázal na uložení textu?

Napsal: sob 16. črc 2005, 15:36
od honza1986
udělal bys to?
Mám ještě jeden dotaz. Jak udělat program, který generuje čísla od 1-100?
K tomu scrollujícímu textu. Mě to vždy když se to posune problikne

Napsal: pon 18. črc 2005, 01:19
od €agle
Ja to za tebe delat nebudu... :)
Nahodny cely cisla udelas int(rnd * x), desetinny jenom rnd * x kde x je maximalni hodnota...

K tomu richtextboxu ti reknu jak bych to udelal...
Dal bych dva richtextboxy z cehoz jeden neviditelnej. Pak udelal funkci treba Uloz ktera by zkopirovala obsah prvniho richtextboxu do druhyho a zaroven ulozila do souboru. Do MDIForm QueryUnload dal podminku kdyz je text v textboxech ruzny (= text byl od posledniho ulozeni zmenen), vyber odpoved z messageboxu YesNoCancel. Pokud by byla Yes - proved Uloz, pokud No - nic nedelej, nech zavrit okno, pokud Cancel - nastavit Cancel na 1 -> okno se nezavre a text se neulozi...

K tomu blikani - zkus trochu zapatrat v MSDN, pripadne neco vygooglit