Form z proměnné

Form z proměnné zodpovězená otázka

VB.NET, WinForms, Databáze

28. 5. 2008 20:22

Lubor Brabec

2 29

Dobrej,

nedaří se mi přijít na toto:

od někud, např. z SQL přijmu název Formu, který má být spuštěn,

vytvořit novou instanci tohoto formu a spustit ho.

REM Název formu z SQL
Dim fofo As String = Firmy_vyber.Rows(0).Item("Form")
Dim frm As New fofo
frm.ShowDialog()

ALE POZOR, nefunguje to. Není mi jasné jak zabezpečit, aby byla vzata v potaz hodnota uložená v proměné.

Díky za radu.

nahlásit spam

odpovědět

28. 5. 2008 20:35

Tomáš Kašpar

6 13

Technika, kterou chcete použít se nazývá makrosubstituce. Pokud je mi známo, VB.NET tuto funkčnost přímo nepodporuje.

Je nutné sáhnout po nějakém jiném řešení. Často se v této souvislosti používá ActiveX komponenta MSSCRIPT.OCX. Ta pochází z dílny Microsoftu.

Pokud ji někde ve Windowsech již nemáte, zkuste "zagooglit" a určitě ji najdete včetně návodu či popisu, jak ji správně použít.

nahlásit spam

odpovědět

28. 5. 2008 21:11

Ondřej Linhart

-553 3274

Pokud chcete vytvořit instanci objektu (formuláře) z názvu jeho typu (uloženém jako String například v SQL Serveru), můžete postupovat takto:

'Úplný název typu načtený z SQL Serveru
Dim typeName As String = "WindowsApplication1.Form2"
'Vytvoření instance formuláře Form2
Dim obj As Object = Activator.CreateInstance(Type.GetType(typeName))
'Instance třídy Form2 bude uložena v proměnné typu Object
'takže ji buď musíte přetypovat na požadovaný typ nebo
'použít Late Binding (nedoporučuji)
Dim form2 As Form = DirectCast(obj, Form2)

nahlásit spam

3 / 3

odpovědět

DotNETcollege: Mohlo by vás zajímat

Entity Framework pro pokročilé

Microsoft SQL Server - optimalizace struktur a dotazů

Entity Framework pro začátečníky

MAUI - multiplatformní aplikace v .NETu

Entity Framework Core 7 do posledního detailu

Úvod do XAML

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

Entity Framework Core pro začátečníky

Entity Framework Core pro pokročilé

Kontejnery, Docker a Azure Kubernetes Service (AKS)

Chvíli jsem s tím zápasil,

protože jsem nepřikládal jsem správnou důležitost velikosti písma a ona je "PODSTATNÁ" v názvu typu!

Jenom malinká kosmetiscká úpravička:

Dim form2 As Form = DirectCast(obj, Form)

Jinak děkuji, pomohlo na 100%.

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