dotNETportal.cz

Caute

Dnes mi dola kniha 1001 tipu a triku.Chcel som z nej pouzit animaciu okna ale ani na jednom priklade mi to nejde.Kde ma autor chybu alebo co ja robim zle?Dakujem

1. Co je to za knihu? Jaký je přesný název?

2. Je to pro stejnou verzi VB, kterou používáte vy?

3. Co je to za příklad?

4. Co to znamená, že to nefunguje? Nedělá to nic, hází to chybu, spadne to, nebo to na vás vyplázne jazyk?

Jak vám máme odpovědět, když nám de facto nic neřeknete?

Ospravedlnujem sa.Myslel som ze niekdo tu hodi niejaky kod pre VB6.Takze uvedietm jeden priklad z knihy 1001 tipu a triku.Vsetky frm v kode som opravil na moje Form3.Teraz mi to pise ze ocakava end sub.Kde mam chybu prosim kdo pomoze.

Animace okna 1 str.88

Private Sub cmdVypocet_click()
Sub Explode(form3 As Form)
Dim r As Double
Dim w As Long, h As Long
Dim t As Long, x As Long
Dim i As Long

t = form3.Top: x = form3.Left
w = form3.Width: h = form3.Height
ratio = h / w
form3.Width = 0: form3.Height = 0
form3.Move 0.1 + (w - form3.Width) / 2, t + _
(h - form3.Width * ratio) / 2, 0, form3.Width * ratio
form3.Show
For i = form3.Width To w Step 90
form3.Move 1 + (w - i) / 2, t + (h - i * ratio) / 2, i. _
i * ratio
DoEvents
Next i
form3.Move x, t, w, h

Form1.Width = 10080
Command6.Visible = True
Command7.Visible = False
form3.Show 1

End Sub

pokaď je to stejná kniha 1001tipů a triků, tak je pro VB.NET....

Tak to si ma nepotesil.Je to niejak mozne spravit aj pre VB6?Dakujem

Kniha vyšla svojho času pre Visual Basic 6 (Martin Gurtler, Pavel Kocich) minulý rok aj pre vb .net ( pavel Kocich, Ondrej Spilka)

V kódu máte spoustu chyb. Procedura "cmdVypocet_click" musí být ukončená příkazem "End Sub". Dále si v kódu pletete proměnou l s jedničkou. Vy jste ji přejmenoval na x.

Funkční kód z knihy pro VB6 (autor pouze opomenul dimenzi proměné ratio) má být takto:

Luboš

'Do projektu přidejte další formulář (Form2) a na Form1
'vložte tlačítko "Command1"

Option Explicit

Private Sub Command1_Click()
    Explode Form2
End Sub

Sub Explode(frm As Form)
Dim r As Double
Dim w As Long, h As Long
Dim t As Long, l As Long
Dim i As Long
Dim ratio As Double

t = frm.Top: l = frm.Left
w = frm.Width: h = frm.Height
ratio = h / w
frm.Width = 0: frm.Height = 0
frm.Move l + (w - frm.Width) / 2, _
    t + (h - frm.Width * ratio) / 2, 0, _
    frm.Width * ratio
frm.Show
For i = frm.Width To w Step 90
    frm.Move l + (w - i) / 2, _
    t + (h - i * ratio) / 2, i, i * ratio
    DoEvents
Next i
frm.Move l, t, w, h
End Sub

Velmy pekne Dakujem.Toto som potreboval.je to parada.Este raz dakujem