Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Recensione REDMI Note 17 Pro: il midrange con batteria da 8.340 mAh e ricarica veloce
Recensione REDMI Note 17 Pro: il midrange con batteria da 8.340 mAh e ricarica veloce
REDMI Note 17 Pro porta in fascia media una batteria da 8.340 mAh con ricarica HyperCharge a 67W, un display AMOLED da 6,83 pollici capace di picchi di luminosità molto elevati e una struttura certificata TÜV SÜD contro cadute e infiltrazioni d'acqua, il tutto racchiuso in una scocca da 223 grammi. Lo abbiamo provato per diversi giorni tra fotocamera, prestazioni, autonomia e prezzo sul mercato italiano
Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra integra un sensore da 1 pollice 8K, ottiche Leica e triplo chip IA. Tra schermo OLED rimovibile, workflow I-Log a 10 bit e stabilizzazione a tre assi, analizziamo le doti tecniche di una gimbal camera pensata per i professionisti
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine porta Logan in un'avventura inedita, violenta e fortemente narrativa, costruita attorno alla sua natura di combattente e al difficile rapporto con il proprio passato. Insomniac Games punta su combattimenti spettacolari, progressione e personalizzazione, inserendo l'azione in un mondo segnato dalla persecuzione dei mutanti. Un viaggio intenso, che alterna mattanza, esplorazione e momenti sorprendentemente emotivi.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 26-06-2003, 12:19   #1
race2
Senior Member
 
Iscritto dal: Aug 2000
Messaggi: 1209
[VB.NET] Inviare una variabile ad un nuovo Form

Come posso fare per aprire un Form Figlio all'interno di un Form Padre MdiContainer in modo da passargli una Variabile invece di utilizzare un modulo e dichiarare una variabile Pubblica ???

es:

Dim a As Integer = 1

Dim x As New MyForm()
MyForm.Show()

come posso fare per inviare e raccogliere quella variabile nel "MyForm" ???
race2 è offline   Rispondi citando il messaggio o parte di esso
Old 26-06-2003, 13:16   #2
tas
Senior Member
 
L'Avatar di tas
 
Iscritto dal: Feb 2001
Città: Nordest
Messaggi: 217
Hai due possibilità: un overload del costruttore New oppure un membro o proprietà pubblica.
Nel primo caso la variabile la passi quando instanzi il form:
Codice:
'nel form figlio MyForm
Private var As Integer

Public Sub New(variabile As Integer)
    MyBase.New()
    var = variabile
End Sub

'nel form MDI:
    Dim f As New MyForm(456)  'passo il valore intero 456

    f.MdiParent = Me
    f.Show()
Se invece la variabile deve poter essere letta/impostata anche in tempi successivi dalla creazione del form, allora fai così:
Codice:
'nel form figlio MyForm
Private var As Integer

Public Property Variabile() As Integer
    Get
        Return var
    End Get
    Set(ByVal Value As Integer)
        var = Value
    End Set
End Property

'nel form MDI:
    Dim f As New MyForm()

    f.MdiParent = Me
    f.Variabile = 456
    f.Show()
__________________
Chi non cerca trova.
tas è offline   Rispondi citando il messaggio o parte di esso
Old 26-06-2003, 13:27   #3
race2
Senior Member
 
Iscritto dal: Aug 2000
Messaggi: 1209
Come ho fatto io e' sbagliato ???

FORM Padre:
---------------------------------------------
Dim x As New Figlio()
x.Visualizza(5)
---------------------------------------------

FORM Figlio:
---------------------------------------------
Public Sub Visualizza(ByVal i As Integer)
Me.Show()
MsgBox(i)
End Sub
---------------------------------------------

apre il Figlio e un MsgBox con il 5 stampato !!!
race2 è offline   Rispondi citando il messaggio o parte di esso
Old 26-06-2003, 13:34   #4
race2
Senior Member
 
Iscritto dal: Aug 2000
Messaggi: 1209
TROVATO !!!!!!!!

e' il modo perfetto !!!

Definisco un overload per il costruttore di "MyForm" cioe il Figlio,

Public sub new(ByVal MiaVariabile As Integer)
End Sub

Nel Form Padre:

Dim x As New MyForm(5)
x.Show()
race2 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Recensione REDMI Note 17 Pro: il midrange con batteria da 8.340 mAh e ricarica veloce Recensione REDMI Note 17 Pro: il midrange con ba...
Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema Insta360 Luna Ultra: la potenza del sensore da 1...
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa Marvel's Wolverine, la recensione: Logan torna p...
DJI Romo 2: tante novità lo rendono un robot completo DJI Romo 2: tante novità lo rendono un ro...
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED Sony Bravia 9 II: il True RGB alla prova, dove l...
Microsoft Defender: falso allarme sull'a...
Aerei in volo e truppe pronte all'assalt...
Usano Claude per hackerare OpenAI: ricer...
RatHat: il nuovo malware Android usa il ...
Domanda di petrolio in calo di 2,5 milio...
Il meglio delle offerte weekend Amazon a...
Dopo oltre 100 anni di tentativi, l'IA d...
Speciale robot aspirapolvere in offerta ...
L'IA sta cancellando i lavori junior? Il...
Debutta Chery Italia: non più sol...
Addio ai dischi? Xbox ci aveva già...
Speciale TV Amazon: 4 modelli, da 139€ f...
Il nuovo iPhone 18 Pro Max ha una ricari...
Speciale smartphone Android: 7 modelli i...
La Camera USA presenta il conto: i data ...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 03:41.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v