Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2006
    Messaggi
    102

    [VB6] Editor menù e visualizzazione nel form

    Buona sera a tutti.
    Sto cercando di creare un programma gestionale.
    Mi servirebbe capire un passaggio:
    Vorrei creare un editor di menù ( il classico con file, modifica, inserisci, ecc) ma mi interesserebbe che nello stesso form di partenza (Form1) si riescano a utilizzare le funzioni del menù.
    Per chiarire meglio il concetto vorrei inserire all'interno del form1 un "contenitore" nel quale proiettare i form che verranno richiamati dalle opzioni del menù; es. io clicco sul menù inserisci, sottomenù anagrafica e nel form1 mi appare tutta la schermata con text box e command button per inserire i dati.
    Se invece uso il sottomenù "contratti" mi appariranno, sempre nel form1, tutti i text box e command button per inserire quei tipi di dati.

    In pratica vorrei creare un form per ogni sottosezione del menù e poi proiettarla nel form1 ogni volta che si utilizza l'editor di menù.
    Anche perchè non avrebbe senso fare un menù e poi ogni funzione viene fatta in un form a parte.

    Grazie anticipatamente per l'aiuto, spero di essere stato chiaro.
    Gianluca

  2. #2
    Utente di HTML.it L'avatar di yyzyyz
    Registrato dal
    Oct 2001
    Messaggi
    1,653
    Questo è solo un piccolo esempio pero' tieni conto che devi avere un l'oggetto sul form, in questo caso text1.
    Ci sono anche altri sistemi per creare a run time oggetti , ma questo ti da la possibilita' di interaggire in modo piu' facile con tutti gli oggetti creati senza il supporto di API.

    ps ricorda di mettere 0 sull' index della text1.

    codice:
    Dim ID As Integer
    Dim spazio As Double
    Private Sub Command1_Click()
    ' text clone
    Dim testo As TextBox
        ID = ID + 1
        Load Text1(ID)
        Set testo = Text1(ID)
    
    For i = 0 To 4
        With testo
            .Left = 200
            .Top = spazio
            .Width = 2000
            .Height = 200
            .Text = ""
            .Visible = True
        End With
        spazio = spazio + 400
        ID = ID + 1
        Load Text1(ID)
        Set testo = Text1(ID)
    Next i
    End Sub
    
    Private Sub Form_Load()
    spazio = 400
    Text1(0).Visible = False
    End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.