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

honza1986 · Příspěvek od **honza1986** » sob 16. črc 2005, 14:30

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ý.

€agle · Příspěvek od **€agle** » sob 16. črc 2005, 15:02

do volani funkce MDIForm1 QueryUnload si napis co potrebujes

honza1986 · Příspěvek od **honza1986** » sob 16. črc 2005, 15:08

když to tam napíšu tak mi to nic neudělá. Mohl bys napsat nějakou ukázku?

€agle · Příspěvek od **€agle** » sob 16. črc 2005, 15:13

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

honza1986 · Příspěvek od **honza1986** » sob 16. črc 2005, 15:18

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?

honza1986 · Příspěvek od **honza1986** » sob 16. črc 2005, 15:36

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

€agle · Příspěvek od **€agle** » pon 18. črc 2005, 01:19

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