Jak může ovlivnit script z Formu2 Form1?

Jak může ovlivnit script z Formu2 Form1? zodpovězená otázka

S Visual basic 6 ještě moc neumím teprve se učím z knížky a návodů na internetu. Na jednu věc jsem se díval skoro všude ale nikde jsem to nenašel a docela by mě to zajímalo.

Jak je možné ve VB6 udělat aby po kliknutí na tlačítko ve Form2 se funkce toho scriptu v tlačítku rozběhla místo ve Formu2 ve Formu1.

nahlásit spam

-1 / 1

odpovědět

18. 1. 2009 22:19

Ondřej Linhart

-553 3274

Pokud to myslíte s programováním vážně tak zapomeňte na Visual Basic 6.0 a naučte se Visual Basic .NET...

nahlásit spam

0 / 2

odpovědět

Do projektu vložte modul do modulu např.:

  Public Sub TlacitkoForm2()
    Form1.SetFocus
    Form1.Label1 = "Proběhla akce tlačítka z Form2"
  End Sub

Na Form1 je Label1 na Form2 tlačítko a pod ním

  Private Sub Command1_Click()
    TlacitkoForm2
  End Sub

nahlásit spam

1 / 1

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

Pořád tam mám někde chybu. Chci aby se ten script zpustil v componentu shockwaweflash který je ve Formu1.

Modul

  Public Sub TlacitkoForm2()
    Form1.SetFocus
    Form1.ShockwaveFlash1 = "Call ShockwaveFlash1.SetVariable("_level0.holder_mc.ENGINE.my_room_movieclips.block_mc._x", -5000)"
  End Sub

Tlačítko ve Formu2

Private Sub Command2_Click()
TlacitkoForm2
End Sub

nahlásit spam

-2 / 2

odpovědět

20. 1. 2009 16:47

Miroslav Fuska

3 14

Skús to takto, ale nemám VB6 na tomto počítači dúfam že som tam nepriklepol nejakú chybu

na form 1:

sub funkcia_naform1()

   ShockwaveFlash1 = "Call ShockwaveFlash1.SetVariable("_level0.holder_mc.ENGINE.my_room_movieclips.block_mc._x", -5000)"

End Sub

na form2:

sub command1_click()
 form1.funkcia_naform()
end sub

nahlásit spam

odpovědět

Ten script ve formu2 je špatný

nahlásit spam

odpovědět

21. 1. 2009 9:45

Miroslav Fuska

3 14

Zabudol som tam napísať 1

na form2:

sub command1_click()
  form1.funkcia_naform1()
end sub

nahlásit spam

odpovědět

form1.funkcia_naform1()

Tenhle script se mi označil červeně v něm je chyba

nahlásit spam

odpovědět

21. 1. 2009 10:47

Miroslav Fuska

3 14

Máš VB6 sp6 alebo niečo iné ?

nahlásit spam

odpovědět

visual basic 6

nahlásit spam

odpovědět

21. 1. 2009 12:28

Miroslav Fuska

3 14

Nemám shockwave takže to nemôžem vyskúšať priamo ale skús ten kód shock...... nahradiť vo form1 týmto

Msgbox "Toto je MSGBOX z FORMU1"

a skús to spustiť z formu2 či sa zobrazí okno MSGBOXU

Teraz som si to nahodil vo VB6 s v pohode to funguje, kliknem na tlačítko na form2 a zobrazí sa hláška Msgboxu uložená vo form1.

nahlásit spam

odpovědět

víš co vím jak to udělat abych věděl přesně jak na to. Pošli mi zdrojové soubory jak to má být na email [email protected] ok?

Byl bych ti moc vděčný

nahlásit spam

odpovědět

nebo nic neposílej už sem na to přišel kde byla chyba. V tom tlačítku mělo být:

Form1.funkcia_naform1

Ne jak si to předtím psal

Form1.funkcia_naform1()

nahlásit spam

odpovědět

21. 1. 2009 13:29

Miroslav Fuska

3 14

To je tak keď sa to nenakopíruje priamo zo zdrojových textov.

Dúfam že ti to pôjde...

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz