none
Deixar o texto do form dinamico. RRS feed

  • Pergunta

  • Boa noite!

    Andei procurando em alguns fóruns a respeito de alterar a informação do text da form, mas não encontrei muita coisa. Por exemplo, cada vez que clico em uma ação/botão, ele abre um form, só que traz o nome que informei nas propriedades, gostaria que cada vez que eu abrisse a form, mostrasse o nome diferente de cada uma, assim consigo controlar cada transação que estiver aberta.

    Abri um form, tela 1, chamei de novo, tela 2 e assim por diante.. Montei um código mas está dando erro, vi em um fórum a dica, mas no meu carro não consegui fazer rodar ainda.. segue abaixo:

    Public Class Principal
        Public formularios As New Collection
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles abretransacao.Click

            Dim Form As New Form()
            Static intnumero As Integer

            intnumero = intnumero + 1
            Form.Caption = "Formulário # " & intnumero ---- aqui onde está dando erro, informando que é uma expressão e por isso não pode ser um destino de uma atribuição
            Form.Show()
        End Sub

    Código original que peguei:

    Public formularios As New Collection

    Private Sub Command1_Click()
     Dim NovoForm As New Form1
     Static intnumero As Integer

      intnumero = intnumero + 1
      NovoForm.Caption = "Formulário # " & intnumero
      NovoForm.BackColor = QBColor(intnumero)
      formularios.Add NovoForm
      NovoForm.Show
    End Sub


    terça-feira, 18 de junho de 2019 00:11

Respostas

  • Boa noite.

    Se estiver em VBNet, tente assim.

    Se funcionar, por gentileza, marque como resposta / útil.

     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
            Dim NovoForm As New Form
    
            Static intnumero As Integer
    
    
            If intnumero > 15 Then intnumero = 0
    
            NovoForm.Text = "Formulário # " & intnumero.ToString
            Dim value As Integer = QBColor(intnumero)
            Dim c As Color = Color.FromArgb(value And &HFF, (value And &HFF00) \ 256, (value And &HFF0000) \ 256 \ 256)
            intnumero = intnumero + 1
            NovoForm.BackColor = c
            NovoForm.Show()
    End Sub


    MARIANO1776

    • Sugerido como Resposta Mariano1776 domingo, 23 de junho de 2019 17:01
    • Marcado como Resposta RL28 terça-feira, 25 de junho de 2019 03:34
    quarta-feira, 19 de junho de 2019 02:33

Todas as Respostas

  • Boa noite!

    Para você conseguir alterar o nome toda vez que abrir, deverá declarar uma variável publica, exemplo:

    Public X as string;

    terça-feira, 18 de junho de 2019 01:08
  • teria como demonstrar como ficaria o código mais ou menos?
    terça-feira, 18 de junho de 2019 02:16
  • Boa noite.

    Se estiver em VBNet, tente assim.

    Se funcionar, por gentileza, marque como resposta / útil.

     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
            Dim NovoForm As New Form
    
            Static intnumero As Integer
    
    
            If intnumero > 15 Then intnumero = 0
    
            NovoForm.Text = "Formulário # " & intnumero.ToString
            Dim value As Integer = QBColor(intnumero)
            Dim c As Color = Color.FromArgb(value And &HFF, (value And &HFF00) \ 256, (value And &HFF0000) \ 256 \ 256)
            intnumero = intnumero + 1
            NovoForm.BackColor = c
            NovoForm.Show()
    End Sub


    MARIANO1776

    • Sugerido como Resposta Mariano1776 domingo, 23 de junho de 2019 17:01
    • Marcado como Resposta RL28 terça-feira, 25 de junho de 2019 03:34
    quarta-feira, 19 de junho de 2019 02:33
  • Boa tarde.

    Conseguiu.

    Se funcionar, por gentileza, marque como resposta / útil.


    MARIANO1776

    domingo, 23 de junho de 2019 17:01
  • Boa noite, 

    Desculpe a demora, consegui sim, muito obrigado!

    terça-feira, 25 de junho de 2019 03:34